(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED " 9-Nov-93 01:36:18" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>PACKAGE-STARTUP.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED " 8-Apr-92 22:12:54" |{DSK}local>lde>lispcore>sources>PACKAGE-STARTUP.;23| 46549 |changes| |to:| (FUNCTIONS PACKAGE-MAKE) |previous| |date:| " 8-Apr-92 16:56:56" |{DSK}local>lde>lispcore>sources>PACKAGE-STARTUP.;22|) (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 CMLSYMBOLS.OTHER) (VARIABLES (* \; "Be very careful with this.") CMLSYMBOLS.SHARED) (* |;;| "Initialization for the COMMON-LISP-package") (VARIABLES NEWCLSYMS OLDCLSYMS SPLITCLSYMS STRANGECLSYMS XCLCLSYMS) (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 function to move the \"CL\" nickname between the LISP and COMMON-LISP packages") (FUNCTIONS FLIP-CL ) (* |;;| "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) WF@ABC 7VmDkU`U`Y@ABC @ABC`  1HH@ABC` YKKIIdKKJ D D@ABC E ED`=@ABCd*ABkAIH@IlI iIkYhhhDTh @ABCDT  1HHgID;@ABCd(ABkAKJ@KlK iKk[hhhDTi @ABC D (340 RESOLVE-MISSING-EXTERNAL-SYMBOL 334 \\GETBASESTRING 324 INTERN* 240 \\MVLIST 235 FIND-SYMBOL* 220 INTERN* 150 RESOLVE-MISSING-PACKAGE 144 \\GETBASESTRING 132 STRINGP 119 RESOLVE-READER-CONFLICT 99 FIND-SYMBOL* 74 \\MVLIST 69 FIND-SYMBOL* 48 CHECK-SYMBOL-NAMESTRING 10 \\PARSE.NUMBER) (264 PACKAGE 254 :EXTERNAL 159 *KEYWORD-PACKAGE* 93 *INTERLISP-PACKAGE* 63 *LISP-PACKAGE* 36 CODERDTBL 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" "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 ("COMPILATION-SPEED" "DECLARATION" "FTYPE" "FUNCTION" "IGNORE" "INLINE" "NOTINLINE" "OPTIMIZE" "SAFETY" "SPACE" "SPECIAL" "SPEED" "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" "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.OTHER))) (SETQ CMLSYMBOLS.OTHER (QUOTE ("VARIABLE" "STRUCTURE"))) (SET-DOCUMENTATION (QUOTE CMLSYMBOLS.OTHER) (QUOTE CL:VARIABLE) "These were exported in LISP-PACKAGE; don't know why they need to be, but what the heck...") (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"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL NEWCLSYMS))) (SETQ NEWCLSYMS (QUOTE ("*BREAK-ON-SIGNALS*" "*COMPILE-FILE-PATHNAME*" "*COMPILE-FILE-TRUENAME*" "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUGGER-HOOK*" "*LOAD-PATHNAME*" "*LOAD-PRINT*" "*LOAD-TRUENAME*" "*PRINT-LINES*" "*PRINT-MISER-WIDTH*" "*PRINT-PPRINT-DISPATCH*" "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*READ-EVAL*" "ABORT" "AUGMENT-ENVIRONMENT" "BASE-CHARACTER" "BASE-STRING" "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" "CELL-ERROR-NAME" "COMPILE-FILE-PATHNAME" "COMPILER-MACRO-FUNCTION" "COMPILER-MACROEXPAND" "COMPILER-MACROEXPAND-1" "COMPLEMENT" "COMPUTE-RESTARTS" "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS" "CONDITION" "CONTINUE" "COPY-PPRINT-DISPATCH" "DECLAIM" "DECLARATION-INFORMATION" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION" "DEFINE-DECLARATION" "DESTRUCTURING-BIND" "DIVISION-BY-ZERO" "DYNAMIC-EXTENT" "ECHO-STREAM" "ECHO-STREAM-INPUT-STREAM" "ECHO-STREAM-OUTPUT-STREAM" "ENCLOSE" "END-OF-FILE" "EXTENDED-CHARACTER" "FDEFINITION" "FILE-ERROR" "FILE-ERROR-PATHNAME" "FILE-STREAM" "FILE-STRING-LENGTH" "FIND-RESTART" "FLOATING-POINT-INEXACT" "FLOATING-POINT-INVALID-OPERATION" "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" "FORMATTER" "FUNCTION-INFORMATION" "FUNCTION-LAMBDA-EXPRESSION" "HANDLER-CASE" "HANDLER-BIND" "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-REHASH-THRESHOLD" "HASH-TABLE-SIZE" "HASH-TABLE-TEST" "IGNORE-ERRORS" "INTERACTIVE-STREAM-P" "INVOKE-DEBUGGER" "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-EVAL" "LOAD-TIME-VALUE" "LOGICAL-PATHNAME" "LOGICAL-PATHNAME-TRANSLATIONS" "MAKE-CONDITION" "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS" "MAP-INTO" "MUFFLE-WARNING" "NTH-VALUE" "OPEN-STREAM-P" "PACKAGE-ERROR" "PARSE-ERROR" "PARSE-MACRO" "PATHNAME-MATCH-P" "PPRINT-DISPATCH" "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" "PPRINT-INDENT" "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE" "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRINT-NOT-READABLE" "PRINT-UNREADABLE-OBJECT" "PROGRAM-ERROR" "READER-ERROR" "READTABLE-CASE" "READTABLE-CASE" "REAL" "REALP" "RESTART" "RESTART-BIND" "RESTART-CASE" "SET-PPRINT-DISPATCH" "SIMPLE-BASE-STRING" "SIMPLE-CONDITION-FORMAT-ARGUMENTS" "SIMPLE-CONDITION-FORMAT-STRING" "STORE-VALUE" "STREAM-ERROR-STREAM" "STREAM-EXTERNAL-FORMAT" "STRING-STREAM" "STYLE-WARNING" "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "TRANSLATE-LOGICAL-PATHNAME" "TRANSLATE-PATHNAME" "TWO-WAY-STREAM" "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM" "TYPE-ERROR-DATUM" "UNBOUND-SLOT" "UNBOUND-VARIABLE" "UPGRADED-ARRAY-ELEMENT-TYPE" "UPGRADED-COMPLEX-PART-TYPE" "USE-VALUE" "VARIABLE-INFORMATION" "WILD-PATHNAME-P" "WITH-COMPILATION-UNIT" "WITH-CONDITION-RESTARTS" "WITH-HASH-TABLE-ITERATOR" "WITH-PACKAGE-ITERATOR" "WITH-SIMPLE-RESTART" "WITH-STANDARD-IO-SYNTAX"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL OLDCLSYMS))) (SETQ OLDCLSYMS (QUOTE ("COMMON" "COMMONP" "STRING-CHAR" "STRING-CHAR-P" "INT-CHAR" "COMPILER-LET" "CHAR-BIT" "SET-CHAR-BIT" "*MODULES*" "PROVIDE" "REQUIRE" "CHAR-FONT-LIMIT" "CHAR-BITS-LIMIT" "CHAR-BITS" "CHAR-FONT" "MAKE-CHAR" "CHAR-CONTROL-BIT" "CHAR-META-BIT" "CHAR-SUPER-BIT" "CHAR-HYPER-BIT" "*BREAK-ON-WARNINGS*"))) (SET-DOCUMENTATION (QUOTE OLDCLSYMS) (QUOTE CL:VARIABLE) "Symbols in LISP and not in COMMON-LISP") (CL:PROCLAIM (QUOTE (CL:SPECIAL SPLITCLSYMS))) (SETQ SPLITCLSYMS (QUOTE ("LOCALLY" "IN-PACKAGE"))) (CL:PROCLAIM (QUOTE (CL:SPECIAL STRANGECLSYMS))) (SETQ STRANGECLSYMS (QUOTE (("LISP" "SIMPLE-STRING" "*GENSYM-COUNTER*") ("XCL" "ROW-MAJOR-AREF")))) (SET-DOCUMENTATION (QUOTE STRANGECLSYMS) (QUOTE CL:VARIABLE) "Symbols in CL that are predefined in the loadup in another package") (CL:PROCLAIM (QUOTE (CL:SPECIAL XCLCLSYMS))) (SETQ XCLCLSYMS (QUOTE ("ABORT" "ARITHMETIC-ERROR" "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION" "BROADCAST-STREAM-STREAMS" "CELL-ERROR" "CELL-ERROR-NAME" "CONCATENATED-STREAM-STREAMS" "CONDITION" "CONTROL-ERROR" "DEFINE-CONDITION" "DEFPACKAGE" "DESTRUCTURING-BIND" "DELETE-PACKAGE" "ECHO-STREAM-INPUT-STREAM" "ECHO-STREAM-OUTPUT-STREAM" "END-OF-FILE" "HANDLER-BIND" "IGNORE-ERRORS" "MAKE-CONDITION" "OPEN-STREAM-P" "PACKAGE-ERROR" "PACKAGE-ERROR-PACKAGE" "SERIOUS-CONDITION" "SIGNAL" "SIMPLE-CONDITION" "SIMPLE-CONDITION-FORMAT-ARGUMENTS" "SIMPLE-CONDITION-FORMAT-STRING" "SIMPLE-ERROR" "SIMPLE-TYPE-ERROR" "SIMPLE-WARNING" "STORAGE-CONDITION" "STORE-VALUE" "STREAM-ERROR" "STREAM-ERROR-STREAM" "SYNONYM-STREAM-SYMBOL" "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM" "TYPE-ERROR" "TYPE-ERROR-EXPECTED-TYPE" "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "USE-VALUE" "WARNING"))) 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 "COMMON-LISP" :INTERNAL) ("CL:" ("CL:REAL" "CL:BASE-CHARACTER" "CL:EXTENDED-CHARACTER" "CL:READTABLE-CASE" "CL:SIMPLE-STRING" "CL:BASE-STRING" "CL:SIMPLE-BASE-STRING" "CL:BROADCAST-STREAM" "CL:CONCATENATED-STREAM" "CL:ECHO-STREAM" "CL:SYNONYM-STREAM" "CL:STRING-STREAM" "CL:FILE-STREAM" "CL:TWO-WAY-STREAM" "CL:UPGRADED-ARRAY-ELEMENT-TYPE" "CL:UPGRADED-COMPLEX-PART-TYPE" "CL:LOAD-TIME-EVAL" "CL:REALP" "CL:FDEFINITION" "CL:NTH-VALUE" "CL:DESTRUCTURING-BIND" "CL:DEFINE-COMPILER-MACRO" "CL:COMPILER-MACRO-FUNCTION" "CL:COMPILER-MACROEXPAND" "CL:COMPILER-MACROEXPAND-1" "CL:VARIABLE-INFORMATION" "CL:FUNCTION-INFORMATION" "CL:DECLARATION-INFORMATION" "CL:AUGMENT-ENVIRONMENT" "CL:DEFINE-DECLARATION" "CL:PARSE-MACRO" "CL:ENCLOSE" "CL:DECLAIM" "CL:DYNAMIC-EXTENT" "CL:*GENSYM-COUNTER*" "CL:WITH-PACKAGE-ITERATOR" "CL:LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" "CL:LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" "CL:LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" "CL:LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" "CL:COMPLEMENT" "CL:MAP-INTO" "CL:WITH-HASH-TABLE-ITERATOR" "CL:HASH-TABLE-REHASH-SIZE" "CL:HASH-TABLE-REHASH-THRESHOLD" "CL:HASH-TABLE-SIZE" "CL:HASH-TABLE-TEST" "CL:ROW-MAJOR-AREF" "CL:OPEN-STREAM-P" "CL:BROADCAST-STREAM-STREAMS" "CL:CONCATENATED-STREAM-STREAMS" "CL:ECHO-STREAM-INPUT-STREAM" "CL:ECHO-STREAM-OUTPUT-STREAM" "CL:SYNONYM-STREAM-SYMBOL" "CL:TWO-WAY-STREAM-INPUT-STREAM" "CL:TWO-WAY-STREAM-OUTPUT-STREAM" "CL:INTERACTIVE-STREAM-P" "CL:STREAM-EXTERNAL-FORMAT" "CL:*READ-EVAL*" "CL:READTABLE-CASE" "CL:*PRINT-READABLY*" "CL:WITH-STANDARD-IO-SYNTAX" "CL:PRINT-UNREADABLE-OBJECT" "CL:WILD-PATHNAME-P" "CL:PATHNAME-MATCH-P" "CL:TRANSLATE-PATHNAME" "CL:LOGICAL-PATHNAME" "CL:TRANSLATE-LOGICAL-PATHNAME" "CL:LOGICAL-PATHNAME-TRANSLATIONS" "CL:LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "CL:COMPILE-FILE-PATHNAME" "CL:FILE-STRING-LENGTH" "CL:*LOAD-PRINT*" "CL:*LOAD-PATHNAME*" "CL:*LOAD-TRUENAME*" "CL:MAKE-LOAD-FORM" "CL:MAKE-LOAD-FORM-SAVING-SLOTS" "CL:*COMPILE-VERBOSE" "CL:*COMPILE-PRINT*" "CL:*COMPILE-FILE-PATHNAME*" "CL:*COMPILE-FILE-TRUENAME*" "CL:LOAD-TIME-VALUE" "CL:FUNCTION-LAMBDA-EXPRESSION" "CL:WITH-COMPILATION-UNIT" "CL:IN-PACKAGE" "CL:LOCALLY") ( "COMMON-LISP" "LISP") :EXTERNAL) ("CL:" NIL "COMMON-LISP" :EXTERNAL) ("LISP::" NIL "LISP" :INTERNAL) ( "LISP:" ("LISP:COMMON" "LISP:COMMONP" "LISP:STRING-CHAR" "LISP:STRING-CHAR-P" "LISP:INT-CHAR" "LISP:COMPILER-LET" "LISP:CHAR-BIT" "LISP:SET-CHAR-BIT" "LISP:*MODULES*" "LISP:PROVIDE" "LISP:REQUIRE" "LISP:CHAR-FONT-LIMIT" "LISP:CHAR-BITS-LIMIT" "LISP:CHAR-BITS" "LISP:CHAR-FONT" "LISP:MAKE-CHAR" "LISP:CHAR-CONTROL-BIT" "LISP:CHAR-META-BIT" "LISP:CHAR-SUPER-BIT" "LISP:CHAR-HYPER-BIT" "LISP:*BREAK-ON-WARNINGS*" "LISP:LOCALLY" "LISP:IN-PACKAGE") ("COMMON-LISP" "LISP") :EXTERNAL) ( "LISP:" NIL "LISP" :EXTERNAL) (":" NIL "KEYWORD" :EXTERNAL) ("CONDITIONS::" NIL "CONDITIONS" :INTERNAL ) ("CONDITIONS:" ("CONDITIONS:*BREAK-ON-SIGNALS*" "CONDITIONS:COMPUTE-RESTARTS" "CONDITIONS:CONTINUE" "CONDITIONS:DIVISION-BY-ZERO" "CONDITIONS:FILE-ERROR" "CONDITIONS:FILE-ERROR-PATHNAME" "CONDITIONS:FIND-RESTART" "CONDITIONS:FLOATING-POINT-OVERFLOW" "CONDITIONS:FLOATING-POINT-UNDERFLOW" "CONDITIONS:INVOKE-DEBUGGER" "CONDITIONS:INVOKE-RESTART" "CONDITIONS:INVOKE-RESTART-INTERACTIVELY" "CONDITIONS:MUFFLE-WARNING" "CONDITIONS:PROGRAM-ERROR" "CONDITIONS:RESTART" "CONDITIONS:RESTART-BIND" "CONDITIONS:RESTART-CASE" "CONDITIONS:TYPE-ERROR-DATUM" "CONDITIONS:UNBOUND-SLOT" "CONDITIONS:WITH-CONDITION-RESTARTS" "CONDITIONS:WITH-SIMPLE-RESTART") "CONDITIONS" :EXTERNAL) ( "CONDITIONS:" NIL ("COMMON-LISP" "CONDITIONS") :EXTERNAL) ("XCL::" NIL "XCL" :INTERNAL) ("XCL:" ( "XCL:ABORT" "XCL:ARITHMETIC-ERROR" "XCL:BROADCAST-STREAM-STREAMS" "XCL:CELL-ERROR" "XCL:CELL-ERROR-NAME" "XCL:CONCATENATED-STREAM-STREAMS" "XCL:CONDITION" "XCL:CONTROL-ERROR" "XCL:DEFINE-CONDITION" "XCL:DEFPACKAGE" "XCL:DELETE-PACKAGE" "XCL:DESTRUCTURING-BIND" "XCL:DIVISION-BY-ZERO" "XCL:ECHO-STREAM-INPUT-STREAM" "XCL:ECHO-STREAM-OUTPUT-STREAM" "XCL:END-OF-FILE" "XCL:FILE-ERROR" "XCL:FLOATING-POINT-OVERFLOW" "XCL:FLOATING-POINT-UNDERFLOW" "XCL:HANDLER-BIND" "XCL:IGNORE-ERRORS" "XCL:MAKE-CONDITION" "XCL:MAKE-VECTOR" "XCL:OPEN-STREAM-P" "XCL:PACKAGE-ERROR" "XCL:PROGRAM-ERROR" "XCL:ROW-MAJOR-AREF" "XCL:SERIOUS-CONDITION" "XCL:SIGNAL" "XCL:SIMPLE-CONDITION" "XCL:SIMPLE-CONDITION-FORMAT-ARGUMENTS" "XCL:SIMPLE-CONDITION-FORMAT-STRING" "XCL:SIMPLE-ERROR" "XCL:SIMPLE-STRING" "XCL:SIMPLE-TYPE-ERROR" "XCL:SIMPLE-WARNING" "XCL:STORAGE-CONDITION" "XCL:STORE-VALUE" "XCL:STREAM-ERROR" "XCL:STREAM-ERROR-STREAM" "XCL:STRING-STREAM-P" "XCL:SYNONYM-STREAM-SYMBOL" "XCL:TWO-WAY-STREAM-INPUT-STREAM" "XCL:TWO-WAY-STREAM-OUTPUT-STREAM" "XCL:TYPE-ERROR" "XCL:UNBOUND-VARIABLE" "XCL:UNDEFINED-FUNCTION" "XCL:USE-VALUE" "XCL:WARNING") "XCL" :EXTERNAL) ("XCL:" NIL ("COMMON-LISP" "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)) @q@@ jhHkIJ d'[KKLl _@O Mi\@M gN M! O_ _oO @O Ng@O O_@M gN (188 INTERN-LITATOM 177 CL:FIND-PACKAGE 162 EXPORT 145 IMPORT 136 ERROR 121 CL:FIND-PACKAGE 99 INTERN-LITATOM 88 CL:FIND-PACKAGE 72 \\LITATOM.EATCHARS 61 \\GETBASEFIXP 36 NAMESTRING-CONVERSION-CLAUSE) (182 :WHERE 152 :EXTERNAL 93 :WHERE) ( 129 "Missing package named ~s") CONCOCT-SYMBOL :D8 (L (0 STRING) F 7 OLDCLSYMS F 8 CMLSYMBOLS.SHARED) {p@` [KYgJ` JIU@dWgg H` @Wgg H@` o@H h@dWgg @d` o@ Wgg $@` \` L` @` ]` M` M` M` Wgg @` ` @` ^` N` N` (376 EXPORT 365 IMPORT 354 EXPORT 343 CL:INTERN 331 EXPORT 321 CL:INTERN 308 CL:MEMBER 290 IMPORT 279 EXPORT 268 IMPORT 257 EXPORT 246 CL:INTERN 234 IMPORT 223 EXPORT 212 CL:INTERN 199 CL:MEMBER 181 CL:ERROR 168 CL:FIND-SYMBOL 151 CL:MEMBER 129 CL:ERROR 116 CL:FIND-SYMBOL 100 CL:MEMBER 81 IMPORT 68 CL:MEMBER 43 EXPORT 18 \\MVLIST 13 CL:FIND-SYMBOL) (371 *LISP-PACKAGE* 360 *LISP-PACKAGE* 349 *COMMON-LISP-PACKAGE* 338 *COMMON-LISP-PACKAGE* 326 *LISP-PACKAGE* 316 *LISP-PACKAGE* 303 STREQUAL 298 :TEST 285 *INTERLISP-PACKAGE* 274 *LISP-PACKAGE* 263 *LISP-PACKAGE* 252 *COMMON-LISP-PACKAGE* 241 *COMMON-LISP-PACKAGE* 229 *INTERLISP-PACKAGE* 218 *LISP-PACKAGE* 207 *LISP-PACKAGE* 194 STREQUAL 189 :TEST 163 *INTERLISP-PACKAGE* 146 STREQUAL 141 :TEST 111 *COMMON-LISP-PACKAGE* 95 STREQUAL 90 :TEST 76 *INTERLISP-PACKAGE* 63 STREQUAL 58 :TEST 38 *LISP-PACKAGE* 30 :INTERNAL 8 *LISP-PACKAGE*) ( 175 "Shared symbol found in IL: ~S" 122 "Gotcha! ~s ~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*) I` lkj"HI hcddddi`IhKJIkԹ(9 CLRHASH) (57 *PACKAGE-FROM-INDEX* 50 *INTERLISP-PACKAGE* 44 *KEYWORD-PACKAGE* 38 *COMMON-LISP-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 oghgogogign oghgn oghgogogn ogogo ogogogo ogogogo ogo ogogogo oghgigl` ogo ogo ogo gg gg i(434 MOVD 419 MOVD 404 CL:MAKE-PACKAGE 384 CL:MAKE-PACKAGE 364 CL:MAKE-PACKAGE 339 CL:MAKE-PACKAGE 309 CL:MAKE-PACKAGE 268 CL:MAKE-PACKAGE 248 CL:MAKE-PACKAGE 207 CL:MAKE-PACKAGE 166 CL:MAKE-PACKAGE 130 CL:MAKE-PACKAGE 80 CL:MAKE-PACKAGE 50 CL:MAKE-PACKAGE) (429 \\OLD.MKATOM 424 \\MKATOM 414 \\OLD.READ.SYMBOL 409 \\READ.SYMBOL 394 :USE 374 :USE 354 :USE 344 *KEYWORD-PACKAGE* 331 :EXTERNAL-SYMBOLS 325 :EXTERNAL-ONLY 319 :USE 298 :PREFIX-NAME 288 :NICKNAMES 278 :USE 258 :USE 237 :PREFIX-NAME 227 :NICKNAMES 217 :USE 196 :PREFIX-NAME 186 :NICKNAMES 176 :USE 155 :PREFIX-NAME 145 :USE 135 *COMMON-LISP-PACKAGE* 121 :EXTERNAL-SYMBOLS 111 :PREFIX-NAME 101 :NICKNAMES 95 :USE 85 *LISP-PACKAGE* 71 :EXTERNAL-SYMBOLS 65 :USE 55 *INTERLISP-PACKAGE* 41 :EXTERNAL-SYMBOLS 35 :EXTERNAL-ONLY 25 :PREFIX-NAME 15 :NICKNAMES 9 :USE) ( 399 ("LISP" "XCL") 389 "XCL-USER" 379 "LISP" 369 "FASL" 359 "LISP" 349 "COMPILER" 314 "KEYWORD" 303 "CL-USER" 293 ("CL-USER") 283 ("COMMON-LISP" "XCL") 273 "COMMON-LISP-USER" 263 "LISP" 253 "USER" 242 "SI" 232 ("SYS" "SI") 222 "LISP" 212 "SYSTEM" 201 "XCL" 191 ("XCL") 181 ("LISP" "CONDITIONS") 171 "XEROX-COMMON-LISP" 160 "CONDITIONS" 150 "COMMON-LISP" 140 "CONDITIONS" 116 "CL" 106 ("CL") 90 "COMMON-LISP" 60 "LISP" 30 "IL" 20 ("IL") 4 "INTERLISP") 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 5 CMLSYMBOLS.VARS F 6 CMLSYMBOLS.FNNAMES F 7 SPLITCLSYMS F 8 CMLSYMBOLS.DECLARATORS F 9 CMLSYMBOLS.TYPENAMES F 10 CMLSYMBOLS.MACROS F 11 CMLSYMBOLS.SPECIALFORMS F 12 XCLCLSYMS F 13 CMLSYMBOLS.LAMBDA.LIST.KEYWORDS F 14 CMLSYMBOLS.OTHER F 15 STRANGECLSYMS F 16 NEWCLSYMS) i g UVWWWWWW H:WAH=WHmo 1WZW Hi HXY IZHXK \J` L` Y` ` I` ` HXc[H Y.K` Y` IH IH J>` I` I` ` ` HX (352 EXPORT 342 CL:INTERN 329 SETF-SYMBOL-PACKAGE 317 EXPORT 305 IMPORT 289 EXPORT 281 IMPORT 273 EXPORT 262 CL:INTERN 248 CL:FIND-SYMBOL 233 EXPORT 223 CL:INTERN 211 EXPORT 201 CL:INTERN 186 EXPORT 174 IMPORT 158 CL:FIND-SYMBOL 140 CL:FIND-PACKAGE 126 CONCOCT-SYMBOL 93 CL:FIND-PACKAGE 58 \\APPEND2 53 \\APPEND2 48 \\APPEND2 43 \\APPEND2 38 \\APPEND2 33 \\APPEND2 28 \\APPEND2 9 MAPATOMS) (347 *COMMON-LISP-PACKAGE* 337 *COMMON-LISP-PACKAGE* 324 *COMMON-LISP-PACKAGE* 312 *COMMON-LISP-PACKAGE* 300 *COMMON-LISP-PACKAGE* 268 *COMMON-LISP-PACKAGE* 257 *COMMON-LISP-PACKAGE* 228 *LISP-PACKAGE* 218 *LISP-PACKAGE* 206 *COMMON-LISP-PACKAGE* 196 *COMMON-LISP-PACKAGE* 181 *COMMON-LISP-PACKAGE* 169 *COMMON-LISP-PACKAGE* 4 PACKAGE-HIERARCHY-INITA0001) ( 88 "XCL") PACKAGE-ENABLE :D8 (L (0 |-args-|) F 6 *PER-EXEC-VARIABLES* F 7 *OLD-INTERLISP-READ-ENVIRONMENT* F 8 *DEFAULT-MAKEFILE-ENVIRONMENT* F 9 *PACKAGE*) dekH`kaW`o o gl: o o gl: o o gl: o o gl: gh oVgg c ocgg gg Ic`kLK^`LlZd3 djJJn] d`M ``M ` Lk\i(345 IMPORT 335 TYPE-VARIABLE-FROM-TYPE-NAME 314 TYPE-VARIABLE-FROM-TYPE-NAME 299 CL:SYMBOL-PACKAGE 243 MOVD 228 MOVD 204 CL:ADJOIN 183 RPAQ? 171 READTABLEPROP 159 FIND-READTABLE 147 FIND-READTABLE 136 READTABLEPROP 124 FIND-READTABLE 112 FIND-READTABLE 101 READTABLEPROP 89 FIND-READTABLE 77 FIND-READTABLE 66 READTABLEPROP 54 FIND-READTABLE 42 FIND-READTABLE) (340 *LISP-PACKAGE* 326 *COMMON-LISP-PACKAGE* 319 *COMMON-LISP-PACKAGE* 305 *LISP-PACKAGE* 265 |\\DTDSpaceBase| 251 |\\MaxTypeNumber| 238 \\MKATOM 233 \\NEW.MKATOM 223 \\READ.SYMBOL 218 \\NEW.READ.SYMBOL 199 CL:EQUAL 194 :TEST 177 *PER-EXEC-VARIABLES* 164 PACKAGECHAR 129 PACKAGECHAR 94 PACKAGECHAR 59 PACKAGECHAR 30 *INTERLISP-PACKAGE* 25 READER-ENVIRONMENT 12 *INTERLISP-PACKAGE*) ( 211 (:READTABLE "XCL" :PACKAGE "INTERLISP") 188 (*PACKAGE* (COND ((CL:PACKAGEP *PACKAGE*) *PACKAGE*) (T (PROMPTPRINT "Invalid package, reset to LISP") (SETQ *PACKAGE* (CL:FIND-PACKAGE "LISP"))))) 154 "XCL" 142 "XCL" 119 "INTERLISP" 107 "INTERLISP" 84 "COMMON-LISP" 72 "COMMON-LISP" 49 "LISP" 37 "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." ) FLIP-CL :D8 (L (0 WHERE)) o Hd`g$d`ggoH X@Ydg0`ohd `ooo tg/`ohd `ooo ?Ig&`ohd `ohd gIo H(235 ECASE-FAIL 218 CL:RENAME-PACKAGE 200 CL:RENAME-PACKAGE 172 CL:RENAME-PACKAGE 146 CL:RENAME-PACKAGE 119 CL:RENAME-PACKAGE 93 CL:RENAME-PACKAGE 63 ERROR 9 CL:FIND-PACKAGE) (224 WHERE 206 *COMMON-LISP-PACKAGE* 188 *LISP-PACKAGE* 180 :NOWHERE 152 *COMMON-LISP-PACKAGE* 134 *LISP-PACKAGE* 126 :COMMON-LISP 99 *LISP-PACKAGE* 81 *COMMON-LISP-PACKAGE* 72 :LISP 51 :NOWHERE 43 :LISP 35 *LISP-PACKAGE* 27 :COMMON-LISP 19 *COMMON-LISP-PACKAGE*) ( 230 (:LISP :COMMON-LISP :NOWHERE) 211 "COMMON-LISP" 193 "LISP" 167 "CL" 162 ("CL") 157 "COMMON-LISP" 139 "LISP" 114 "CL" 109 ("CL") 104 "LISP" 86 "COMMON-LISP" 57 "CL nickname in odd package" 4 "CL") 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 1992)) NIL