Hello world sample files for Maclisp.

src/hello/hello.lisp

@@ -0,0 +1,8 @@
+;;; -*- lisp -*-
+
+;; Hello world example for Maclisp.  When this is compiled to HELLO
+;; FASL, the file HELLO LOADER will dump out an executable program.
+(defun hello ()
+  (princ "Hello Maclisp!")
+  (terpri)
+  (quit))

src/hello/hello.loader

@@ -0,0 +1,15 @@
+;;; -*- lisp -*-
+
+(comment)  ;Magic allocation comment.
+
+;; This is the load and dump script for HELLO LISP.  Pass the HELLO LOADER
+;; file name on the LISP command line.
+
+(progn
+  (close (prog1 infile (inpush -1)))  ;Close channel for this file.
+  (fasload hello fasl)
+  (gc)
+  (purify 0 0 'bporg)                 ;Purify memory pages.
+  (sstatus flush t)                   ;Share pure pages with Maclisp.
+  (suspend ":kill " '(ts hello))      ;Write executable image.
+  (hello))                            ;Start executing here.