Commit | Line | Data |
---|---|---|
c8f068d2 MW |
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))) |