Compile LLOGO files TURTLE and TVRTLE.

- Add LSUBR declarations for Lisp display slave.
- Update IOC emulation to handle ^F and ^Y.

build/lisp.tcl

@@ -824,6 +824,8 @@ respond "_" "reader\r"
 respond "_" "setup\r"
 respond "_" "unedit\r"
 respond "_" "music\r"
+respond "_" "turtle\r"
+respond "_" "tvrtle\r"
 respond "_" "\032"
 type ":kill\r"
 respond "*" ":lisp loader\r"

src/llogo/ioc.lsp

@@ -3,11 +3,13 @@
 
 (defmacro ioc (sym)
   (cond
+    ((eq sym 'F)   `(funcall (status ttyint '/) tyi '/))
     ((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 'Y)   `(funcall (status ttyint '/) tyi '/))
     ((eq sym 'RW)  `(progn (ioc R) (ioc W)))
     (t             (error "Unknown IOC character"))))
 

src/llogo/turtle.466

@@ -8,7 +8,9 @@
 (DECLARE (GENPREFIX TURTLE)
 	 (*FEXPR PHOTO SNAP PICTURE RESNAP)
 	 (*LEXPR ERRBREAK POINT DSCALE SETHOME DISPLAY BLINK UNBLINK MOTION BRIGHT
-		 SCALE RANGE BEARING TOWARDS PENSTATE)
+		 SCALE RANGE BEARING TOWARDS PENSTATE
+		 DISINI DISFLUSH DISALINE DISAPOINT DISCREATE DISET DISLIST
+		 DISCUSS)
 	 (*EXPR HOME)
 	 (SPECIAL :WRAP :POLYGON FLOAT-DIS :SNAP :TEXTXHOME :TEXTYHOME NEWTURTLE
 		  WORLD :SNAPS :DSCALE :RAD3 :PI :TURTLE HOME :HEADING :XCOR :YCOR