(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS) (FILECREATED " 1-Aug-2021 18:08:23" ("compiled on " |{DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;9|) "30-Jul-2021 13:12:28" "COMPILE-FILEd" |in| "FULL 30-Jul-2021 ..." |dated| "30-Jul-2021 13:12:33") (FILECREATED " 1-Aug-2021 18:08:23" |{DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;9| 36725 |changes| |to:| ( FUNCTIONS PACKAGE-ENABLE) |previous| |date:| "29-Jul-2021 20:33:07" |{DSK}kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;8|) (RPAQQ PACKAGE-STARTUPCOMS ((* |;;;| "Initialize the package system (LLPACKAGE must be loaded)") (* |;;| "Simple definitions for the init. Improved in CMLPACKAGE") (FUNCTIONS RETURN-FIRST-OF-THREE ERROR-MISSING-EXTERNAL-SYMBOL) (P (MOVD? (QUOTE ERROR-MISSING-EXTERNAL-SYMBOL) (QUOTE RESOLVE-MISSING-EXTERNAL-SYMBOL)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-MISSING-PACKAGE)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-USE-PACKAGE-CONFLICT)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-EXPORT-CONFLICT)) ( MOVD? (QUOTE ERROR) (QUOTE RESOLVE-EXPORT-MISSING-CONFLICT)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-IMPORT-CONFLICT)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-UNINTERN-CONFLICT)) (MOVD? (QUOTE RETURN-FIRST-OF-THREE) (QUOTE RESOLVE-READER-CONFLICT)) (* \; "In pre-package init all symbols are prefixed, thus the INTERLISP symbol is always default")) (* |;;| "Reader changes") (FUNCTIONS CHECK-SYMBOL-NAMESTRING \\NEW.READ.SYMBOL \\NEW.MKATOM) (VARIABLES LITATOM-PACKAGE-CONVERSION-ENABLED) (* |;;| "Initialization tables and functions") (VARIABLES CMLSYMBOLS.VARS CMLSYMBOLS.FNNAMES CMLSYMBOLS.DECLARATORS CMLSYMBOLS.TYPENAMES CMLSYMBOLS.MACROS CMLSYMBOLS.SPECIALFORMS CMLSYMBOLS.LAMBDA.LIST.KEYWORDS) (VARIABLES (* \; "Be very careful with this." ) CMLSYMBOLS.SHARED) (FUNCTIONS LITATOM.EXISTS) (VARIABLES LITATOM-PACKAGE-CONVERSION-TABLE) ( FUNCTIONS NAMESTRING-CONVERSION-CLAUSE CONVERT-LITATOM CONCOCT-SYMBOL TRANSFER-SYMBOL INTERN-LITATOM \\LITATOM.EATCHARS) (FUNCTIONS PACKAGE-INIT PACKAGE-CLEAR PACKAGE-MAKE PACKAGE-HIERARCHY-INIT PACKAGE-ENABLE PACKAGE-DISABLE) (* |;;| "A hack for initialization") (FUNCTIONS ID) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) PACKAGE-STARTUP) (* |;;| "Initialize package system, plus functions needed in llpackage at init time") (DECLARE\: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE EQ) (QUOTE EQL)) (MOVD? (QUOTE LENGTH) (QUOTE CL:LENGTH)) (MOVD? (QUOTE ID) ( QUOTE CL:IDENTITY)) (MOVD? (QUOTE ID) (QUOTE REMOVE-COMMENTS)) (PACKAGE-INIT))))) RETURN-FIRST-OF-THREE :D8 (L (2 THREE 1 TWO 0 ONE)) @NIL NIL () ERROR-MISSING-EXTERNAL-SYMBOL :D8 (L (1 PACKAGE 0 NAME)) o@oA (21 ERROR 16 CONCAT) NIL ( 10 "| not found in package " 4 "External symbol |") (MOVD? (QUOTE ERROR-MISSING-EXTERNAL-SYMBOL) (QUOTE RESOLVE-MISSING-EXTERNAL-SYMBOL)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-MISSING-PACKAGE)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-USE-PACKAGE-CONFLICT)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-EXPORT-CONFLICT)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-EXPORT-MISSING-CONFLICT)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-IMPORT-CONFLICT)) (MOVD? (QUOTE ERROR) (QUOTE RESOLVE-UNINTERN-CONFLICT)) (MOVD? (QUOTE RETURN-FIRST-OF-THREE) (QUOTE RESOLVE-READER-CONFLICT)) CHECK-SYMBOL-NAMESTRING :D8 (L (3 FATP 2 LEN 1 OFFSET 0 BASE) P 9 \\INTERRUPTABLE) @ABC dHHHIl JE@LBLCd(ABkANM@NlN iNk^hhhJ Kg  @ABCd2ABkA__OO@OlO iOk_hhh (171 \\CREATE.SYMBOL 106 INTERN* 93 CL:FIND-PACKAGE 36 \\GETBASEFIXP 8 NAMESTRING-CONVERSION-CLAUSE) (99 :EXTERNAL) () (SET-DOCUMENTATION (QUOTE CHECK-SYMBOL-NAMESTRING) (QUOTE CL:FUNCTION) "Check whether a symbol would rather be in a package.") \\NEW.READ.SYMBOL :D8 (L (6 NONNUMERICP 5 EXTERNALP 4 PACKAGE 3 FATP 2 LEN 1 OFFSET 0 BASE) F 4 *PACKAGE* F 5 *READTABLE* F 6 LITATOM-PACKAGE-CONVERSION-ENABLED F 7 CODERDTBL) TF@ABC 4VjDhU`UWY@ABC @ABC`  1HH@ABC` YKKIIdKKJ D D@ABC E ED`=@ABCd*ABkAIH@IlI iIkYhhhDTh @ABCDT  1HHgID;@ABCd(ABkAKJ@KlK iKk[hhhDTi @ABC D (337 RESOLVE-MISSING-EXTERNAL-SYMBOL 331 \\GETBASESTRING 321 INTERN* 237 \\MVLIST 232 FIND-SYMBOL* 217 INTERN* 147 RESOLVE-MISSING-PACKAGE 141 \\GETBASESTRING 129 STRINGP 116 RESOLVE-READER-CONFLICT 96 FIND-SYMBOL* 71 \\MVLIST 66 FIND-SYMBOL* 45 CHECK-SYMBOL-NAMESTRING 10 \\PARSE.NUMBER) (261 PACKAGE 251 :EXTERNAL 156 *KEYWORD-PACKAGE* 90 *INTERLISP-PACKAGE* 60 *LISP-PACKAGE* 28 FILERDTBL) () (SET-DOCUMENTATION (QUOTE \\NEW.READ.SYMBOL) (QUOTE CL:FUNCTION) "Read a number or symbol from the string defined by BASE OFFSET LEN FATP PACKAGE is NIL if no package was specified, a package object or a string if an unknown package was typed (causes error). EXTERNALP is true if symbol was typed with one colon, which requires that the symbol exist and be external (unless it was a keyword). NONNUMERICP is true if we know the symbol is not a number, e.g., some characters in it were escaped." ) \\NEW.MKATOM :D8 (L (3 FATP 2 LEN 1 OFFST 0 BASE)) C*ABkAIH@IlI iIkYhhhC@A@ABk3Idl-`$Il9`Il l0IIl0`IIl9@ABC @ABCH`i (143 INTERN* 124 \\PARSE.NUMBER) (136 *INTERLISP-PACKAGE* 107 |\\OneCharAtomBase| 86 |\\OneCharAtomBase| 74 |\\OneCharAtomBase|) () (SET-DOCUMENTATION (QUOTE \\NEW.MKATOM) (QUOTE CL:FUNCTION) "A version of \\MKATOM which makes symbols in the Interlisp package instead of the old litatom table." ) (CL:PROCLAIM (QUOTE (CL:SPECIAL LITATOM-PACKAGE-CONVERSION-ENABLED))) (OR (BOUNDP (QUOTE LITATOM-PACKAGE-CONVERSION-ENABLED)) (CL:SETQ LITATOM-PACKAGE-CONVERSION-ENABLED NIL)) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.VARS))) (SETQ CMLSYMBOLS.VARS (QUOTE ("*" "**" "***" "*APPLYHOOK*" "*BREAK-ON-WARNINGS*" "*DEBUG-IO*" "*DEFAULT-PATHNAME-DEFAULTS*" "*ERROR-OUTPUT*" "*EVALHOOK*" "*FEATURES*" "*LOAD-VERBOSE*" "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*" "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*" "*PRINT-ESCAPE*" "*PRINT-GENSYM*" "*PRINT-LENGTH*" "*PRINT-LEVEL*" "*PRINT-PRETTY*" "*PRINT-RADIX*" "*QUERY-IO*" "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*" "*READ-SUPPRESS*" "*READTABLE*" "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TERMINAL-IO*" "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///" "ARRAY-DIMENSION-LIMIT" "ARRAY-RANK-LIMIT" "ARRAY-TOTAL-SIZE-LIMIT" "BOOLE-1" "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2" "BOOLE-C1" "BOOLE-C2" "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR" "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1" "BOOLE-ORC2" "BOOLE-SET" "BOOLE-XOR" "CALL-ARGUMENTS-LIMIT" "CHAR-BITS-LIMIT" "CHAR-CODE-LIMIT" "CHAR-CONTROL-BIT" "CHAR-FONT-LIMIT" "CHAR-HYPER-BIT" "CHAR-META-BIT" "CHAR-SUPER-BIT" "DOUBLE-FLOAT-EPSILON" "DOUBLE-FLOAT-NEGATIVE-EPSILON" "INTERNAL-TIME-UNITS-PER-SECOND" "LAMBDA-LIST-KEYWORDS" "LAMBDA-PARAMETERS-LIMIT" "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT" "LEAST-NEGATIVE-SHORT-FLOAT" "LEAST-NEGATIVE-SINGLE-FLOAT" "LEAST-POSITIVE-DOUBLE-FLOAT" "LEAST-POSITIVE-LONG-FLOAT" "LEAST-POSITIVE-SHORT-FLOAT" "LEAST-POSITIVE-SINGLE-FLOAT" "LONG-FLOAT-EPSILON" "LONG-FLOAT-NEGATIVE-EPSILON" "MOST-NEGATIVE-DOUBLE-FLOAT" "MOST-NEGATIVE-FIXNUM" "MOST-NEGATIVE-LONG-FLOAT" "MOST-NEGATIVE-SHORT-FLOAT" "MOST-NEGATIVE-SINGLE-FLOAT" "MOST-POSITIVE-DOUBLE-FLOAT" "MOST-POSITIVE-DOUBLE-FLOAT" "MOST-POSITIVE-FIXNUM" "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT" "MOST-POSITIVE-SINGLE-FLOAT" "MULTIPLE-VALUES-LIMIT" "NIL" "OTHERWISE" "PI" "*PRINT-ESCAPE*" "SHORT-FLOAT-EPSILON" "SHORT-FLOAT-NEGATIVE-EPSILON" "SINGLE-FLOAT-EPSILON" "SINGLE-FLOAT-NEGATIVE-EPSILON" "T"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.FNNAMES))) (SETQ CMLSYMBOLS.FNNAMES (QUOTE ("*" "+" "-" "/" "/=" "1+" "1-" "<" "<=" "=" ">" ">=" "ABS" "ACONS" "ACOS" "ACOSH" "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P" "ALPHA-CHAR-P" "ALPHANUMERICP" "APPEND" "APPLY" "APPLYHOOK" "APROPOS" "APROPOS-LIST" "AREF" "ARRAY-DIMENSION" "ARRAY-DIMENSIONS" "ARRAY-ELEMENT-TYPE" "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK" "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE" "ARRAYP" "ASH" "ASIN" "ASINH" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH" "ATOM" "BIT" "BIT-AND" "BIT-ANDC1" "BIT-ANDC2" "BIT-EQV" "BIT-IOR" "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2" "BIT-VECTOR-P" "BIT-XOR" "BOOLE" "BOTH-CASE-P" "BOUNDP" "BREAK" "BUTLAST" "BYTE" "BYTE-POSITION" "BYTE-SIZE" "CAR" "CDR" "CAAR" "CADR" "CDAR" "CDDR" "CAAAR" "CAADR" "CADAR" "CADDR" "CDAAR" "CDADR" "CDDAR" "CDDDR" "CAAAAR" "CAAADR" "CAADAR" "CAADDR" "CADAAR" "CADADR" "CADDAR" "CADDDR" "CDAAAR" "CDAADR" "CDADAR" "CDADDR" "CDDAAR" "CDDADR" "CDDDAR" "CDDDDR" "CEILING" "CERROR" "CHAR" "CHAR-BIT" "CHAR-BITS" "CHAR-CODE" "CHAR-DOWNCASE" "CHAR-EQUAL" "CHAR-FONT" "CHAR-GREATERP" "CHAR-INT" "CHAR-LESSP" "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP" "CHAR-NOT-LESSP" "CHAR-UPCASE" "CHAR/=" "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER" "CHARACTERP" "CIS" "CLEAR-INPUT" "CLEAR-OUTPUT" "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE" "COMMONP" "COMPILE" "COMPILE-FILE" "COMPILED-FUNCTION-P" "COMPLEX" "COMPLEXP" "CONCATENATE" "CONJUGATE" "CONS" "CONSP" "CONSTANTP" "COPY-ALIST" "COPY-LIST" "COPY-READTABLE" "COPY-SEQ" "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT" "COUNT-IF" "COUNT-IF-NOT" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME" "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF" "DELETE-IF-NOT" "DENOMINATOR" "DEPOSIT-FIELD" "DESCRIBE" "DIGIT-CHAR" "DIGIT-CHAR-P" "DIRECTORY" "DIRECTORY-NAMESTRING" "DISASSEMBLE" "DOCUMENTATION" "DPB" "DRIBBLE" "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME" "ENDP" "ENOUGH-NAMESTRING" "EQ" "EQL" "EQUAL" "EQUALP" "ERROR" "EVAL" "EVALHOOK" "EVENP" "EVERY" "EXP" "EXPORT" "EXPT" "FBOUNDP" "FCEILING" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-LENGTH" "FILE-NAMESTRING" "FILE-POSITION" "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND" "FIND-ALL-SYMBOLS" "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" "FLOAT-SIGN" "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FOURTH" "FRESH-LINE" "FROUND" "FTRUNCATE" "FUNCALL" "FUNCTIONP" "GCD" "GENSYM" "GENTEMP" "GET" "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER" "GET-INTERNAL-REAL-TIME" "GET-INTERNAL-RUN-TIME" "GET-MACRO-CHARACTER" "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES" "GET-SETF-METHOD" "GET-SETF-METHOD-MULTIPLE-VALUE" "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GRAPHIC-CHAR-P" "HASH-TABLE-COUNT" "HASH-TABLE-P" "HOST-NAMESTRING" "IDENTITY" "IMAGPART" "IMPORT" "IN-PACKAGE" "INPUT-STREAM-P" "INSPECT" "INT-CHAR" "INTEGER-DECODE-FLOAT" "INTEGER-LENGTH" "INTEGERP" "INTERN" "INTERSECTION" "ISQRT" "KEYWORDP" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF" "LENGTH" "LISP-IMPLEMENTATION-TYPE" "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES" "LIST-LENGTH" "LISTEN" "LISTP" "LOAD" "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV" "LOGIOR" "LOGNAND" "LOGNOR" "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST" "LOGXOR" "LONG-SITE-NAME" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE" "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1" "MAKE-ARRAY" "MAKE-BROADCAST-STREAM" "MAKE-CHAR" "MAKE-CONCATENATED-STREAM" "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM" "MAKE-HASH-TABLE" "MAKE-LIST" "MAKE-PACKAGE" "MAKE-PATHNAME" "MAKE-RANDOM-STATE" "MAKE-SEQUENCE" "MAKE-STRING" "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM" "MAKE-SYMBOL" "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM" "MAKUNBOUND" "MAP" "MAPC" "MAPCAN" "MAPCAR" "MAPCON" "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD" "MAX" "MEMBER" "MEMBER-IF" "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "MIN" "MINUSP" "MISMATCH" "MOD" "NAME-CHAR" "NAMESTRING" "NBUTLAST" "NCONC" "NINTERSECTION" "NINTH" "NOT" "NOTANY" "NOTEVERY" "NRECONC" "NREVERSE" "NSET-DIFFERENCE" "NSET-EXCLUSIVE-OR" "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE" "NSTRING-UPCASE" "NSUBLIS" "NSUBST" "NSUBST-IF" "NSUBST-IF-NOT" "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT" "NTH" "NTHCDR" "NUMERATOR" "NULL" "NUMBERP" "NUNION" "ODDP" "OPEN" "OUTPUT-STREAM-P" "PACKAGE-NAME" "PACKAGE-NICKNAMES" "PACKAGE-SHADOWING-SYMBOLS" "PACKAGE-USE-LIST" "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE" "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP" "PEEK-CHAR" "PHASE" "PLUSP" "POSITION" "POSITION-IF" "POSITION-IF-NOT" "PPRINT" "PRIN1" "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT" "PROBE-FILE" "PROCLAIM" "PROVIDE" "RANDOM" "RANDOM-STATE-P" "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIONAL" "RATIONALIZE" "RATIONALP" "READ" "READ-BYTE" "READ-CHAR" "READ-CHAR-NO-HANG" "READ-DELIMITED-LIST" "READ-FROM-STRING" "READ-LINE" "READ-PRESERVING-WHITESPACE" "READTABLEP" "REALPART" "REDUCE" "REM" "REMHASH" "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT" "REMPROP" "RENAME-FILE" "RENAME-PACKAGE" "REPLACE" "REQUIRE" "REST" "REVAPPEND" "REVERSE" "ROOM" "ROUND" "RPLACA" "RPLACD" "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND" "SET" "SET-CHAR-BIT" "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER" "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-SYNTAX-FROM-CHAR" "SEVENTH" "SHADOW" "SHADOWING-IMPORT" "SHORT-SITE-NAME" "SIGNUM" "SIMPLE-BIT-VECTOR-P" "SIMPLE-STRING-P" "SIMPLE-VECTOR-P" "SIN" "SINH" "SIXTH" "SLEEP" "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPECIAL-FORM-P" "SQRT" "STABLE-SORT" "STANDARD-CHAR-P" "STREAM-ELEMENT-TYPE" "STREAM-EXTERNAL-FORMAT" "STREAMP" "STRING" "STRING-CAPITALIZE" "STRING-CHAR-P" "STRING-DOWNCASE" "STRING-EQUAL" "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP" "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP" "STRING-RIGHT-TRIM" "STRING-TRIM" "STRING-UPCASE" "STRING/=" "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP" "SUBLIS" "SUBSEQ" "SUBSETP" "SUBST" "SUBST-IF" "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF" "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL-FUNCTION" "SYMBOL-NAME" "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" "SYMBOLP" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THIRD" "TREE-EQUAL" "TRUENAME" "TRUNCATE" "TYPE-OF" "TYPEP" "UNEXPORT" "UNINTERN" "UNION" "UNREAD-CHAR" "UNUSE-PACKAGE" "UPPER-CASE-P" "USE-PACKAGE" "USER-HOMEDIR-PATHNAME" "VALUES" "VALUES-LIST" "VECTOR" "VECTOR-POP" "VECTOR-PUSH" "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WRITE" "WRITE-BYTE" "WRITE-CHAR" "WRITE-LINE" "WRITE-STRING" "WRITE-TO-STRING" "Y-OR-N-P" "YES-OR-NO-P" "ZEROP"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.DECLARATORS))) (SETQ CMLSYMBOLS.DECLARATORS (QUOTE ("DECLARATION" "FTYPE" "FUNCTION" "IGNORE" "INLINE" "NOTINLINE" "OPTIMIZE" "SPECIAL" "TYPE"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.TYPENAMES))) (SETQ CMLSYMBOLS.TYPENAMES (QUOTE ("ARRAY" "ATOM" "BIGNUM" "BIT" "BIT-VECTOR" "CHARACTER" "COMMON" "COMPILED-FUNCTION" "COMPLEX" "CONS" "DOUBLE-FLOAT" "FIXNUM" "FLOAT" "FUNCTION" "HASH-TABLE" "INTEGER" "KEYWORD" "LIST" "LONG-FLOAT" "NIL" "NUMBER" "PACKAGE" "PATHNAME" "RANDOM-STATE" "RATIO" "RATIONAL" "READTABLE" "SATISFIES" "SEQUENCE" "SHORT-FLOAT" "SIMPLE-ARRAY" "SIMPLE-BIT-VECTOR" "SIMPLE-STRING" "SIMPLE-VECTOR" "SIGNED-BYTE" "SINGLE-FLOAT" "STANDARD-CHAR" "STREAM" "STRING" "STRING-CHAR" "SYMBOL" "T" "UNSIGNED-BYTE" "VECTOR"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.MACROS))) (SETQ CMLSYMBOLS.MACROS (QUOTE ("AND" "ASSERT" "CASE" "CCASE" "CHECK-TYPE" "COND" "CTYPECASE" "DECF" "DEFCONSTANT" "DEFINE-MODIFY-MACRO" "DEFINE-SETF-METHOD" "DEFMACRO" "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR" "DO" "DO*" "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS" "DO-SYMBOLS" "DOLIST" "DOTIMES" "ECASE" "ETYPECASE" "INCF" "LOCALLY" "LOOP" "MULTIPLE-VALUE-BIND" "MULTIPLE-VALUE-LIST" "MULTIPLE-VALUE-SETQ" "OR" "POP" "PROG" "PROG*" "PROG1" "PROG2" "PSETF" "PSETQ" "PUSH" "PUSHNEW" "REMF" "RETURN" "ROTATEF" "SETF" "SHIFTF" "STEP" "TIME" "TRACE" "TYPECASE" "UNLESS" "UNTRACE" "WHEN" "WITH-INPUT-FROM-STRING" "WITH-OPEN-FILE" "WITH-OPEN-STREAM" "WITH-OUTPUT-TO-STRING") )) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.SPECIALFORMS))) (SETQ CMLSYMBOLS.SPECIALFORMS (QUOTE ("BLOCK" "CATCH" "COMPILER-LET" "DECLARE" "EVAL-WHEN" "FLET" "FUNCTION" "GO" "IF" "LABELS" "LAMBDA" "LET" "LET*" "MACROLET" "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-PROG1" "PROGN" "PROGV" "QUOTE" "RETURN-FROM" "SETQ" "TAGBODY" "THE" "THROW" "UNWIND-PROTECT"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.LAMBDA.LIST.KEYWORDS))) (SETQ CMLSYMBOLS.LAMBDA.LIST.KEYWORDS (QUOTE ("&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" "&OPTIONAL" "&REST" "&WHOLE"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.SHARED))) (SETQ CMLSYMBOLS.SHARED (QUOTE ("+" "-" "/" "<" "<=" "=" ">" ">=" "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" "&OPTIONAL" "&REST" "&WHOLE" "*APPLYHOOK*" "*BREAK-ON-WARNINGS*" "*DEBUG-IO*" "*DEFAULT-PATHNAME-DEFAULTS*" "*ERROR-OUTPUT*" "*EVALHOOK*" "*FEATURES*" "*LOAD-VERBOSE*" "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*" "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*" "*PRINT-ESCAPE*" "*PRINT-GENSYM*" "*PRINT-LENGTH*" "*PRINT-LEVEL*" "*PRINT-PRETTY*" "*PRINT-RADIX*" "*QUERY-IO*" "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*" "*READ-SUPPRESS*" "*READTABLE*" "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TERMINAL-IO*" "*TRACE-OUTPUT*" "ABS" "AND" "BIGNUM" "BIT" "BOUNDP" "BYTE" "BYTE-SIZE" "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" "CAADR" "CAAR" "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR" "CAR" "CASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR" "CDADR" "CDAR" "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" "CDDDR" "CDDR" "CDR" "CLRHASH" "COERCE" "COMPLEX" "COND" "CONS" "DECLARE" "DEFMACRO" "DPB" "DRIBBLE" "ED" "EQ" "EQL" "EVENP" "EXPORT" "FLOAT" "GET" "GO" "IGNORE" "IMPORT" "INSPECT" "INTEGER" "LAST" "LDB" "LET" "LET*" "LIST" "LIST*" "LOGAND" "LOGNOT" "LOGXOR" "MAX" "MIN" "MINUSP" "NCONC" "NIL" "NOT" "NULL" "ODDP" "OPEN" "OR" "PACKAGE" "PATHNAME" "PROG" "PROG*" "PROG1" "PROG2" "PROGN" "QUOTE" "RANDOM-STATE" "RATIO" "READTABLEP" "REMHASH" "REMPROP" "RETURN" "ROUND" "RPLACA" "RPLACD" "SATISFIES" "SEQUENCE" "SET" "STRING" "STRING-EQUAL" "STREAM" "STREAMP" "T" "TAILP" "THE" "TIME" "TRACE" "TYPE" "TYPEP" "UNTRACE" "WRITE"))) LITATOM.EXISTS :D8 (L (0 STRING)) @ i(5 ATOMHASH#PROBES) NIL () (CL:PROCLAIM (QUOTE (CL:SPECIAL LITATOM-PACKAGE-CONVERSION-TABLE))) (OR (BOUNDP (QUOTE LITATOM-PACKAGE-CONVERSION-TABLE)) (CL:SETQ LITATOM-PACKAGE-CONVERSION-TABLE (QUOTE (("CL::" NIL "LISP" :INTERNAL) ("CL:" ("CL:FLG" "CL:MAKE-SYMBOL" "CL:COPY-SYMBOL" "CL:INTERN" "CL:MAKE-KEYWORD" "CL:GENTEMP" "CL:KEYWORDP") "LISP" :EXTERNAL) (":" NIL "KEYWORD" :EXTERNAL) ( "CONDITIONS::" NIL "CONDITIONS" :INTERNAL) ("CONDITIONS:" NIL "CONDITIONS" :EXTERNAL) ("XCL::" NIL "XCL" :INTERNAL) ("XCL:" NIL "XCL" :EXTERNAL) ("SI::" NIL "SI" :INTERNAL) ("SI:" NIL "SI" :EXTERNAL) ( "COMPILER::" NIL "COMPILER" :INTERNAL) ("COMPILER:" NIL "COMPILER" :EXTERNAL) ("FASL::" NIL "FASL" :INTERNAL) ("FASL:" NIL "FASL" :EXTERNAL))))) NAMESTRING-CONVERSION-CLAUSE :D8 (L (3 FATP 2 LEN 1 OFFSET 0 BASE) F 11 LITATOM-PACKAGE-CONVERSION-TABLE) L WaHdYINl BL%LNl :jNdj Ndj Ndj lD OL:i-OOOOOOOC@AO@AO:hMhZhIOk_BKl :}jKdj Kdj Kdj lD OB:i,OOOOOOOC@AO@AO:hKitOk_JbHX(242 %ARRAY-TYPE-NUMBER 226 %ARRAY-OFFSET 210 %ARRAY-BASE 193 \\GETBASEFIXP 94 %ARRAY-TYPE-NUMBER 78 %ARRAY-OFFSET 62 %ARRAY-BASE 43 \\GETBASEFIXP 26 \\GETBASEFIXP) NIL () CONVERT-LITATOM :D8 (L (0 ATOM)) a@q@@ jhHkIJ d9[KKLl _@O M@M gN i(93 INTERN-LITATOM 82 CL:FIND-PACKAGE 72 \\LITATOM.EATCHARS 61 \\GETBASEFIXP 36 NAMESTRING-CONVERSION-CLAUSE) (87 :WHERE) () CONCOCT-SYMBOL :D8 (L (0 STRING) F 5 CMLSYMBOLS.SHARED) P@` [KYgJ` JI!@Ugg ]H` @dUgg >@d` o@ ` \` L` ` ` (180 EXPORT 170 CL:INTERN 159 IMPORT 148 EXPORT 137 CL:INTERN 126 CL:ERROR 113 CL:FIND-SYMBOL 98 CL:MEMBER 79 IMPORT 66 CL:MEMBER 43 EXPORT 18 \\MVLIST 13 CL:FIND-SYMBOL) (175 *LISP-PACKAGE* 165 *LISP-PACKAGE* 154 *INTERLISP-PACKAGE* 143 *LISP-PACKAGE* 132 *LISP-PACKAGE* 108 *INTERLISP-PACKAGE* 93 STREQUAL 88 :TEST 74 *INTERLISP-PACKAGE* 61 STREQUAL 56 :TEST 38 *LISP-PACKAGE* 30 :INTERNAL 8 *LISP-PACKAGE*) ( 120 "Shared symbol found in IL: ~S") TRANSFER-SYMBOL :D8 (L (1 TO 0 FROM)) A@A@ (21 SETF-SYMBOL-FUNCTION 16 CL:SYMBOL-FUNCTION) NIL () (SET-DOCUMENTATION (QUOTE TRANSFER-SYMBOL) (QUOTE CL:FUNCTION) "Move the function and plist definition cells of a symbol onto another, leaving name and value alone." ) INTERN-LITATOM :D8 (L (0 |-args-|)) ekaAlaHlLKChJ$MdgoIoJ Mg!JLdagl\kaJI IJ `JId I(144 SET 129 SETF-SYMBOL-PACKAGE 122 ADD-SYMBOL 67 ERROR 62 CONCAT) (134 *KEYWORD-PACKAGE* 114 PACKAGE 95 :WHERE 83 PACKAGE 74 :INTERNAL 41 :INTERNAL 30 PACKAGE) ( 56 "internal in external-only package " 50 "Attempting to INTERN-LITATOM ") (SET-DOCUMENTATION (QUOTE INTERN-LITATOM) (QUOTE CL:FUNCTION) "Tag a litatom with a package. Add it to the package hashtable. Handle keywords appropriately. Return the symbol." ) \\LITATOM.EATCHARS :D8 (L (1 N 0 LITATOM)) V@HAչ@ jo@o IjAKJHKHLǿKkԻLkԼHI@(45 ERROR 40 CONCAT) NIL ( 35 "| into LISP package" 29 "Can't move fat LITATOM |") PACKAGE-INIT :D8 (L (0 |-args-|)) 'ekHikaI i(35 PACKAGE-ENABLE 30 PACKAGE-HIERARCHY-INIT 24 PACKAGE-MAKE 19 PACKAGE-CLEAR) NIL () (SET-DOCUMENTATION (QUOTE PACKAGE-INIT) (QUOTE CL:FUNCTION) "Clear, make structures of, initialize & convert symbols to, and enable use of the symbol package system." ) PACKAGE-CLEAR :D8 (F 4 *PACKAGE*) C` lkj"HIhcdddi`IhKJIkԹ(9 CLRHASH) (51 *PACKAGE-FROM-INDEX* 44 *INTERLISP-PACKAGE* 38 *KEYWORD-PACKAGE* 32 *LISP-PACKAGE* 4 *PACKAGE-FROM-NAME*) () (SET-DOCUMENTATION (QUOTE PACKAGE-CLEAR) (QUOTE CL:FUNCTION) "Clear the global package data (used by FIND-PACKAGE) and reset the globals that hold the existing packages." ) PACKAGE-MAKE :D8 NIL ooghgogogign oghgogogn ogogo ogogogo ogogogo ogo oghgigl` ogo ogo ogo gg gg i(363 MOVD 348 MOVD 333 CL:MAKE-PACKAGE 313 CL:MAKE-PACKAGE 293 CL:MAKE-PACKAGE 268 CL:MAKE-PACKAGE 238 CL:MAKE-PACKAGE 218 CL:MAKE-PACKAGE 177 CL:MAKE-PACKAGE 136 CL:MAKE-PACKAGE 100 CL:MAKE-PACKAGE 50 CL:MAKE-PACKAGE) (358 \\OLD.MKATOM 353 \\MKATOM 343 \\OLD.READ.SYMBOL 338 \\READ.SYMBOL 323 :USE 303 :USE 283 :USE 273 *KEYWORD-PACKAGE* 260 :EXTERNAL-SYMBOLS 254 :EXTERNAL-ONLY 248 :USE 228 :USE 207 :PREFIX-NAME 197 :NICKNAMES 187 :USE 166 :PREFIX-NAME 156 :NICKNAMES 146 :USE 125 :PREFIX-NAME 115 :USE 105 *LISP-PACKAGE* 91 :EXTERNAL-SYMBOLS 81 :PREFIX-NAME 71 :NICKNAMES 65 :USE 55 *INTERLISP-PACKAGE* 41 :EXTERNAL-SYMBOLS 35 :EXTERNAL-ONLY 25 :PREFIX-NAME 15 :NICKNAMES 9 :USE) ( 328 ("LISP" "XCL") 318 "XCL-USER" 308 "LISP" 298 "FASL" 288 "LISP" 278 "COMPILER" 243 "KEYWORD" 233 "LISP" 223 "USER" 212 "SI" 202 ("SYS" "SI") 192 "LISP" 182 "SYSTEM" 171 "XCL" 161 ("XCL") 151 ("LISP" "CONDITIONS") 141 "XEROX-COMMON-LISP" 130 "CONDITIONS" 120 "LISP" 110 "CONDITIONS" 86 "CL" 76 ("CL" "COMMON-LISP") 60 "LISP" 30 "IL" 20 ("IL") 4 "INTERLISP") (SET-DOCUMENTATION (QUOTE PACKAGE-MAKE) (QUOTE CL:FUNCTION) "Create, but do not fill with symbols, the base packages that need to exist. Also enables the package qualifier characters in the readtables and saves the old definitions of \\READ.SYMBOL and \\MKATOM." ) PACKAGE-HIERARCHY-INITA0001 :D8 (L (0 ATOM) F 0 CONVERT?) #P@ @`gg h(30 INTERN-LITATOM 7 CONVERT-LITATOM) (25 :EXTERNAL 20 :WHERE 15 *INTERLISP-PACKAGE*) () PACKAGE-HIERARCHY-INIT :D8 (I 0 CONVERT? F 1 CMLSYMBOLS.VARS F 2 CMLSYMBOLS.FNNAMES F 3 CMLSYMBOLS.DECLARATORS F 4 CMLSYMBOLS.LAMBDA.LIST.KEYWORDS F 5 CMLSYMBOLS.TYPENAMES F 6 CMLSYMBOLS.MACROS F 7 CMLSYMBOLS.SPECIALFORMS) Eg QRSUVWT Hi HX(61 CONCOCT-SYMBOL 47 \\APPEND2 42 \\APPEND2 37 \\APPEND2 32 \\APPEND2 27 \\APPEND2 22 \\APPEND2 9 MAPATOMS) (4 PACKAGE-HIERARCHY-INITA0001) () PACKAGE-ENABLE :D8 (L (0 |-args-|) F 2 *PER-EXEC-VARIABLES* F 3 *OLD-INTERLISP-READ-ENVIRONMENT* F 4 *DEFINE-FILE-INFO-ENV* F 5 *PACKAGE* F 6 *DEFAULT-MAKEFILE-ENVIRONMENT*) ekH`kaS`T`o o gl: o o gl: o o gl: gh oRgg coc gg gg Ic i(220 MOVD 205 MOVD 181 CL:ADJOIN 160 RPAQ? 148 READTABLEPROP 136 FIND-READTABLE 124 FIND-READTABLE 113 READTABLEPROP 101 FIND-READTABLE 89 FIND-READTABLE 78 READTABLEPROP 66 FIND-READTABLE 54 FIND-READTABLE) (215 \\MKATOM 210 \\NEW.MKATOM 200 \\READ.SYMBOL 195 \\NEW.READ.SYMBOL 176 CL:EQUAL 171 :TEST 154 *PER-EXEC-VARIABLES* 141 PACKAGECHAR 106 PACKAGECHAR 71 PACKAGECHAR 42 *INTERLISP-PACKAGE* 37 READER-ENVIRONMENT 29 *INTERLISP-PACKAGE* 24 READER-ENVIRONMENT 12 *INTERLISP-PACKAGE*) ( 188 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :FORMAT :XCCS) 165 (*PACKAGE* (COND ((CL:PACKAGEP *PACKAGE*) *PACKAGE*) (T (PROMPTPRINT "Invalid package, reset to LISP") (SETQ *PACKAGE* (CL:FIND-PACKAGE "LISP"))))) 131 "XCL" 119 "XCL" 96 "INTERLISP" 84 "INTERLISP" 61 "LISP" 49 "LISP") (SET-DOCUMENTATION (QUOTE PACKAGE-ENABLE) (QUOTE CL:FUNCTION) "Turn on the package system, making PACKAGE the current one and redefining \\READ.SYMBOL and \\MKATOM appropriatly." ) PACKAGE-DISABLE :D8 (F 0 *PACKAGE* F 1 *OLD-INTERLISP-READ-ENVIRONMENT*) lgg gg hcQho gj o gj o gj i(104 READTABLEPROP 93 FIND-READTABLE 83 READTABLEPROP 72 FIND-READTABLE 62 READTABLEPROP 51 FIND-READTABLE 29 MOVD 14 MOVD) (98 PACKAGECHAR 77 PACKAGECHAR 56 PACKAGECHAR 38 READER-ENVIRONMENT 24 \\MKATOM 19 \\OLD.MKATOM 9 \\READ.SYMBOL 4 \\OLD.READ.SYMBOL) ( 88 "XCL" 67 "INTERLISP" 46 "LISP") (SET-DOCUMENTATION (QUOTE PACKAGE-DISABLE) (QUOTE CL:FUNCTION) "Turn off the package system and restore the old definitions of \\\\READ.SYMBOL and \\MKATOM. After disabling, symbols interned under the package system will not be EQ to symbols of the same name reread." ) ID :D8 (L (0 X)) @NIL NIL () (PUTPROPS PACKAGE-STARTUP FILETYPE CL:COMPILE-FILE) (PUTPROPS PACKAGE-STARTUP MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "INTERLISP")) (MOVD? (QUOTE EQ) (QUOTE EQL)) (MOVD? (QUOTE LENGTH) (QUOTE CL:LENGTH)) (MOVD? (QUOTE ID) (QUOTE CL:IDENTITY)) (MOVD? (QUOTE ID) (QUOTE REMOVE-COMMENTS)) (PACKAGE-INIT) (PUTPROPS PACKAGE-STARTUP COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2021)) NIL