13 lines
245 B
Common Lisp
13 lines
245 B
Common Lisp
|
(comment) ;-*- Lisp -*-
|
||
|
|
(progn
|
||
|
|
(defun hello-world ()
|
||
|
|
(princ "Hello World")
|
||
|
|
(quit))
|
||
|
|
(close (prog1 infile (inpush -1)))
|
||
|
|
(sstatus feature noldmsg)
|
||
|
|
(gctwa)
|
||
|
|
(gc)
|
||
|
|
(sstatus flush t)
|
||
|
|
(suspend ":KILL " '(ts hello))
|
||
|
|
(hello-world))
|