LLOGO - Logo written in Lisp.

By Ira Goldstein, Henry Lieberman, et al.

The added IOC LSP file is for emulating older Maclisp forms no longer
supported in the latest version.

Makefile

@@ -31,10 +31,10 @@ 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 \
       kldcp libdoc lisp _mail_ midas quux scheme manual wp chess ms macdoc \
-      aplogo _klfe_ pdp11 chsncp cbf rug bawden
+      aplogo _klfe_ pdp11 chsncp cbf rug bawden llogo
 BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys \
       graphs draw datdrw fonts fonts1 fonts2 games macsym maint imlac \
-      _www_ hqm gt40
+      _www_ hqm gt40 llogo
 MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP)
 
 # These are not included on the tape.

build/lisp.tcl

@@ -865,3 +865,38 @@ respond_load "(load '((lmio1) ukbd))"
 respond "T" "(as 'ukbd)"
 respond "UKBD" "(quit)"
 expect ":KILL"
+
+# Lisp Logo
+respond "*" ":cwd llogo\r"
+respond "*" ":complr\r"
+respond "_" "ioc\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":complr\r"
+respond "_" "\007"
+respond "*" "(load 'ioc)"
+respond_load "(load 'define)"
+respond "T" "(maklap)"
+respond "_" "define\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":complr\r"
+respond "_" "\007"
+respond "*" "(load 'ioc)"
+respond_load "(load 'define)"
+respond_load "(maklap)"
+respond "_" "error\r"
+respond "_" "parser\r"
+respond "_" "primit\r"
+respond "_" "print\r"
+respond "_" "reader\r"
+respond "_" "setup\r"
+respond "_" "unedit\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":lisp loader\r"
+respond "?" "Y\r"
+respond "?" "LLOGO\r"
+respond "?" "1700\r"
+expect ":KILL"
+respond "*" ":link sys1; ts llogo, llogo; ts llogo\r"

doc/llogo/-read-.-this-

@@ -0,0 +1 @@
+This directory belongs to Henry Lieberman (HENRY@MIT-AI).

doc/programs.md

@@ -138,6 +138,7 @@
 - LIMSER, Chaosnet limerick service.
 - LISP, Lisp interpreter and runtime library (autoloads only).
 - LIVE, PALX Game of Life.
+- LLOGO, Logo implemented in Maclisp.
 - LOADP, displays system load.
 - LOCK, shut down system.
 - LOGO, BBN Logo.

src/llogo/ioc.lsp

@@ -0,0 +1,17 @@
+;;; -*- lisp -*-
+;;; Emulate old Maclisp special forms IOC and IOG.
+
+(defmacro ioc (sym)
+  (cond
+    ((eq sym 'G)   `(^G))
+    ((eq sym 'R)   `(setq ^R t))
+    ((eq sym 'T)   `(setq ^R nil))
+    ((eq sym 'V)   `(setq ^W nil))
+    ((eq sym 'W)   `(setq ^W t))
+    ((eq sym 'RW)  `(progn (ioc R) (ioc W)))
+    (t             (error "Unknown IOC character"))))
+
+(defmacro iog (sym &rest forms)
+  `(let ((^Q nil) (^R nil) (^W nil))
+     ,@(if sym `((ioc ,sym)))
+     ,@forms))

src/llogo/loader.153

@@ -11,6 +11,8 @@
 
 (DECLARE (COUTPUT (READ))) 
 
+(LOAD '((DSK LLOGO) IOC LSP))
+
 (DEFUN HOW-BIG NIL 
        (REMPROP 'HOW-BIG 'EXPR)
        ((LAMBDA (FREE)