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.

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)