Example how to restore SBCL_HOME and be able to (REQUIRE :SB-INTROSPECT)

README.md

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

foo.ros

#!/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: