[runlisp] / bench / t.lisp

#! /usr/bin/runlisp

(format t "Hello from ~A!~%~
	   Script = `~A'~%~
	   Arguments = (~{`~A'~^, ~})~%"
	(lisp-implementation-type)
	(uiop:argv0)
	uiop:*command-line-arguments*)
Commit	Line	Data
e29834b8 MW	1	#! /usr/bin/runlisp
	2
	3	(format t "Hello from ~A!~%~
	4	Script = `~A'~%~
	5	Arguments = (~{`~A'~^, ~})~%"
	6	(lisp-implementation-type)
	7	(uiop:argv0)
	8	uiop:command-line-arguments)