diff --git a/README.md b/README.md
index 504a701e..4dcd0cfb 100755
--- a/README.md
+++ b/README.md
@@ -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)
diff --git a/m/maclisp.lisp b/m/maclisp.lisp
new file mode 100644
index 00000000..52edcd81
--- /dev/null
+++ 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))