Compile LLOGO files TURTLE and TVRTLE.

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

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