Added Maclisp

Fixes: #567
Co-Authored-By: Lars Brinkhoff <lars.spam@nocrew.org>
This commit is contained in:
Richie Bendall
2020-04-01 05:01:22 +13:00
parent 49da13c444
commit 98e699b3d5
2 changed files with 13 additions and 0 deletions

View File

@@ -355,6 +355,7 @@ Meet [FizzBuzz](https://github.com/zenware/FizzBuzz), the evolution of [hello-wo
* [Lsl](l/lsl.lsl)
* [Lua](l/lua.lua)
* [M4](m/m4.m4)
* [Maclisp](m/maclisp.lisp)
* [Macsyma](m/macsyma.mac)
* [Magic](m/magic)
* [Make](m/make.makefile)

12
m/maclisp.lisp Normal file
View 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))