chiark - git - mdw - runlisp/blob - test.lisp

   1 #! /bin/false
   2
   3 (format t "Hello, world!~%")
   4 (format t "Arguments: ~S~%" runlisp:*command-line-strings*)
   5 (format t "cl-user symbols: ~S~%"
   6         (loop for s being the present-symbols of "CL-USER"
   7               collect s))
   8 (format t "Packages: ~S~%"
   9         (loop for p in (list-all-packages) collect (package-name p)))