mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
22 lines
565 B
Common Lisp
22 lines
565 B
Common Lisp
#!/bin/sh
|
|
#|-*- mode:lisp -*-|#
|
|
#| show system's PATH
|
|
exec ros -Q -m roswell -N roswell -- $0 "$@"
|
|
|#
|
|
(progn ;;init forms
|
|
(ros:ensure-asdf))
|
|
|
|
(defpackage :ros.script.which.3708003709
|
|
(:use :cl))
|
|
(in-package :ros.script.which.3708003709)
|
|
|
|
(defun main (&rest argv)
|
|
(roswell.util:local-project-build-hash :rebuild t)
|
|
(dolist (name argv)
|
|
(let ((system (asdf:find-system name nil)))
|
|
(if system
|
|
(format t "~A~%"
|
|
(uiop:native-namestring (asdf:system-source-file system)))
|
|
(ros:quit 1)))))
|
|
;;; vim: set ft=lisp lisp:
|