ULisp - Lisp in Lisp.

Makefile

@@ -26,7 +26,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       draw wl taa tj6 budd sharem ucode rvb kldcp math as imsrc gls demo \
       macsym lmcons dmcg hack hibou agb gt40 rug maeda ms kle aap common \
       fonts zork 11logo kmp info aplogo bkph bbn pdp11 chsncp sca music1 \
-      moon
+      moon teach
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \

build/lisp.tcl

@@ -1042,3 +1042,24 @@ respond "*" ":complr\r"
 respond "_" "kle;forth\r"
 respond "_" "\032"
 type ":kill\r"
+
+# ULisp
+respond "*" ":complr\r"
+respond "_" "teach; ulisp\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":lisp\r"
+respond "Alloc?" "n\r"
+respond "*" "(load '((teach) ulisp))"
+expect -re {\n[1-7]}
+respond "\n" {(dump "teach; ts ulisp")}
+respond ":" "t\r"
+respond ":" "emacs\r"
+respond ":" "edit\r"
+respond ":" "script\r"
+respond ":" "nil\r"
+respond ":" "nil\r"
+respond ":" "t\r"
+respond ":" "t\r"
+respond "\n" ":vk\r"
+respond "*" ":kill\r"

build/misc.tcl

@@ -13,9 +13,6 @@ respond "*" "purify\033g"
 respond "TS MIDAS" "midas;ts 324\r"
 respond "*" ":kill\r"
 
-respond "*" ":print teach;..new. (udir)\r"
-type ":vk\r"
-
 respond "*" ":link teach;teach emacs,emacs;teach emacs\r"
 type ":vk\r"
 respond "*" "teach\033\023"

doc/programs.md

@@ -264,6 +264,7 @@
 - TTYSWP, swap TTYs.
 - TYPE8, type 8-bit file.
 - UFIND, find users.
+- ULISP, Lisp in Lisp.
 - UNTALK, split-screen comm-link program.
 - UP/DOWN, check if host is online.
 - UPTIME, Chaosnet uptime server.