;;; -*- Mode:LISP; Package:K2; Readtable:CL; Base:10. -*- (eval-when (compile load) (defparameter warm-symbols-list '(("T" . gr:*t*) ; $$$ Explicitly refer to the One and only T, GR:*T*. <22-Nov-88 wkf> ;; $$$ Nil not here since it has its own fasl opcode and is not in gr:*WARM-SYMBOLS* <21-Nov-88 wkf> ;; ("NIL" . PRIMITIVES:NIL) ; $$$ Explicitly added. <21-Nov-88 wkf> ("" . LISP-INTERNALS::) ("%%CH-CHAR" . LISP-INTERNALS::%%CH-CHAR) ("%%CH-FONT" . LISP-INTERNALS::%%CH-FONT) ("%POINTER" . LISP-INTERNALS::%POINTER) ("&ALLOW-OTHER-KEYS" . LISP-INTERNALS::&ALLOW-OTHER-KEYS) ("**" . LISP-INTERNALS::**) ("***" . LISP-INTERNALS::***) ("*ALL-PACKAGES*" . LISP-INTERNALS::*ALL-PACKAGES*) ("*APPLYHOOK*" . LISP-INTERNALS::*APPLYHOOK*) ("*DEBUG-IO*" . LISP-INTERNALS::*DEBUG-IO*) ("*ERROR-OUTPUT*" . LISP-INTERNALS::*ERROR-OUTPUT*) ("*EVALHOOK*" . LISP-INTERNALS::*EVALHOOK*) ("*MACROEXPAND-HOOK*" . LISP-INTERNALS::*MACROEXPAND-HOOK*) ("*MODULES*" . LISP-INTERNALS::*MODULES*) ("*PACKAGE*" . LISP-INTERNALS::*PACKAGE*) ("*PRINT-ARRAY*" . LISP-INTERNALS::*PRINT-ARRAY*) ("*PRINT-BASE*" . LISP-INTERNALS::*PRINT-BASE*) ("*PRINT-CASE*" . LISP-INTERNALS::*PRINT-CASE*) ("*PRINT-CIRCLE*" . LISP-INTERNALS::*PRINT-CIRCLE*) ("*PRINT-ESCAPE*" . LISP-INTERNALS::*PRINT-ESCAPE*) ("*PRINT-GENSYM*" . LISP-INTERNALS::*PRINT-GENSYM*) ("*PRINT-LENGTH*" . LISP-INTERNALS::*PRINT-LENGTH*) ("*PRINT-LEVEL*" . LISP-INTERNALS::*PRINT-LEVEL*) ("*PRINT-PRETTY*" . LISP-INTERNALS::*PRINT-PRETTY*) ("*PRINT-RADIX*" . LISP-INTERNALS::*PRINT-RADIX*) ("*QUERY-IO*" . LISP-INTERNALS::*QUERY-IO*) ("*READ-BASE*" . LISP-INTERNALS::*READ-BASE*) ("*READ-DEFAULT-FLOAT-FORMAT*" . LISP-INTERNALS::*READ-DEFAULT-FLOAT-FORMAT*) ("*READ-SUPPRESS*" . LISP-INTERNALS::*READ-SUPPRESS*) ("*READTABLE*" . LISP-INTERNALS::*READTABLE*) ("*STANDARD-INPUT*" . LISP-INTERNALS::*STANDARD-INPUT*) ("*STANDARD-OUTPUT*" . LISP-INTERNALS::*STANDARD-OUTPUT*) ("*TERMINAL-IO*" . LISP-INTERNALS::*TERMINAL-IO*) ("*TRACE-OUTPUT*" . LISP-INTERNALS::*TRACE-OUTPUT*) ("++" . LISP-INTERNALS::++) ("+++" . LISP-INTERNALS::+++) ("//" . LISP-INTERNALS:://) ("///" . LISP-INTERNALS::///) ("/=" . LISP-INTERNALS::/=) ("ABS" . LISP-INTERNALS::ABS) ("ACONS" . LISP-INTERNALS::ACONS) ("ADJOIN" . LISP-INTERNALS::ADJOIN) ("ADJUSTABLE-ARRAY-P" . ARRAY:ADJUSTABLE-ARRAY-P) ("ALPHA-CHAR-P" . LISP-INTERNALS::ALPHA-CHAR-P) ("ALPHABETIC-CASE-AFFECTS-STRING-COMPARISON" . LISP-INTERNALS::ALPHABETIC-CASE-AFFECTS-STRING-COMPARISON) ("ALPHANUMERICP" . LISP-INTERNALS::ALPHANUMERICP) ("APPLY" . LISP-INTERNALS::APPLY) ("AREA-NUMBER" . LISP-INTERNALS::AREA-NUMBER) ("ARG" . LISP-INTERNALS::ARG) ("ARGLIST" . LISP-INTERNALS::ARGLIST) ("ARGS" . LISP-INTERNALS::ARGS) ("ARRAY" . LISP-INTERNALS::ARRAY) ("ARRAY-DIMENSION" . ARRAY:ARRAY-DIMENSION) ("ARRAY-DIMENSION-LIMIT" . ARRAY:ARRAY-DIMENSION-LIMIT) ("ARRAY-DIMENSIONS" . ARRAY:ARRAY-DIMENSIONS) ("ARRAY-ELEMENT-TYPE" . ARRAY:ARRAY-ELEMENT-TYPE) ("ARRAY-HAS-FILL-POINTER-P" . ARRAY:ARRAY-HAS-FILL-POINTER-P) ("ARRAY-IN-BOUNDS-P" . ARRAY:ARRAY-IN-BOUNDS-P) ("ARRAY-INITIALIZE" . LISP-INTERNALS::ARRAY-INITIALIZE) ("ARRAY-RANK" . ARRAY:ARRAY-RANK) ("ARRAY-RANK-LIMIT" . ARRAY:ARRAY-RANK-LIMIT) ("ARRAY-ROW-MAJOR-INDEX" . ARRAY:ARRAY-ROW-MAJOR-INDEX) ("ARRAY-TOTAL-SIZE" . ARRAY:ARRAY-TOTAL-SIZE) ("ARRAY-TOTAL-SIZE-LIMIT" . ARRAY:ARRAY-TOTAL-SIZE-LIMIT) ("ARRAYP" . VINCULUM:ARRAYP) ("ASET" . ARRAY:ASET) ("ASS" . LISP-INTERNALS::ASS) ("ASSIGN-ALTERNATE" . LISP-INTERNALS::ASSIGN-ALTERNATE) ("ASSIGN-VALUES" . LISP-INTERNALS::ASSIGN-VALUES) ("ASSOC-IF" . LISP-INTERNALS::ASSOC-IF) ("ASSOC-IF-NOT" . LISP-INTERNALS::ASSOC-IF-NOT) ("ASSQ" . LISP-INTERNALS::ASSQ) ("ATOM" . VINCULUM:ATOM) ("BIGNUM" . LISP-INTERNALS::BIGNUM) ("BIND" . LISP-INTERNALS::BIND) ("BIT" . LISP-INTERNALS::BIT) ("BIT-VECTOR" . LISP-INTERNALS::BIT-VECTOR) ("BIT-VECTOR-P" . ARRAY:BIT-VECTOR-P) ("BOOLE" . LISP-INTERNALS::BOOLE) ("BOOLE-1" . LISP-INTERNALS::BOOLE-1) ("BOOLE-2" . LISP-INTERNALS::BOOLE-2) ("BOOLE-AND" . LISP-INTERNALS::BOOLE-AND) ("BOOLE-ANDC1" . LISP-INTERNALS::BOOLE-ANDC1) ("BOOLE-ANDC2" . LISP-INTERNALS::BOOLE-ANDC2) ("BOOLE-C1" . LISP-INTERNALS::BOOLE-C1) ("BOOLE-C2" . LISP-INTERNALS::BOOLE-C2) ("BOOLE-CLR" . LISP-INTERNALS::BOOLE-CLR) ("BOOLE-EQV" . LISP-INTERNALS::BOOLE-EQV) ("BOOLE-IOR" . LISP-INTERNALS::BOOLE-IOR) ("BOOLE-NAND" . LISP-INTERNALS::BOOLE-NAND) ("BOOLE-NOR" . LISP-INTERNALS::BOOLE-NOR) ("BOOLE-ORC1" . LISP-INTERNALS::BOOLE-ORC1) ("BOOLE-ORC2" . LISP-INTERNALS::BOOLE-ORC2) ("BOOLE-SET" . LISP-INTERNALS::BOOLE-SET) ("BOOLE-XOR" . LISP-INTERNALS::BOOLE-XOR) ("BOTH-CASE-P" . LISP-INTERNALS::BOTH-CASE-P) ("BOUNDP" . SYMBOL:BOUNDP) ("BREAK" . LISP-INTERNALS::BREAK) ("BUTLAST" . LISP-INTERNALS::BUTLAST) ("BYTE" . PRIMITIVES:BYTE) ("BYTE-POSITION" . PRIMITIVES:BYTE-POSITION) ("BYTE-SIZE" . PRIMITIVES:BYTE-SIZE) ("CAAAAR" . CONS:CAAAAR) ("CAAADR" . CONS:CAAADR) ("CAAAR" . CONS:CAAAR) ("CAADAR" . CONS:CAADAR) ("CAADDR" . CONS:CAADDR) ("CAADR" . CONS:CAADR) ("CAAR" . CONS:CAAR) ("CADAAR" . CONS:CADAAR) ("CADADR" . CONS:CADADR) ("CADAR" . CONS:CADAR) ("CADDAR" . CONS:CADDAR) ("CADDDR" . CONS:CADDDR) ("CADDR" . CONS:CADDR) ("CADR" . CONS:CADR) ("CALL" . K:CALL) ("CALL-ARGUMENTS-LIMIT" . LISP-INTERNALS::CALL-ARGUMENTS-LIMIT) ("CAR" . CONS:CAR) ("CCASE" . LISP-INTERNALS::CCASE) ("CDAAAR" . CONS:CDAAAR) ("CDAADR" . CONS:CDAADR) ("CDAAR" . CONS:CDAAR) ("CDADAR" . CONS:CDADAR) ("CDADDR" . CONS:CDADDR) ("CDADR" . CONS:CDADR) ("CDAR" . CONS:CDAR) ("CDDAAR" . CONS:CDDAAR) ("CDDADR" . CONS:CDDADR) ("CDDAR" . CONS:CDDAR) ("CDDDAR" . CONS:CDDDAR) ("CDDDDR" . CONS:CDDDDR) ("CDDDR" . CONS:CDDDR) ("CDDR" . CONS:CDDR) ("CDR" . CONS:CDR) ("CERROR" . LISP-INTERNALS::CERROR) ("CHAR" . LISP-INTERNALS::CHAR) ("CHAR-BIT" . LISP-INTERNALS::CHAR-BIT) ("CHAR-BITS" . LISP-INTERNALS::CHAR-BITS) ("CHAR-BITS-LIMIT" . LISP-INTERNALS::CHAR-BITS-LIMIT) ("CHAR-CODE" . LISP-INTERNALS::CHAR-CODE) ("CHAR-CODE-LIMIT" . LISP-INTERNALS::CHAR-CODE-LIMIT) ("CHAR-CONTROL-BIT" . LISP-INTERNALS::CHAR-CONTROL-BIT) ("CHAR-DOWNCASE" . LISP-INTERNALS::CHAR-DOWNCASE) ("CHAR-EQUAL" . LISP-INTERNALS::CHAR-EQUAL) ("CHAR-FONT" . LISP-INTERNALS::CHAR-FONT) ("CHAR-FONT-LIMIT" . LISP-INTERNALS::CHAR-FONT-LIMIT) ("CHAR-GREATERP" . LISP-INTERNALS::CHAR-GREATERP) ("CHAR-HYPER-BIT" . LISP-INTERNALS::CHAR-HYPER-BIT) ("CHAR-INT" . LISP-INTERNALS::CHAR-INT) ("CHAR-LESSP" . LISP-INTERNALS::CHAR-LESSP) ("CHAR-META-BIT" . LISP-INTERNALS::CHAR-META-BIT) ("CHAR-NAME" . LISP-INTERNALS::CHAR-NAME) ("CHAR-NOT-EQUAL" . LISP-INTERNALS::CHAR-NOT-EQUAL) ("CHAR-NOT-GREATERP" . LISP-INTERNALS::CHAR-NOT-GREATERP) ("CHAR-NOT-LESSP" . LISP-INTERNALS::CHAR-NOT-LESSP) ("CHAR-SUPER-BIT" . LISP-INTERNALS::CHAR-SUPER-BIT) ("CHAR-UPCASE" . LISP-INTERNALS::CHAR-UPCASE) ("CHAR/=" . LISP-INTERNALS::CHAR/=) ("CHAR<" . LISP-INTERNALS::CHAR<) ("CHAR<=" . LISP-INTERNALS::CHAR<=) ("CHAR=" . LISP-INTERNALS::CHAR=) ("CHAR>" . LISP-INTERNALS::CHAR>) ("CHAR>=" . LISP-INTERNALS::CHAR>=) ("CHARACTERP" . VINCULUM::CHARACTERP) ("CHECK-TYPE" . LISP-INTERNALS::CHECK-TYPE) ("CLEAR-INPUT" . LISP-INTERNALS::CLEAR-INPUT) ("CLEAR-OUTPUT" . LISP-INTERNALS::CLEAR-OUTPUT) ("CLOSURE" . LISP-INTERNALS::CLOSURE) ("CLOSURE-FUNCTION" . LISP-INTERNALS::CLOSURE-FUNCTION) ("CLRHASH" . LISP-INTERNALS::CLRHASH) ("CODE-CHAR" . LISP-INTERNALS::CODE-CHAR) ("COERCE" . LISP-INTERNALS::COERCE) ("COMMON" . LISP-INTERNALS::COMMON) ("COMMONP" . VINCULUM:COMMONP) ("COMPILED-FUNCTION" . LISP-INTERNALS::COMPILED-FUNCTION) ("COMPILED-FUNCTION-P" . VINCULUM:COMPILED-FUNCTION-P) ("COMPLEX" . LISP-INTERNALS::COMPLEX) ("COMPLEXP" . VINCULUM:COMPLEXP) ("CONCATENATE" . LISP-INTERNALS::CONCATENATE) ("CONS" . CONS:CONS) ("CONSP" . VINCULUM::CONSP) ("CONSTANTP" . LISP-INTERNALS::CONSTANTP) ("COPY-ALIST" . LISP-INTERNALS::COPY-ALIST) ("COPY-LIST" . LISP-INTERNALS::COPY-LIST) ("COPY-READTABLE" . LISP-INTERNALS::COPY-READTABLE) ("COPY-SEQ" . LISP-INTERNALS::COPY-SEQ) ("COPY-TREE" . LISP-INTERNALS::COPY-TREE) ("COUNT" . LISP-INTERNALS::COUNT) ("COUNT-IF" . LISP-INTERNALS::COUNT-IF) ("COUNT-IF-NOT" . LISP-INTERNALS::COUNT-IF-NOT) ("CTYPECASE" . LISP-INTERNALS::CTYPECASE) ("DECF" . PRIMITIVES::DECF) ("DECLARATION" . LISP-INTERNALS::DECLARATION) ("DEFINE-MODIFY-MACRO" . PRIMITIVES:DEFINE-MODIFY-MACRO) ("DEFMACRO" . PRIMITIVES:DEFMACRO) ("DEFPROP" . LISP-INTERNALS::DEFPROP) ("DEFSUBST" . PRIMITIVES:DEFSUBST) ("DEFTYPE" . LISP-INTERNALS::DEFTYPE) ("DELETE-DUPLICATES" . LISP-INTERNALS::DELETE-DUPLICATES) ("DELETE-IF" . LISP-INTERNALS::DELETE-IF) ("DELETE-IF-NOT" . LISP-INTERNALS::DELETE-IF-NOT) ("DEPOSIT-FIELD" . LISP-INTERNALS::DEPOSIT-FIELD) ("DIFFERENCE" . LISP-INTERNALS::DIFFERENCE) ("DIGIT-CHAR" . LISP-INTERNALS::DIGIT-CHAR) ("DIGIT-CHAR-P" . LISP-INTERNALS::DIGIT-CHAR-P) ("DISPATCH" . PRIMITIVES::DISPATCH) ("DO-ALL-SYMBOLS" . LISP-INTERNALS::DO-ALL-SYMBOLS) ("DO-EXTERNAL-SYMBOLS" . LISP-INTERNALS::DO-EXTERNAL-SYMBOLS) ("DO-FOREVER" . LISP-INTERNALS::DO-FOREVER) ("DO-LOCAL-EXTERNAL-SYMBOLS" . LISP-INTERNALS::DO-LOCAL-EXTERNAL-SYMBOLS) ("DO-LOCAL-SYMBOLS" . LISP-INTERNALS::DO-LOCAL-SYMBOLS) ("DO-SYMBOLS" . LISP-INTERNALS::DO-SYMBOLS) ("DOCUMENTATION" . LISP-INTERNALS::DOCUMENTATION) ("DOLIST" . LISP-INTERNALS::DOLIST) ("DOUBLE-FLOAT" . K:DOUBLE-FLOAT) ("DPB" . LISP-INTERNALS::DPB) ("ECASE" . LISP-INTERNALS::ECASE) ("EIGHTH" . LISP-INTERNALS::EIGHTH) ("ELT" . LISP-INTERNALS::ELT) ("ENDP" . CONS:ENDP) ("ENTITY" . LISP-INTERNALS::ENTITY) ("EQUAL" . LISP-INTERNALS::EQUAL) ("EQUALP" . LISP-INTERNALS::EQUALP) ("ERROR" . LISP-INTERNALS::ERROR) ("EVENP" . LISP-INTERNALS::EVENP) ("EXP" . LISP-INTERNALS::EXP) ("EXPR" . LISP-INTERNALS::EXPR) ("EXPT" . LISP-INTERNALS::EXPT) ("FALSE" . LISP-INTERNALS::FALSE) ("FASL-APPEND" . LISP-INTERNALS::FASL-APPEND) ("FASLOAD" . LISP-INTERNALS::FASLOAD) ("FBOUNDP" . SYMBOL:FBOUNDP) ("FDEFINEDP" . LISP-INTERNALS::FDEFINEDP) ("FIFTH" . LISP-INTERNALS::FIFTH) ("FILL" . LISP-INTERNALS::FILL) ("FILL-POINTER" . ARRAY:FILL-POINTER) ("FILLARRAY" . LISP-INTERNALS::FILLARRAY) ("FIND" . LISP-INTERNALS::FIND) ("FIND-ALL-SYMBOLS" . LISP-INTERNALS::FIND-ALL-SYMBOLS) ("FIND-EXTERNAL-SYMBOL" . LISP-INTERNALS::FIND-EXTERNAL-SYMBOL) ("FIND-IF" . LISP-INTERNALS::FIND-IF) ("FIND-IF-NOT" . LISP-INTERNALS::FIND-IF-NOT) ("FIND-PACKAGE" . LISP-INTERNALS::FIND-PACKAGE) ("FIND-SYMBOL" . LISP-INTERNALS::FIND-SYMBOL) ("FINISH-OUTPUT" . LISP-INTERNALS::FINISH-OUTPUT) ("FIRST" . LISP-INTERNALS::FIRST) ("FIX" . LISP-INTERNALS::FIX) ("FIXNUM" . LISP-INTERNALS::FIXNUM) ("FIXNUMP" . LISP-INTERNALS::FIXNUMP) ("FIXP" . LISP-INTERNALS::FIXP) ("FLOAT" . LISP-INTERNALS::FLOAT) ("FLOATP" . VINCULUM:FLOATP) ("FMAKUNBOUND" . SYMBOL:FMAKUNBOUND) ("FONT" . LISP-INTERNALS::FONT) ("FORCE-OUTPUT" . LISP-INTERNALS::FORCE-OUTPUT) ("FORMAT" . LISP-INTERNALS::FORMAT) ("FOURTH" . LISP-INTERNALS::FOURTH) ("FRESH-LINE" . LISP-INTERNALS::FRESH-LINE) ("FSET-CAREFULLY" . LISP-INTERNALS::FSET-CAREFULLY) ("FSYMEVAL" . LISP-INTERNALS::FSYMEVAL) ("FTYPE" . LISP-INTERNALS::FTYPE) ("GENSYM" . LISP-INTERNALS::GENSYM) ("GENTEMP" . LISP-INTERNALS::GENTEMP) ("GET" . SYMBOL:GET) ("GET-DISPATCH-MACRO-CHARACTER" . LISP-INTERNALS::GET-DISPATCH-MACRO-CHARACTER) ("GET-MACRO-CHARACTER" . LISP-INTERNALS::GET-MACRO-CHARACTER) ("GET-OUTPUT-STREAM-STRING" . LISP-INTERNALS::GET-OUTPUT-STREAM-STRING) ("GET-PNAME" . LISP-INTERNALS::GET-PNAME) ("GET-PROPERTIES" . SYMBOL:GET-PROPERTIES) ("GET-SETF-METHOD" . LISP-INTERNALS::GET-SETF-METHOD) ("GET-SETF-METHOD-MULTIPLE-VALUE" . LISP-INTERNALS::GET-SETF-METHOD-MULTIPLE-VALUE) ("GETF" . SYMBOL:GETF) ("GRAPHIC-CHAR-P" . LISP-INTERNALS::GRAPHIC-CHAR-P) ("HASH-TABLE" . LISP-INTERNALS::HASH-TABLE) ("HASH-TABLE-COUNT" . LISP-INTERNALS::HASH-TABLE-COUNT) ("HASH-TABLE-P" . LISP-INTERNALS::HASH-TABLE-P) ("IDENTITY" . LISP-INTERNALS::IDENTITY) ("IMAGPART" . LISP-INTERNALS::IMAGPART) ("INCF" . PRIMITIVES::INCF) ("INLINE" . LISP-INTERNALS::INLINE) ("INPUT-STREAM-P" . LISP-INTERNALS::INPUT-STREAM-P) ("INSTANCE" . LISP-INTERNALS::INSTANCE) ("INT-CHAR" . LISP-INTERNALS::INT-CHAR) ("INTEGER" . LISP-INTERNALS::INTEGER) ("INTEGER-LENGTH" . LISP-INTERNALS::INTEGER-LENGTH) ("INTEGERP" . VINCULUM:INTEGERP) ("INTERN" . LISP-INTERNALS::INTERN) ("INTERN-LOCAL" . LISP-INTERNALS::INTERN-LOCAL) ("INTERN-LOCAL-SOFT" . LISP-INTERNALS::INTERN-LOCAL-SOFT) ("INTERN-SOFT" . LISP-INTERNALS::INTERN-SOFT) ("KEYWORD" . LISP-INTERNALS::KEYWORD) ("KEYWORDP" . LISP-INTERNALS::KEYWORDP) ("KILL-PACKAGE" . LISP-INTERNALS::KILL-PACKAGE) ("LAMBDA-LIST-KEYWORDS" . LISP-INTERNALS::LAMBDA-LIST-KEYWORDS) ("LAMBDA-PARAMETERS-LIMIT" . LISP-INTERNALS::LAMBDA-PARAMETERS-LIMIT) ("LAST" . LISP-INTERNALS::LAST) ("LDB" . LISP-INTERNALS::LDB) ("LDB-TEST" . LISP-INTERNALS::LDB-TEST) ("LDIFF" . LISP-INTERNALS::LDIFF) ("LENGTH" . ARRAY::LENGTH) ("LIST" . LISP-INTERNALS::LIST) ("LIST*" . LISP-INTERNALS::LIST*) ("LIST*-IN-AREA" . LISP-INTERNALS::LIST*-IN-AREA) ("LIST-ALL-PACKAGES" . LISP-INTERNALS::LIST-ALL-PACKAGES) ("LIST-IN-AREA" . LISP-INTERNALS::LIST-IN-AREA) ("LIST-LENGTH" . LISP-INTERNALS::LIST-LENGTH) ("LISTARRAY" . LISP-INTERNALS::LISTARRAY) ("LISTEN" . LISP-INTERNALS::LISTEN) ("LOCALLY" . LISP-INTERNALS::LOCALLY) ("LOCATIVE" . LISP-INTERNALS::LOCATIVE) ("LOG" . LISP-INTERNALS::LOG) ("LOGBITP" . LISP-INTERNALS::LOGBITP) ("LOGCOUNT" . LISP-INTERNALS::LOGCOUNT) ("LONG-FLOAT" . LISP-INTERNALS::LONG-FLOAT) ("LOWER-CASE-P" . LISP-INTERNALS::LOWER-CASE-P) ("LSH" . LISP-INTERNALS::LSH) ("MACRO" . LISP-INTERNALS::MACRO) ("MACRO-FUNCTION" . LISP-INTERNALS::MACRO-FUNCTION) ("MACROEXPAND" . LISP-INTERNALS::MACROEXPAND) ("MACROEXPAND-1" . LISP-INTERNALS::MACROEXPAND-1) ("MAKE-BROADCAST-STREAM" . LISP-INTERNALS::MAKE-BROADCAST-STREAM) ("MAKE-CHAR" . LISP-INTERNALS::MAKE-CHAR) ("MAKE-CONCATENATED-STREAM" . LISP-INTERNALS::MAKE-CONCATENATED-STREAM) ("MAKE-DISPATCH-MACRO-CHARACTER" . LISP-INTERNALS::MAKE-DISPATCH-MACRO-CHARACTER) ("MAKE-ECHO-STREAM" . LISP-INTERNALS::MAKE-ECHO-STREAM) ("MAKE-HASH-TABLE" . LISP-INTERNALS::MAKE-HASH-TABLE) ("MAKE-LIST" . LISP-INTERNALS::MAKE-LIST) ("MAKE-SEQUENCE" . LISP-INTERNALS::MAKE-SEQUENCE) ("MAKE-STACK-GROUP" . LISP-INTERNALS::MAKE-STACK-GROUP) ("MAKE-STRING" . ARRAY::MAKE-STRING) ("MAKE-STRING-INPUT-STREAM" . LISP-INTERNALS::MAKE-STRING-INPUT-STREAM) ("MAKE-STRING-OUTPUT-STREAM" . LISP-INTERNALS::MAKE-STRING-OUTPUT-STREAM) ("MAKE-SYMBOL" . SYMBOL:MAKE-SYMBOL) ("MAKE-SYNONYM-STREAM" . LISP-INTERNALS::MAKE-SYNONYM-STREAM) ("MAKE-TWO-WAY-STREAM" . LISP-INTERNALS::MAKE-TWO-WAY-STREAM) ("MAKUNBOUND" . SYMBOL:MAKUNBOUND) ("MAPATOMS" . LISP-INTERNALS::MAPATOMS) ("MAPATOMS-ALL" . LISP-INTERNALS::MAPATOMS-ALL) ("MAPC" . LISP-INTERNALS::MAPC) ("MAPCAN" . LISP-INTERNALS::MAPCAN) ("MAPCAR" . LISP-INTERNALS::MAPCAR) ("MAPCON" . LISP-INTERNALS::MAPCON) ("MAPHASH" . LISP-INTERNALS::MAPHASH) ("MAPL" . LISP-INTERNALS::MAPL) ("MAPLIST" . LISP-INTERNALS::MAPLIST) ("MASK-FIELD" . LISP-INTERNALS::MASK-FIELD) ("MEMBER-IF" . LISP-INTERNALS::MEMBER-IF) ("MEMBER-IF-NOT" . LISP-INTERNALS::MEMBER-IF-NOT) ("MEMQ" . LISP-INTERNALS::MEMQ) ("MERGE" . LISP-INTERNALS::MERGE) ("MIN" . LISP-INTERNALS::MIN) ("MINUS" . LISP-INTERNALS::MINUS) ("MISMATCH" . LISP-INTERNALS::MISMATCH) ("MOST-NEGATIVE-FIXNUM" . LISP-INTERNALS::MOST-NEGATIVE-FIXNUM) ("MOST-POSITIVE-FIXNUM" . LISP-INTERNALS::MOST-POSITIVE-FIXNUM) ("MULTIPLE-VALUE-CALL" . LISP-INTERNALS::MULTIPLE-VALUE-CALL) ("MULTIPLE-VALUE-LIST" . LISP-INTERNALS::MULTIPLE-VALUE-LIST) ("MULTIPLE-VALUE-PROG1" . LISP-INTERNALS::MULTIPLE-VALUE-PROG1) ("MULTIPLE-VALUES-LIMIT" . LISP-INTERNALS::MULTIPLE-VALUES-LIMIT) ("NAMED-STRUCTURE-INVOKE" . ARRAY:NAMED-STRUCTURE-INVOKE) ("NBUTLAST" . LISP-INTERNALS::NBUTLAST) ("NCONC" . LISP-INTERNALS::NCONC) ("NCONS" . LISP-INTERNALS::NCONS) ("NCONS-IN-AREA" . LISP-INTERNALS::NCONS-IN-AREA) ("NINTH" . LISP-INTERNALS::NINTH) ("NON-COMPLEX-NUMBER" . LISP-INTERNALS::NON-COMPLEX-NUMBER) ("NOTANY" . LISP-INTERNALS::NOTANY) ("NOTEVERY" . LISP-INTERNALS::NOTEVERY) ("NOTINLINE" . LISP-INTERNALS::NOTINLINE) ("NRECONC" . LISP-INTERNALS::NRECONC) ("NREVERSE" . LISP-INTERNALS::NREVERSE) ("NSET-DIFFERENCE" . LISP-INTERNALS::NSET-DIFFERENCE) ("NSET-EXCLUSIVE-OR" . LISP-INTERNALS::NSET-EXCLUSIVE-OR) ("NSTRING-CAPITALIZE" . LISP-INTERNALS::NSTRING-CAPITALIZE) ("NSTRING-DOWNCASE" . LISP-INTERNALS::NSTRING-DOWNCASE) ("NSTRING-UPCASE" . LISP-INTERNALS::NSTRING-UPCASE) ("NSUBLIS" . LISP-INTERNALS::NSUBLIS) ("NSUBST" . LISP-INTERNALS::NSUBST) ("NSUBST-IF" . LISP-INTERNALS::NSUBST-IF) ("NSUBST-IF-NOT" . LISP-INTERNALS::NSUBST-IF-NOT) ("NSUBSTITUTE" . LISP-INTERNALS::NSUBSTITUTE) ("NSUBSTITUTE-IF" . LISP-INTERNALS::NSUBSTITUTE-IF) ("NSUBSTITUTE-IF-NOT" . LISP-INTERNALS::NSUBSTITUTE-IF-NOT) ("NSYMBOLP" . LISP-INTERNALS::NSYMBOLP) ("NTH" . LISP-INTERNALS::NTH) ("NTHCDR" . LISP-INTERNALS::NTHCDR) ("NUMBER" . LISP-INTERNALS::NUMBER) ("NUMBERP" . VINCULUM:NUMBERP) ("ODDP" . LISP-INTERNALS::ODDP) ("ONCE-ONLY" . LISP-INTERNALS::ONCE-ONLY) ("OPTIMIZE" . LISP-INTERNALS::OPTIMIZE) ("OTHERWISE" . LISP-INTERNALS::OTHERWISE) ("OUTPUT-STREAM-P" . LISP-INTERNALS::OUTPUT-STREAM-P) ("PACKAGE" . LISP-INTERNALS::PACKAGE) ("PACKAGE-DECLARE" . LISP-INTERNALS::PACKAGE-DECLARE) ("PACKAGE-NAME" . LISP-INTERNALS::PACKAGE-NAME) ("PACKAGE-NICKNAMES" . LISP-INTERNALS::PACKAGE-NICKNAMES) ("PACKAGE-SHADOWING-SYMBOLS" . LISP-INTERNALS::PACKAGE-SHADOWING-SYMBOLS) ("PACKAGE-USE-LIST" . LISP-INTERNALS::PACKAGE-USE-LIST) ("PACKAGE-USED-BY-LIST" . LISP-INTERNALS::PACKAGE-USED-BY-LIST) ("PAIRLIS" . LISP-INTERNALS::PAIRLIS) ("PARSE-INTEGER" . LISP-INTERNALS::PARSE-INTEGER) ("PATHNAME" . LISP-INTERNALS::PATHNAME) ("PEEK-CHAR" . LISP-INTERNALS::PEEK-CHAR) ("PKG-BIND" . LISP-INTERNALS::PKG-BIND) ("PKG-FIND-PACKAGE" . LISP-INTERNALS::PKG-FIND-PACKAGE) ("PKG-GLOBAL-PACKAGE" . LISP-INTERNALS::PKG-GLOBAL-PACKAGE) ("PKG-GOTO" . LISP-INTERNALS::PKG-GOTO) ("PKG-GOTO-GLOBALLY" . LISP-INTERNALS::PKG-GOTO-GLOBALLY) ("PKG-KEYWORD-PACKAGE" . LISP-INTERNALS::PKG-KEYWORD-PACKAGE) ("PKG-SYSTEM-PACKAGE" . LISP-INTERNALS::PKG-SYSTEM-PACKAGE) ("PLIST" . LISP-INTERNALS::PLIST) ("POP" . LISP-INTERNALS::POP) ("POSITION" . LISP-INTERNALS::POSITION) ("POSITION-IF" . LISP-INTERNALS::POSITION-IF) ("POSITION-IF-NOT" . LISP-INTERNALS::POSITION-IF-NOT) ("PPRINT" . LISP-INTERNALS::PPRINT) ("PRIN1" . LISP-INTERNALS::PRIN1) ("PRIN1-TO-STRING" . LISP-INTERNALS::PRIN1-TO-STRING) ("PRINC" . LISP-INTERNALS::PRINC) ("PRINC-TO-STRING" . LISP-INTERNALS::PRINC-TO-STRING) ("PRINT" . LISP-INTERNALS::PRINT) ("PROG*" . LISP-INTERNALS::PROG*) ("PROG2" . LISP-INTERNALS::PROG2) ("PROGV" . LISP-INTERNALS::PROGV) ("PROVIDE" . LISP-INTERNALS::PROVIDE) ("PSETF" . LISP-INTERNALS::PSETF) ("PUSH" . LISP-INTERNALS:PUSH) ("PUSHNEW" . LISP-INTERNALS::PUSHNEW) ("PUTPROP" . LISP-INTERNALS::PUTPROP) ("QUOTIENT" . LISP-INTERNALS::QUOTIENT) ("RANDOM-STATE" . LISP-INTERNALS::RANDOM-STATE) ("RASSOC-IF" . LISP-INTERNALS::RASSOC-IF) ("RASSOC-IF-NOT" . LISP-INTERNALS::RASSOC-IF-NOT) ("RATIO" . LISP-INTERNALS::RATIO) ("RATIONAL" . LISP-INTERNALS::RATIONAL) ("RATIONALP" . VINCULUM:RATIONALP) ("READ-BYTE" . LISP-INTERNALS::READ-BYTE) ("READ-CHAR" . LISP-INTERNALS::READ-CHAR) ("READ-CHAR-NO-HANG" . LISP-INTERNALS::READ-CHAR-NO-HANG) ("READ-DELIMITED-LIST" . LISP-INTERNALS::READ-DELIMITED-LIST) ("READ-LINE" . LISP-INTERNALS::READ-LINE) ("READ-PRESERVING-WHITESPACE" . LISP-INTERNALS::READ-PRESERVING-WHITESPACE) ("READTABLE" . LISP-INTERNALS::READTABLE) ("READTABLEP" . LISP-INTERNALS::READTABLEP) ("REAL" . LISP-INTERNALS::REAL) ("REALPART" . LISP-INTERNALS::REALPART) ("REDUCE" . LISP-INTERNALS::REDUCE) ("REMF" . SYMBOL:REMF) ("REMHASH" . LISP-INTERNALS::REMHASH) ("REMOB" . LISP-INTERNALS::REMOB) ("REMOVE-DUPLICATES" . LISP-INTERNALS::REMOVE-DUPLICATES) ("REMOVE-IF" . LISP-INTERNALS::REMOVE-IF) ("REMOVE-IF-NOT" . LISP-INTERNALS::REMOVE-IF-NOT) ("REMPROP" . SYMBOL:REMPROP) ("RENAME-PACKAGE" . LISP-INTERNALS::RENAME-PACKAGE) ("REPLACE" . LISP-INTERNALS::REPLACE) ("REQUIRE" . LISP-INTERNALS::REQUIRE) ("REVAPPEND" . LISP-INTERNALS::REVAPPEND) ("REVERSE" . LISP-INTERNALS::REVERSE) ("ROTATEF" . LISP-INTERNALS::ROTATEF) ("ROUND" . NEW-MATH::ROUND) ("RPLACA" . CONS:RPLACA) ("RPLACD" . CONS:RPLACD) ("SATISFIES" . LISP-INTERNALS::SATISFIES) ("SBIT" . LISP-INTERNALS::SBIT) ("SCHAR" . LISP-INTERNALS::SCHAR) ("SEARCH" . LISP-INTERNALS::SEARCH) ("SECOND" . LISP-INTERNALS::SECOND) ("SELECT" . LISP-INTERNALS::SELECT) ("SELECT-PROCESSOR" . PRIMITIVES::SELECT-PROCESSOR) ("SEND" . LISP-INTERNALS::SEND) ("SEQUENCE" . LISP-INTERNALS::SEQUENCE) ("SET" . SYMBOL:SET) ("SET-CHAR-BIT" . LISP-INTERNALS::SET-CHAR-BIT) ("SET-DIFFERENCE" . LISP-INTERNALS::SET-DIFFERENCE) ("SET-DISPATCH-MACRO-CHARACTER" . LISP-INTERNALS::SET-DISPATCH-MACRO-CHARACTER) ("SET-EXCLUSIVE-OR" . LISP-INTERNALS::SET-EXCLUSIVE-OR) ("SET-MACRO-CHARACTER" . LISP-INTERNALS::SET-MACRO-CHARACTER) ("SET-SYNTAX-FROM-CHAR" . LISP-INTERNALS::SET-SYNTAX-FROM-CHAR) ("SETQ-GLOBALLY" . LISP-INTERNALS::SETQ-GLOBALLY) ("SEVENTH" . LISP-INTERNALS::SEVENTH) ("SHADOW" . LISP-INTERNALS::SHADOW) ("SHADOWING-IMPORT" . LISP-INTERNALS::SHADOWING-IMPORT) ("SHIFTF" . LISP-INTERNALS::SHIFTF) ("SHORT-FLOAT" . LISP-INTERNALS::SHORT-FLOAT) ("SIGNED-BYTE" . LISP-INTERNALS::SIGNED-BYTE) ("SIMPLE-ARRAY" . LISP-INTERNALS::SIMPLE-ARRAY) ("SIMPLE-BIT-VECTOR" . LISP-INTERNALS::SIMPLE-BIT-VECTOR) ("SIMPLE-BIT-VECTOR-P" . ARRAY:SIMPLE-BIT-VECTOR-P) ("SIMPLE-STRING" . LISP-INTERNALS::SIMPLE-STRING) ("SIMPLE-STRING-P" . ARRAY:SIMPLE-STRING-P) ("SIMPLE-VECTOR" . LISP-INTERNALS::SIMPLE-VECTOR) ("SIMPLE-VECTOR-P" . ARRAY:SIMPLE-VECTOR-P) ("SINGLE-FLOAT" . K:SINGLE-FLOAT) ("SIXTH" . LISP-INTERNALS::SIXTH) ("SORT" . LISP-INTERNALS::SORT) ("SPECIAL" . LISP-INTERNALS::SPECIAL) ("SPECIAL-FORM-P" . LISP-INTERNALS::SPECIAL-FORM-P) ("STABLE-SORT" . LISP-INTERNALS::STABLE-SORT) ("STACK-GROUP" . LISP-INTERNALS::STACK-GROUP) ("STANDARD-CHAR" . LISP-INTERNALS::STANDARD-CHAR) ("STANDARD-CHAR-P" . LISP-INTERNALS::STANDARD-CHAR-P) ("STEP" . LISP-INTERNALS::STEP) ("STREAM" . LISP-INTERNALS::STREAM) ("STREAM-ELEMENT-TYPE" . LISP-INTERNALS::STREAM-ELEMENT-TYPE) ("STREAMP" . LISP-INTERNALS::STREAMP) ("STRING" . LISP-INTERNALS::STRING) ("STRING-CAPITALIZE" . LISP-INTERNALS::STRING-CAPITALIZE) ("STRING-CHAR" . LISP-INTERNALS::STRING-CHAR) ("STRING-CHAR-P" . LISP-INTERNALS::STRING-CHAR-P) ("STRING-COMPARE" . LISP-INTERNALS::STRING-COMPARE) ("STRING-DOWNCASE" . LISP-INTERNALS::STRING-DOWNCASE) ("STRING-EQUAL" . LISP-INTERNALS::STRING-EQUAL) ("STRING-GREATERP" . LISP-INTERNALS::STRING-GREATERP) ("STRING-LENGTH" . LISP-INTERNALS::STRING-LENGTH) ("STRING-LESSP" . LISP-INTERNALS::STRING-LESSP) ("STRING-NOT-EQUAL" . LISP-INTERNALS::STRING-NOT-EQUAL) ("STRING-NOT-GREATERP" . LISP-INTERNALS::STRING-NOT-GREATERP) ("STRING-NOT-LESSP" . LISP-INTERNALS::STRING-NOT-LESSP) ("STRING-TRIM" . LISP-INTERNALS::STRING-TRIM) ("STRING-UPCASE" . LISP-INTERNALS::STRING-UPCASE) ("STRING/=" . LISP-INTERNALS::STRING/=) ("STRING<" . LISP-INTERNALS::STRING<) ("STRING<=" . LISP-INTERNALS::STRING<=) ("STRING=" . ARRAY::STRING=) ("STRING>" . LISP-INTERNALS::STRING>) ("STRING>=" . LISP-INTERNALS::STRING>=) ("STRINGP" . ARRAY:STRINGP) ("STRUCTURE" . LISP-INTERNALS::STRUCTURE) ("SUBLIS" . LISP-INTERNALS::SUBLIS) ("SUBSEQ" . LISP-INTERNALS::SUBSEQ) ("SUBSETP" . LISP-INTERNALS::SUBSETP) ("SUBST-IF" . LISP-INTERNALS::SUBST-IF) ("SUBST-IF-NOT" . LISP-INTERNALS::SUBST-IF-NOT) ("SUBSTITUTE" . LISP-INTERNALS::SUBSTITUTE) ("SUBSTITUTE-IF" . LISP-INTERNALS::SUBSTITUTE-IF) ("SUBSTITUTE-IF-NOT" . LISP-INTERNALS::SUBSTITUTE-IF-NOT) ("SUBTYPEP" . LISP-INTERNALS::SUBTYPEP) ("SVREF" . ARRAY:SVREF) ("SXHASH" . LISP-INTERNALS::SXHASH) ("SYMBOL" . LISP-INTERNALS::SYMBOL) ("SYMBOL-FUNCTION" . SYMBOL:SYMBOL-FUNCTION) ("SYMBOL-NAME" . SYMBOL:SYMBOL-NAME) ("SYMBOL-PACKAGE" . SYMBOL:SYMBOL-PACKAGE) ("SYMBOL-PLIST" . SYMBOL:SYMBOL-PLIST) ("SYMBOL-VALUE" . SYMBOL:SYMBOL-VALUE) ("SYMBOLP" . VINCULUM:SYMBOLP) ("SYMEVAL" . LISP-INTERNALS::SYMEVAL) ("TAILP" . LISP-INTERNALS::TAILP) ("TENTH" . LISP-INTERNALS::TENTH) ("TERPRI" . LISP-INTERNALS::TERPRI) ("THE" . LISP-INTERNALS::THE) ("THIRD" . LISP-INTERNALS::THIRD) ("TREE-EQUAL" . LISP-INTERNALS::TREE-EQUAL) ("TRUE" . LISP-INTERNALS::TRUE) ("TRUNCATE" . NEW-MATH::TRUNCATE) ("TYPE" . LISP-INTERNALS::TYPE) ("TYPE-OF" . LISP-INTERNALS::TYPE-OF) ("TYPECASE" . LISP-INTERNALS::TYPECASE) ("TYPEP" . LISP-INTERNALS::TYPEP) ("UNBIND" . LISP-INTERNALS::UNBIND) ("UNEXPORT" . LISP-INTERNALS::UNEXPORT) ("UNINTERN" . LISP-INTERNALS::UNINTERN) ("UNREAD-CHAR" . LISP-INTERNALS::UNREAD-CHAR) ("UNSIGNED-BYTE" . LISP-INTERNALS::UNSIGNED-BYTE) ("UNUSE-PACKAGE" . LISP-INTERNALS::UNUSE-PACKAGE) ("UNWIND-PROTECT" . LISP-INTERNALS::UNWIND-PROTECT) ("UPPER-CASE-P" . LISP-INTERNALS::UPPER-CASE-P) ("USE-PACKAGE" . LISP-INTERNALS::USE-PACKAGE) ("VARIABLE" . LISP-INTERNALS::VARIABLE) ("VECTOR" . ARRAY:VECTOR) ("VECTOR-POP" . ARRAY:VECTOR-POP) ("VECTOR-PUSH" . ARRAY:VECTOR-PUSH) ("VECTOR-PUSH-EXTEND" . ARRAY:VECTOR-PUSH-EXTEND) ("VECTORP" . ARRAY:VECTORP) ("WHERE-IS" . LISP-INTERNALS::WHERE-IS) ("WITH-OPEN-STREAM" . LISP-INTERNALS::WITH-OPEN-STREAM) ("WITHOUT-INTERRUPTS" . LISP-INTERNALS::WITHOUT-INTERRUPTS) ("WRITE" . LISP-INTERNALS::WRITE) ("WRITE-BYTE" . LISP-INTERNALS::WRITE-BYTE) ("WRITE-CHAR" . LISP-INTERNALS::WRITE-CHAR) ("WRITE-LINE" . LISP-INTERNALS::WRITE-LINE) ("WRITE-STRING" . LISP-INTERNALS::WRITE-STRING) ("WRITE-TO-STRING" . LISP-INTERNALS::WRITE-TO-STRING) ("Y-OR-N-P" . LISP-INTERNALS::Y-OR-N-P) ("YES-OR-NO-P" . LISP-INTERNALS::YES-OR-NO-P) ("\\" . LISP-INTERNALS::\\) ("^" . LISP-INTERNALS::^)))) (defun warm-symbols () (warm-fix-global-symbols '#.warm-symbols-list) ;; $$$ Set warm-boot-complete flag to signal done to lambda. <22-Nov-88 wkf> (k2:kbug-vm-write k2:kbug-flag-addr (hw:dpb-unboxed 1 k2:%%kbug-warm-boot-complete-flag (k2:kbug-vm-read k2:kbug-flag-addr))) (loop))