12
m/MacLisp.lisp
Normal file
12
m/MacLisp.lisp
Normal file
@@ -0,0 +1,12 @@
|
||||
(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))
|
||||
Reference in New Issue
Block a user