To check, use Roswell to build the script:
ros build foo.ros
and run it
./foo
root@0abe81b77f83:/tmp/test# ./foo
- ASDF
- SB-BSD-SOCKETS
- SB-INTROSPECT
- SB-POSIX
- UIOP
- asdf
- uiop
#!/bin/sh | |
#|-*- mode:lisp -*-|# | |
#| | |
exec ros -Q -- $0 "$@" | |
|# | |
(defpackage :ros.script.foo | |
(:use :cl)) | |
(in-package :ros.script.foo) | |
(defvar *home* | |
(sb-int:sbcl-homedir-pathname)) | |
(defun restore-home () | |
(setf sb-sys::*sbcl-homedir-pathname* | |
*home*)) | |
(pushnew 'restore-home sb-ext:*init-hooks*) | |
(defun main (&rest argv) | |
(declare (ignorable argv)) | |
(require :sb-introspect) | |
(loop for m in (sort (copy-list *modules*) #'string<) | |
do (format t " - ~A~%" m))) | |
;;; vim: set ft=lisp lisp: |