From 2769e25f0654f26e6123165011b636f63114f3fe Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Tue, 25 Sep 2018 07:44:48 +0200 Subject: [PATCH] Use DSK device rather than AI. --- src/llogo/define.1 | 4 ++-- src/llogo/error.1 | 8 ++++---- src/llogo/germ.1 | 4 ++-- src/llogo/parser.1 | 4 ++-- src/llogo/primit.1 | 4 ++-- src/llogo/print.1 | 4 ++-- src/llogo/reader.1 | 4 ++-- src/llogo/setup.1 | 6 +++--- src/llogo/turtle.465 | 2 +- src/llogo/tvrtle.1 | 2 +- src/llogo/unedit.1 | 4 ++-- 11 files changed, 23 insertions(+), 23 deletions(-) diff --git a/src/llogo/define.1 b/src/llogo/define.1 index 982739fb..a127c67b 100644 --- a/src/llogo/define.1 +++ b/src/llogo/define.1 @@ -18,7 +18,7 @@ (GENPREFIX DEFINE-) (COND ((STATUS FEATURE DEFINE)) ((AND (OR (STATUS FEATURE ITS) (STATUS FEATURE DEC10)) - (ERRSET (FASLOAD DEFINE FASL AI LLOGO)))) + (ERRSET (FASLOAD DEFINE FASL DSK LLOGO)))) ((AND (STATUS FEATURE MULTICS) (ERRSET (LOAD "DEFINE.LISP")))) ((IOG NIL (PRINT '(DEFINE MUST BE READ INTO COMPILER)))))) @@ -442,4 +442,4 @@ ;;FOR EXTRA FORMS TO BE MADE HAPPEN BY DEFINE FUNCTION, IF COMPILING, OUTPUT ;;THEM TO BE DONE AT RUN TIME, IF NOT COMPILING, JUST DO THEM. ((DEFPROP DEFINE-HAPPEN EVAL EXPR))) - \ No newline at end of file + diff --git a/src/llogo/error.1 b/src/llogo/error.1 index 0dcbe16e..4770b69c 100644 --- a/src/llogo/error.1 +++ b/src/llogo/error.1 @@ -7,7 +7,7 @@ (DECLARE (OR (STATUS FEATURE DEFINE) (COND ((STATUS FEATURE ITS) ;;MULTICS? - (FASLOAD DEFINE FASL AI LLOGO))))) + (FASLOAD DEFINE FASL DSK LLOGO))))) (SAVE-VERSION-NUMBER ERROR) @@ -735,9 +735,9 @@ ;;MISCELLANEOUS SYSTEM DEBUGGING FEATURES. -[ITS (DEFPROP LOAD-TECO (LISPT FASL AI /.TECO/.) AUTOLOAD) - (DEFPROP START-TECO (LISPT FASL AI /.TECO/.) AUTOLOAD) - (DEFPROP MEV (STEPMM FASL AI COMMON) AUTOLOAD) +[ITS (DEFPROP LOAD-TECO (LISPT FASL DSK /.TECO/.) AUTOLOAD) + (DEFPROP START-TECO (LISPT FASL DSK /.TECO/.) AUTOLOAD) + (DEFPROP MEV (STEPMM FASL DSK COMMON) AUTOLOAD) (DEFUN TECO NIL (COND (TECO? (P)) ((SETQ TECO? T) (LOAD-TECO) (G)))) (SETQ TECO? NIL)] diff --git a/src/llogo/germ.1 b/src/llogo/germ.1 index 16f4fb6d..0f5d6f7b 100644 --- a/src/llogo/germ.1 +++ b/src/llogo/germ.1 @@ -820,7 +820,7 @@ CALL RUNGERM TO REINITIALIZE GRID. ;;*SLASHIFY # -(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO))) +(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO))) (DECLARE (GENPREFIX MUSIC) (SPECIAL :INSTRUMENT :NVOICES :SCALEBASE :VOICE :SAVBUF BUFFERS NEWMUSIC @@ -1153,4 +1153,4 @@ CALL RUNGERM TO REINITIALIZE GRID. (REQUEST)) (INITMUSIC) - \ No newline at end of file + diff --git a/src/llogo/parser.1 b/src/llogo/parser.1 index dbd5bc7e..a0d64d3a 100644 --- a/src/llogo/parser.1 +++ b/src/llogo/parser.1 @@ -31,7 +31,7 @@ (DECLARE (OR (STATUS FEATURE DEFINE) (COND ((STATUS FEATURE ITS) ;;MULTICS? - (FASLOAD DEFINE FASL AI LLOGO))))) + (FASLOAD DEFINE FASL DSK LLOGO))))) (SAVE-VERSION-NUMBER PARSER) @@ -576,4 +576,4 @@ EOL) NEW-LINE) (EDIT-LINE NUMBER))))))))) - \ No newline at end of file + diff --git a/src/llogo/primit.1 b/src/llogo/primit.1 index 49a04bbd..dffc96ae 100644 --- a/src/llogo/primit.1 +++ b/src/llogo/primit.1 @@ -10,7 +10,7 @@ (DECLARE (OR (STATUS FEATURE DEFINE) (COND ((STATUS FEATURE ITS) ;;MULTICS? - (FASLOAD DEFINE FASL AI LLOGO))))) + (FASLOAD DEFINE FASL DSK LLOGO))))) (SAVE-VERSION-NUMBER PRIMIT) @@ -1086,4 +1086,4 @@ ;;*PAGE - \ No newline at end of file + diff --git a/src/llogo/print.1 b/src/llogo/print.1 index 6fb63852..ee85266e 100644 --- a/src/llogo/print.1 +++ b/src/llogo/print.1 @@ -7,7 +7,7 @@ (DECLARE (OR (STATUS FEATURE DEFINE) (COND ((STATUS FEATURE ITS) ;;MULTICS? - (FASLOAD DEFINE FASL AI LLOGO))))) + (FASLOAD DEFINE FASL DSK LLOGO))))) (SAVE-VERSION-NUMBER PRINT) @@ -329,4 +329,4 @@ ;;RESTORE ORIGINAL DEVICE. (APPLY 'CRUNIT CRUNIT))) NO-VALUE) - \ No newline at end of file + diff --git a/src/llogo/reader.1 b/src/llogo/reader.1 index d902669e..0eb80115 100644 --- a/src/llogo/reader.1 +++ b/src/llogo/reader.1 @@ -6,7 +6,7 @@ (DECLARE (OR (STATUS FEATURE DEFINE) (COND ((STATUS FEATURE ITS) ;;MULTICS? - (FASLOAD DEFINE FASL AI LLOGO))))) + (FASLOAD DEFINE FASL DSK LLOGO))))) ;;; ;;READ SYNTAX FOR LOGO, LOGO READER, EVALUATION FUNCTIONS @@ -608,4 +608,4 @@ ;;*PAGE - \ No newline at end of file + diff --git a/src/llogo/setup.1 b/src/llogo/setup.1 index dde55d25..ba257d17 100644 --- a/src/llogo/setup.1 +++ b/src/llogo/setup.1 @@ -14,7 +14,7 @@ (OR (STATUS FEATURE DEFINE) (COND ((STATUS FEATURE ITS) ;;MULTICS? - (FASLOAD DEFINE FASL AI LLOGO))))) + (FASLOAD DEFINE FASL DSK LLOGO))))) ;;FOR DEFINING NEW LLOGO PRIMITIVES, DEFINE IS DEFINED TO AUTOLOAD IN FILE ;;LLOGO;DEFINE FASL, CONTAINING A FEXPR DEFININTION OF DEFINE, PUSH, POP AND OTHER @@ -23,7 +23,7 @@ ;;NOTE: DEFINE MAY ONLY BE CALLED FROM LISP, NOT LOGO! ;;; -[ITS (OR (STATUS FEATURE DEFINE) (DEFPROP DEFINE (DEFINE FASL AI LLOGO) AUTOLOAD))] +[ITS (OR (STATUS FEATURE DEFINE) (DEFPROP DEFINE (DEFINE FASL DSK LLOGO) AUTOLOAD))] (SETQ GENSYM (GENSYM) LISP-READTABLE READTABLE @@ -383,4 +383,4 @@ DO YOU WANT TO GET RID OF IT? ") (LOAD-IF-WANTED "DO YOU WANT TO USE THE MUSIC BOX? " ">UDD>AP>LIB>LOGO_MUSIC"))] - \ No newline at end of file + diff --git a/src/llogo/turtle.465 b/src/llogo/turtle.465 index 9dbd1fe3..e482d479 100644 --- a/src/llogo/turtle.465 +++ b/src/llogo/turtle.465 @@ -1,7 +1,7 @@ ;;; LOGO TURTLE FUNCTIONS -(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO))) +(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO))) (SSTATUS FEATURE TURTLE) diff --git a/src/llogo/tvrtle.1 b/src/llogo/tvrtle.1 index 82f34a37..926cc8c2 100644 --- a/src/llogo/tvrtle.1 +++ b/src/llogo/tvrtle.1 @@ -18,7 +18,7 @@ (DECLARE (EVAL (READ)) (EVAL (READ))) -(OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO)) +(OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO)) (COND ((BOUNDP 'COLOR) (SETQ BW (NOT COLOR))) ;;READ-TIME SWITCHES FOR COLOR OR BLACK AND WHITE SYSTEM. diff --git a/src/llogo/unedit.1 b/src/llogo/unedit.1 index d12edb81..826414f0 100644 --- a/src/llogo/unedit.1 +++ b/src/llogo/unedit.1 @@ -7,7 +7,7 @@ (DECLARE (OR (STATUS FEATURE DEFINE) (COND ((STATUS FEATURE ITS) ;;MULTICS? - (FASLOAD DEFINE FASL AI LLOGO))))) + (FASLOAD DEFINE FASL DSK LLOGO))))) (SAVE-VERSION-NUMBER UNEDIT) @@ -795,4 +795,4 @@ ;;*PAGE - \ No newline at end of file +