Added Maclisp

Fixes: #567 Co-Authored-By: Lars Brinkhoff <lars.spam@nocrew.org>
2020-04-01 05:01:22 +13:00
parent 49da13c444
commit 98e699b3d5
2 changed files with 13 additions and 0 deletions
--- a/m/maclisp.lisp
+++ b/m/maclisp.lisp
@@ -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))