[runlisp] / test.lisp

#! /bin/false

(format t "Hello, world!~%")
(format t "Arguments: ~S~%" runlisp:*command-line-strings*)
(format t "cl-user symbols: ~S~%"
	(loop for s being the present-symbols of "CL-USER"
	      collect s))
(format t "Packages: ~S~%"
	(loop for p in (list-all-packages) collect (package-name p)))
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)))