common-lisp-symbols.el

(require 'cl)

(defvar *common-lisp-symbols* (make-hash-table :test 'equal :size 978))

(setf (gethash "&allow-other-keys" *common-lisp-symbols*) t) 
(setf (gethash "&aux" *common-lisp-symbols*) t) 
(setf (gethash "&body" *common-lisp-symbols*) t) 
(setf (gethash "&environment" *common-lisp-symbols*) t) 
(setf (gethash "&key" *common-lisp-symbols*) t) 
(setf (gethash "&optional" *common-lisp-symbols*) t) 
(setf (gethash "&rest" *common-lisp-symbols*) t) 
(setf (gethash "&whole" *common-lisp-symbols*) t) 
(setf (gethash "DO" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME-HOST" *common-lisp-symbols*) t)
(setf (gethash "EQ" *common-lisp-symbols*) t)
(setf (gethash "GO" *common-lisp-symbols*) t)
(setf (gethash "PI" *common-lisp-symbols*) t)
(setf (gethash "RESTART-BIND" *common-lisp-symbols*) t)
(setf (gethash "FUNCTION-LAMBDA-EXPRESSION" *common-lisp-symbols*) t)
(setf (gethash "NSET-EXCLUSIVE-OR" *common-lisp-symbols*) t)
(setf (gethash "OR" *common-lisp-symbols*) t)
(setf (gethash "MAPCAN" *common-lisp-symbols*) t)
(setf (gethash "COMPLEXP" *common-lisp-symbols*) t)
(setf (gethash "STEP" *common-lisp-symbols*) t)
(setf (gethash "DOCUMENTATION" *common-lisp-symbols*) t)
(setf (gethash "SLOT-MISSING" *common-lisp-symbols*) t)
(setf (gethash "UNBOUND-SLOT-INSTANCE" *common-lisp-symbols*) t)
(setf (gethash "DEFCONSTANT" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-SINGLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "ASSOC-IF" *common-lisp-symbols*) t)
(setf (gethash "SUBSTITUTE-IF" *common-lisp-symbols*) t)
(setf (gethash "MERGE-PATHNAMES" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-SHORT-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "UNLESS" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-ARRAY" *common-lisp-symbols*) t)
(setf (gethash "COMPILATION-SPEED" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-NEWLINE" *common-lisp-symbols*) t)
(setf (gethash "PAIRLIS" *common-lisp-symbols*) t)
(setf (gethash "PATHNAMEP" *common-lisp-symbols*) t)
(setf (gethash "PRINT" *common-lisp-symbols*) t)
(setf (gethash "LAMBDA" *common-lisp-symbols*) t)
(setf (gethash "EVAL-WHEN" *common-lisp-symbols*) t)
(setf (gethash "CAAAR" *common-lisp-symbols*) t)
(setf (gethash "CDAAR" *common-lisp-symbols*) t)
(setf (gethash "STANDARD-CLASS" *common-lisp-symbols*) t)
(setf (gethash "NUNION" *common-lisp-symbols*) t)
(setf (gethash "NAME-CHAR" *common-lisp-symbols*) t)
(setf (gethash "MAKE-METHOD" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-BASE-STRING" *common-lisp-symbols*) t)
(setf (gethash "TRANSLATE-PATHNAME" *common-lisp-symbols*) t)
(setf (gethash "FIFTH" *common-lisp-symbols*) t)
(setf (gethash "ARRAYP" *common-lisp-symbols*) t)
(setf (gethash "SOFTWARE-VERSION" *common-lisp-symbols*) t)
(setf (gethash "DELETE-FILE" *common-lisp-symbols*) t)
(setf (gethash "BOUNDP" *common-lisp-symbols*) t)
(setf (gethash "CONTROL-ERROR" *common-lisp-symbols*) t)
(setf (gethash "ATOM" *common-lisp-symbols*) t)
(setf (gethash "HASH-TABLE-COUNT" *common-lisp-symbols*) t)
(setf (gethash "STRING-TRIM" *common-lisp-symbols*) t)
(setf (gethash "STRING-NOT-GREATERP" *common-lisp-symbols*) t)
(setf (gethash "DIRECTORY" *common-lisp-symbols*) t)
(setf (gethash "SHORT-FLOAT-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "FRESH-LINE" *common-lisp-symbols*) t)
(setf (gethash "HANDLER-CASE" *common-lisp-symbols*) t)
(setf (gethash "STRUCTURE" *common-lisp-symbols*) t)
(setf (gethash "PEEK-CHAR" *common-lisp-symbols*) t)
(setf (gethash "MOST-POSITIVE-LONG-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "ADJOIN" *common-lisp-symbols*) t)
(setf (gethash "ROOM" *common-lisp-symbols*) t)
(setf (gethash "BIT-XOR" *common-lisp-symbols*) t)
(setf (gethash "CHARACTERP" *common-lisp-symbols*) t)
(setf (gethash "SLOT-VALUE" *common-lisp-symbols*) t)
(setf (gethash "CADAR" *common-lisp-symbols*) t)
(setf (gethash "FROUND" *common-lisp-symbols*) t)
(setf (gethash "CDDAR" *common-lisp-symbols*) t)
(setf (gethash "COERCE" *common-lisp-symbols*) t)
(setf (gethash "APROPOS" *common-lisp-symbols*) t)
(setf (gethash "CHAR-GREATERP" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-LONG-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "ADJUST-ARRAY" *common-lisp-symbols*) t)
(setf (gethash "NSTRING-DOWNCASE" *common-lisp-symbols*) t)
(setf (gethash "BROADCAST-STREAM-STREAMS" *common-lisp-symbols*) t)
(setf (gethash "INTERSECTION" *common-lisp-symbols*) t)
(setf (gethash "FDEFINITION" *common-lisp-symbols*) t)
(setf (gethash "FORMATTER" *common-lisp-symbols*) t)
(setf (gethash "INTEGERP" *common-lisp-symbols*) t)
(setf (gethash "DEFINE-CONDITION" *common-lisp-symbols*) t)
(setf (gethash "PROG*" *common-lisp-symbols*) t)
(setf (gethash "LOGANDC1" *common-lisp-symbols*) t)
(setf (gethash "REMOVE-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "REMOVE-DUPLICATES" *common-lisp-symbols*) t)
(setf (gethash "CAADR" *common-lisp-symbols*) t)
(setf (gethash "SINGLE-FLOAT-NEGATIVE-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "CDADR" *common-lisp-symbols*) t)
(setf (gethash "WRITE-CHAR" *common-lisp-symbols*) t)
(setf (gethash "LET*" *common-lisp-symbols*) t)
(setf (gethash "FUNCTION-KEYWORDS" *common-lisp-symbols*) t)
(setf (gethash "FLOOR" *common-lisp-symbols*) t)
(setf (gethash "STRING=" *common-lisp-symbols*) t)
(setf (gethash "STREAMP" *common-lisp-symbols*) t)
(setf (gethash "MAKE-TWO-WAY-STREAM" *common-lisp-symbols*) t)
(setf (gethash "RESTART" *common-lisp-symbols*) t)
(setf (gethash "REMHASH" *common-lisp-symbols*) t)
(setf (gethash "NSUBST" *common-lisp-symbols*) t)
(setf (gethash "COPY-SEQ" *common-lisp-symbols*) t)
(setf (gethash "ENSURE-GENERIC-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "BASE-CHAR" *common-lisp-symbols*) t)
(setf (gethash "GRAPHIC-CHAR-P" *common-lisp-symbols*) t)
(setf (gethash "STRING-EQUAL" *common-lisp-symbols*) t)
(setf (gethash "&KEY" *common-lisp-symbols*) t)
(setf (gethash "KEYWORDP" *common-lisp-symbols*) t)
(setf (gethash "LOOP" *common-lisp-symbols*) t)
(setf (gethash "MOST-NEGATIVE-DOUBLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "MACHINE-INSTANCE" *common-lisp-symbols*) t)
(setf (gethash "DIRECTORY-NAMESTRING" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-BIT-VECTOR-P" *common-lisp-symbols*) t)
(setf (gethash "CONCATENATED-STREAM-STREAMS" *common-lisp-symbols*) t)
(setf (gethash "REDUCE" *common-lisp-symbols*) t)
(setf (gethash "CELL-ERROR" *common-lisp-symbols*) t)
(setf (gethash "READTABLE" *common-lisp-symbols*) t)
(setf (gethash "NAMESTRING" *common-lisp-symbols*) t)
(setf (gethash "CADDR" *common-lisp-symbols*) t)
(setf (gethash "MAPHASH" *common-lisp-symbols*) t)
(setf (gethash "MERGE" *common-lisp-symbols*) t)
(setf (gethash "LOOP-FINISH" *common-lisp-symbols*) t)
(setf (gethash "CDDDR" *common-lisp-symbols*) t)
(setf (gethash "COPY-PPRINT-DISPATCH" *common-lisp-symbols*) t)
(setf (gethash "STANDARD-METHOD" *common-lisp-symbols*) t)
(setf (gethash "SCHAR" *common-lisp-symbols*) t)
(setf (gethash "SPEED" *common-lisp-symbols*) t)
(setf (gethash "STANDARD" *common-lisp-symbols*) t)
(setf (gethash "FLOATING-POINT-INVALID-OPERATION" *common-lisp-symbols*) t)
(setf (gethash "DEFSETF" *common-lisp-symbols*) t)
(setf (gethash "NSTRING-CAPITALIZE" *common-lisp-symbols*) t)
(setf (gethash "ERROR" *common-lisp-symbols*) t)
(setf (gethash "CCASE" *common-lisp-symbols*) t)
(setf (gethash "INVOKE-DEBUGGER" *common-lisp-symbols*) t)
(setf (gethash "ECASE" *common-lisp-symbols*) t)
(setf (gethash "SUBST-IF" *common-lisp-symbols*) t)
(setf (gethash "TYPE-OF" *common-lisp-symbols*) t)
(setf (gethash "BIGNUM" *common-lisp-symbols*) t)
(setf (gethash "ASSOC-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "LOGICAL-PATHNAME" *common-lisp-symbols*) t)
(setf (gethash "IGNORE-ERRORS" *common-lisp-symbols*) t)
(setf (gethash "VALUES-LIST" *common-lisp-symbols*) t)
(setf (gethash "NINTH" *common-lisp-symbols*) t)
(setf (gethash "MOST-POSITIVE-DOUBLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "TENTH" *common-lisp-symbols*) t)
(setf (gethash "LDB" *common-lisp-symbols*) t)
(setf (gethash "REINITIALIZE-INSTANCE" *common-lisp-symbols*) t)
(setf (gethash "CLRHASH" *common-lisp-symbols*) t)
(setf (gethash "PHASE" *common-lisp-symbols*) t)
(setf (gethash "CONSP" *common-lisp-symbols*) t)
(setf (gethash "DPB" *common-lisp-symbols*) t)
(setf (gethash "SET-EXCLUSIVE-OR" *common-lisp-symbols*) t)
(setf (gethash "SIGNUM" *common-lisp-symbols*) t)
(setf (gethash "RESTART-NAME" *common-lisp-symbols*) t)
(setf (gethash "REVAPPEND" *common-lisp-symbols*) t)
(setf (gethash "COUNT" *common-lisp-symbols*) t)
(setf (gethash "*READ-SUPPRESS*" *common-lisp-symbols*) t)
(setf (gethash "EIGHTH" *common-lisp-symbols*) t)
(setf (gethash "PRINC" *common-lisp-symbols*) t)
(setf (gethash "SIGNED-BYTE" *common-lisp-symbols*) t)
(setf (gethash "MAKE-HASH-TABLE" *common-lisp-symbols*) t)
(setf (gethash "INVOKE-RESTART-INTERACTIVELY" *common-lisp-symbols*) t)
(setf (gethash "MAKE-INSTANCES-OBSOLETE" *common-lisp-symbols*) t)
(setf (gethash "SYMBOL-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "READER-ERROR" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-NAND" *common-lisp-symbols*) t)
(setf (gethash "CONS" *common-lisp-symbols*) t)
(setf (gethash "MOST-NEGATIVE-FIXNUM" *common-lisp-symbols*) t)
(setf (gethash "ACOS" *common-lisp-symbols*) t)
(setf (gethash "GCD" *common-lisp-symbols*) t)
(setf (gethash "WARNING" *common-lisp-symbols*) t)
(setf (gethash "SLEEP" *common-lisp-symbols*) t)
(setf (gethash "*ERROR-OUTPUT*" *common-lisp-symbols*) t)
(setf (gethash "PUSHNEW" *common-lisp-symbols*) t)
(setf (gethash "AND" *common-lisp-symbols*) t)
(setf (gethash "GETHASH" *common-lisp-symbols*) t)
(setf (gethash "MAKE-ARRAY" *common-lisp-symbols*) t)
(setf (gethash "CHAR>" *common-lisp-symbols*) t)
(setf (gethash "FLOATP" *common-lisp-symbols*) t)
(setf (gethash "*READ-DEFAULT-FLOAT-FORMAT*" *common-lisp-symbols*) t)
(setf (gethash "NSUBSTITUTE" *common-lisp-symbols*) t)
(setf (gethash "CONCATENATED-STREAM" *common-lisp-symbols*) t)
(setf (gethash "BUILT-IN-CLASS" *common-lisp-symbols*) t)
(setf (gethash "MOD" *common-lisp-symbols*) t)
(setf (gethash "READTABLEP" *common-lisp-symbols*) t)
(setf (gethash "LOGORC2" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-TYPE-ERROR" *common-lisp-symbols*) t)
(setf (gethash "DEFPACKAGE" *common-lisp-symbols*) t)
(setf (gethash "WITH-SIMPLE-RESTART" *common-lisp-symbols*) t)
(setf (gethash "RPLACD" *common-lisp-symbols*) t)
(setf (gethash "Y-OR-N-P" *common-lisp-symbols*) t)
(setf (gethash "THE" *common-lisp-symbols*) t)
(setf (gethash "REMOVE-IF" *common-lisp-symbols*) t)
(setf (gethash "DEBUG" *common-lisp-symbols*) t)
(setf (gethash "RATIONALIZE" *common-lisp-symbols*) t)
(setf (gethash "ARITHMETIC-ERROR" *common-lisp-symbols*) t)
(setf (gethash "DEFINE-MODIFY-MACRO" *common-lisp-symbols*) t)
(setf (gethash "MOST-POSITIVE-FIXNUM" *common-lisp-symbols*) t)
(setf (gethash "CHAR-NAME" *common-lisp-symbols*) t)
(setf (gethash "ARITHMETIC-ERROR-OPERANDS" *common-lisp-symbols*) t)
(setf (gethash "FILE-LENGTH" *common-lisp-symbols*) t)
(setf (gethash "OPEN-STREAM-P" *common-lisp-symbols*) t)
(setf (gethash "SUBTYPEP" *common-lisp-symbols*) t)
(setf (gethash "HASH-TABLE-SIZE" *common-lisp-symbols*) t)
(setf (gethash "READ-PRESERVING-WHITESPACE" *common-lisp-symbols*) t)
(setf (gethash "MAKE-LIST" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-ELEMENT-TYPE" *common-lisp-symbols*) t)
(setf (gethash "TWO-WAY-STREAM-INPUT-STREAM" *common-lisp-symbols*) t)
(setf (gethash "NCONC" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-FILL" *common-lisp-symbols*) t)
(setf (gethash "LOG" *common-lisp-symbols*) t)
(setf (gethash "DECODE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-CONDITION-FORMAT-CONTROL" *common-lisp-symbols*) t)
(setf (gethash "COPY-ALIST" *common-lisp-symbols*) t)
(setf (gethash "SATISFIES" *common-lisp-symbols*) t)
(setf (gethash "STANDARD-CHAR" *common-lisp-symbols*) t)
(setf (gethash "ASH" *common-lisp-symbols*) t)
(setf (gethash "DOUBLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "INTERN" *common-lisp-symbols*) t)
(setf (gethash "*RANDOM-STATE*" *common-lisp-symbols*) t)
(setf (gethash "METHOD-COMBINATION-ERROR" *common-lisp-symbols*) t)
(setf (gethash "ALPHA-CHAR-P" *common-lisp-symbols*) t)
(setf (gethash "NTH" *common-lisp-symbols*) t)
(setf (gethash "WRITE-SEQUENCE" *common-lisp-symbols*) t)
(setf (gethash "INSPECT" *common-lisp-symbols*) t)
(setf (gethash "MAPLIST" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-ROW-MAJOR-INDEX" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "STRING-LESSP" *common-lisp-symbols*) t)
(setf (gethash "CHAR-UPCASE" *common-lisp-symbols*) t)
(setf (gethash "PLUSP" *common-lisp-symbols*) t)
(setf (gethash "DELETE-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "WRITE-TO-STRING" *common-lisp-symbols*) t)
(setf (gethash "MAKE-CONCATENATED-STREAM" *common-lisp-symbols*) t)
(setf (gethash "DELETE-DUPLICATES" *common-lisp-symbols*) t)
(setf (gethash "OTHERWISE" *common-lisp-symbols*) t)
(setf (gethash "DEFMACRO" *common-lisp-symbols*) t)
(setf (gethash "WITH-CONDITION-RESTARTS" *common-lisp-symbols*) t)
(setf (gethash "FUNCTIONP" *common-lisp-symbols*) t)
(setf (gethash "VALUES" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-LOGICAL-BLOCK" *common-lisp-symbols*) t)
(setf (gethash "TIME" *common-lisp-symbols*) t)
(setf (gethash "DESCRIBE-OBJECT" *common-lisp-symbols*) t)
(setf (gethash "INTEGER-DECODE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "CATCH" *common-lisp-symbols*) t)
(setf (gethash "EVERY" *common-lisp-symbols*) t)
(setf (gethash "SOME" *common-lisp-symbols*) t)
(setf (gethash "SHORT-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "EQUAL" *common-lisp-symbols*) t)
(setf (gethash "LISTEN" *common-lisp-symbols*) t)
(setf (gethash "NOTEVERY" *common-lisp-symbols*) t)
(setf (gethash "SIXTH" *common-lisp-symbols*) t)
(setf (gethash "SHADOWING-IMPORT" *common-lisp-symbols*) t)
(setf (gethash "WITH-OUTPUT-TO-STRING" *common-lisp-symbols*) t)
(setf (gethash "COPY-LIST" *common-lisp-symbols*) t)
(setf (gethash "LOGTEST" *common-lisp-symbols*) t)
(setf (gethash "NIL" *common-lisp-symbols*) t)
(setf (gethash "DELETE-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "APPLY" *common-lisp-symbols*) t)
(setf (gethash "EQL" *common-lisp-symbols*) t)
(setf (gethash "HASH-TABLE" *common-lisp-symbols*) t)
(setf (gethash "LONG-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "MAKE-LOAD-FORM-SAVING-SLOTS" *common-lisp-symbols*) t)
(setf (gethash "HASH-TABLE-P" *common-lisp-symbols*) t)
(setf (gethash "LCM" *common-lisp-symbols*) t)
(setf (gethash "MACHINE-VERSION" *common-lisp-symbols*) t)
(setf (gethash "SYMBOL-VALUE" *common-lisp-symbols*) t)
(setf (gethash "ATAN" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-LONG-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "SUBST-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "REM" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "FILE-NAMESTRING" *common-lisp-symbols*) t)
(setf (gethash "MAPCAR" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-RANK" *common-lisp-symbols*) t)
(setf (gethash "WITH-ACCESSORS" *common-lisp-symbols*) t)
(setf (gethash "MACRO-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-WARNING" *common-lisp-symbols*) t)
(setf (gethash "COMPLEX" *common-lisp-symbols*) t)
(setf (gethash "TAN" *common-lisp-symbols*) t)
(setf (gethash "MIN" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-C2" *common-lisp-symbols*) t)
(setf (gethash "FILL-POINTER" *common-lisp-symbols*) t)
(setf (gethash "VECTORP" *common-lisp-symbols*) t)
(setf (gethash "READ-FROM-STRING" *common-lisp-symbols*) t)
(setf (gethash "RANDOM-STATE" *common-lisp-symbols*) t)
(setf (gethash "NSUBST-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "SIN" *common-lisp-symbols*) t)
(setf (gethash "PROG1" *common-lisp-symbols*) t)
(setf (gethash "USER-HOMEDIR-PATHNAME" *common-lisp-symbols*) t)
(setf (gethash "FLOAT-DIGITS" *common-lisp-symbols*) t)
(setf (gethash "STRING<=" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-CONDITION" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE-NICKNAMES" *common-lisp-symbols*) t)
(setf (gethash "TYPE" *common-lisp-symbols*) t)
(setf (gethash "SYNONYM-STREAM-SYMBOL" *common-lisp-symbols*) t)
(setf (gethash "TYPEP" *common-lisp-symbols*) t)
(setf (gethash "CLOSE" *common-lisp-symbols*) t)
(setf (gethash "LOGEQV" *common-lisp-symbols*) t)
(setf (gethash "ENSURE-DIRECTORIES-EXIST" *common-lisp-symbols*) t)
(setf (gethash "CASE" *common-lisp-symbols*) t)
(setf (gethash "MAP" *common-lisp-symbols*) t)
(setf (gethash "DEFPARAMETER" *common-lisp-symbols*) t)
(setf (gethash "NO-APPLICABLE-METHOD" *common-lisp-symbols*) t)
(setf (gethash "SUBSTITUTE-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "MASK-FIELD" *common-lisp-symbols*) t)
(setf (gethash "TANH" *common-lisp-symbols*) t)
(setf (gethash "ENOUGH-NAMESTRING" *common-lisp-symbols*) t)
(setf (gethash "TYPE-ERROR-EXPECTED-TYPE" *common-lisp-symbols*) t)
(setf (gethash "SINGLE-FLOAT-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "EXP" *common-lisp-symbols*) t)
(setf (gethash "POP" *common-lisp-symbols*) t)
(setf (gethash "CHAR/=" *common-lisp-symbols*) t)
(setf (gethash "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" *common-lisp-symbols*) t)
(setf (gethash "*COMPILE-FILE-PATHNAME*" *common-lisp-symbols*) t)
(setf (gethash "SINH" *common-lisp-symbols*) t)
(setf (gethash "CAR" *common-lisp-symbols*) t)
(setf (gethash "UPPER-CASE-P" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-LINES*" *common-lisp-symbols*) t)
(setf (gethash "EVENP" *common-lisp-symbols*) t)
(setf (gethash "CDR" *common-lisp-symbols*) t)
(setf (gethash "OPEN" *common-lisp-symbols*) t)
(setf (gethash "WHEN" *common-lisp-symbols*) t)
(setf (gethash "ABS" *common-lisp-symbols*) t)
(setf (gethash "BYTE" *common-lisp-symbols*) t)
(setf (gethash "UNDEFINED-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "VECTOR-PUSH" *common-lisp-symbols*) t)
(setf (gethash "SYMBOL-MACROLET" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-IN-BOUNDS-P" *common-lisp-symbols*) t)
(setf (gethash "FIXNUM" *common-lisp-symbols*) t)
(setf (gethash "BIT-ORC1" *common-lisp-symbols*) t)
(setf (gethash "CIS" *common-lisp-symbols*) t)
(setf (gethash "CELL-ERROR-NAME" *common-lisp-symbols*) t)
(setf (gethash "MOST-NEGATIVE-LONG-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "STRING-UPCASE" *common-lisp-symbols*) t)
(setf (gethash "STRING-LEFT-TRIM" *common-lisp-symbols*) t)
(setf (gethash "STREAM-ERROR-STREAM" *common-lisp-symbols*) t)
(setf (gethash "COS" *common-lisp-symbols*) t)
(setf (gethash "DELETE-IF" *common-lisp-symbols*) t)
(setf (gethash "ADJUSTABLE-ARRAY-P" *common-lisp-symbols*) t)
(setf (gethash "MAKE-SYNONYM-STREAM" *common-lisp-symbols*) t)
(setf (gethash "TYPE-ERROR-DATUM" *common-lisp-symbols*) t)
(setf (gethash "BIT" *common-lisp-symbols*) t)
(setf (gethash "GET" *common-lisp-symbols*) t)
(setf (gethash "MULTIPLE-VALUE-LIST" *common-lisp-symbols*) t)
(setf (gethash "READ-SEQUENCE" *common-lisp-symbols*) t)
(setf (gethash "ECHO-STREAM-OUTPUT-STREAM" *common-lisp-symbols*) t)
(setf (gethash "LET" *common-lisp-symbols*) t)
(setf (gethash "ELT" *common-lisp-symbols*) t)
(setf (gethash "FILE-ERROR-PATHNAME" *common-lisp-symbols*) t)
(setf (gethash "ALLOCATE-INSTANCE" *common-lisp-symbols*) t)
(setf (gethash "BIT-EQV" *common-lisp-symbols*) t)
(setf (gethash "CONSTANTLY" *common-lisp-symbols*) t)
(setf (gethash "SET" *common-lisp-symbols*) t)
(setf (gethash "TREE-EQUAL" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "NOT" *common-lisp-symbols*) t)
(setf (gethash "CAAADR" *common-lisp-symbols*) t)
(setf (gethash "SYMBOLP" *common-lisp-symbols*) t)
(setf (gethash "ASIN" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-ANDC1" *common-lisp-symbols*) t)
(setf (gethash "CDAADR" *common-lisp-symbols*) t)
(setf (gethash "INTEGER" *common-lisp-symbols*) t)
(setf (gethash "DECODE-UNIVERSAL-TIME" *common-lisp-symbols*) t)
(setf (gethash "COSH" *common-lisp-symbols*) t)
(setf (gethash "GET-INTERNAL-REAL-TIME" *common-lisp-symbols*) t)
(setf (gethash "COMPILE-FILE" *common-lisp-symbols*) t)
(setf (gethash "FIND-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "LONG-FLOAT-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "FTYPE" *common-lisp-symbols*) t)
(setf (gethash "REMOVE" *common-lisp-symbols*) t)
(setf (gethash "SEQUENCE" *common-lisp-symbols*) t)
(setf (gethash "ENCODE-UNIVERSAL-TIME" *common-lisp-symbols*) t)
(setf (gethash "CEILING" *common-lisp-symbols*) t)
(setf (gethash "BIT-AND" *common-lisp-symbols*) t)
(setf (gethash "CLEAR-OUTPUT" *common-lisp-symbols*) t)
(setf (gethash "COMPLEMENT" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "PUSH" *common-lisp-symbols*) t)
(setf (gethash "FLOATING-POINT-OVERFLOW" *common-lisp-symbols*) t)
(setf (gethash "STANDARD-OBJECT" *common-lisp-symbols*) t)
(setf (gethash "UNION" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-DISPLACEMENT" *common-lisp-symbols*) t)
(setf (gethash "READTABLE-CASE" *common-lisp-symbols*) t)
(setf (gethash "LOWER-CASE-P" *common-lisp-symbols*) t)
(setf (gethash "BIT-NOR" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-EXIT-IF-LIST-EXHAUSTED" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-ANDC2" *common-lisp-symbols*) t)
(setf (gethash "MAX" *common-lisp-symbols*) t)
(setf (gethash "CADADR" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-RIGHT-MARGIN*" *common-lisp-symbols*) t)
(setf (gethash "CDDADR" *common-lisp-symbols*) t)
(setf (gethash "GET-SETF-EXPANSION" *common-lisp-symbols*) t)
(setf (gethash "SEVENTH" *common-lisp-symbols*) t)
(setf (gethash "OUTPUT-STREAM-P" *common-lisp-symbols*) t)
(setf (gethash "PRINT-OBJECT" *common-lisp-symbols*) t)
(setf (gethash "COPY-READTABLE" *common-lisp-symbols*) t)
(setf (gethash "STRING<" *common-lisp-symbols*) t)
(setf (gethash "CHAR-NOT-LESSP" *common-lisp-symbols*) t)
(setf (gethash "STRINGP" *common-lisp-symbols*) t)
(setf (gethash "POSITION-IF" *common-lisp-symbols*) t)
(setf (gethash "STANDARD-CHAR-P" *common-lisp-symbols*) t)
(setf (gethash "INVOKE-RESTART" *common-lisp-symbols*) t)
(setf (gethash "NO-NEXT-METHOD" *common-lisp-symbols*) t)
(setf (gethash "RESTART-CASE" *common-lisp-symbols*) t)
(setf (gethash "NUMBERP" *common-lisp-symbols*) t)
(setf (gethash "RASSOC-IF" *common-lisp-symbols*) t)
(setf (gethash "MAKE-STRING" *common-lisp-symbols*) t)
(setf (gethash "&BODY" *common-lisp-symbols*) t)
(setf (gethash "REMPROP" *common-lisp-symbols*) t)
(setf (gethash "INITIALIZE-INSTANCE" *common-lisp-symbols*) t)
(setf (gethash "WITH-PACKAGE-ITERATOR" *common-lisp-symbols*) t)
(setf (gethash "DEFINE-SETF-EXPANDER" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-2" *common-lisp-symbols*) t)
(setf (gethash "*PACKAGE*" *common-lisp-symbols*) t)
(setf (gethash "STRING-GREATERP" *common-lisp-symbols*) t)
(setf (gethash "STRING/=" *common-lisp-symbols*) t)
(setf (gethash "FLET" *common-lisp-symbols*) t)
(setf (gethash "LISP-IMPLEMENTATION-VERSION" *common-lisp-symbols*) t)
(setf (gethash "RETURN-FROM" *common-lisp-symbols*) t)
(setf (gethash "FILE-WRITE-DATE" *common-lisp-symbols*) t)
(setf (gethash "FILE-STRING-LENGTH" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE-USE-LIST" *common-lisp-symbols*) t)
(setf (gethash "LOGNOR" *common-lisp-symbols*) t)
(setf (gethash "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-ESCAPE*" *common-lisp-symbols*) t)
(setf (gethash "DOUBLE-FLOAT-NEGATIVE-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "INPUT-STREAM-P" *common-lisp-symbols*) t)
(setf (gethash "MAKE-BROADCAST-STREAM" *common-lisp-symbols*) t)
(setf (gethash "SLOT-BOUNDP" *common-lisp-symbols*) t)
(setf (gethash "REMOVE-METHOD" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-CIRCLE*" *common-lisp-symbols*) t)
(setf (gethash "MAKE-LOAD-FORM" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-LINEAR" *common-lisp-symbols*) t)
(setf (gethash "DEFUN" *common-lisp-symbols*) t)
(setf (gethash "DESTRUCTURING-BIND" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-HAS-FILL-POINTER-P" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "DO-ALL-SYMBOLS" *common-lisp-symbols*) t)
(setf (gethash "IMPORT" *common-lisp-symbols*) t)
(setf (gethash "SHIFTF" *common-lisp-symbols*) t)
(setf (gethash "ALPHANUMERICP" *common-lisp-symbols*) t)
(setf (gethash "LISP-IMPLEMENTATION-TYPE" *common-lisp-symbols*) t)
(setf (gethash "UPGRADED-ARRAY-ELEMENT-TYPE" *common-lisp-symbols*) t)
(setf (gethash "EXPORT" *common-lisp-symbols*) t)
(setf (gethash "FIND-IF" *common-lisp-symbols*) t)
(setf (gethash "STANDARD-GENERIC-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "SLOT-EXISTS-P" *common-lisp-symbols*) t)
(setf (gethash "ARRAY" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-SINGLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "*DEFAULT-PATHNAME-DEFAULTS*" *common-lisp-symbols*) t)
(setf (gethash "MAKE-STRING-OUTPUT-STREAM" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-INDENT" *common-lisp-symbols*) t)
(setf (gethash "VARIABLE" *common-lisp-symbols*) t)
(setf (gethash "FBOUNDP" *common-lisp-symbols*) t)
(setf (gethash "PRINT-NOT-READABLE" *common-lisp-symbols*) t)
(setf (gethash "WARN" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME-NAME" *common-lisp-symbols*) t)
(setf (gethash "MULTIPLE-VALUE-SETQ" *common-lisp-symbols*) t)
(setf (gethash "ROUND" *common-lisp-symbols*) t)
(setf (gethash "PROG2" *common-lisp-symbols*) t)
(setf (gethash "DOLIST" *common-lisp-symbols*) t)
(setf (gethash "UNWIND-PROTECT" *common-lisp-symbols*) t)
(setf (gethash "TRUNCATE" *common-lisp-symbols*) t)
(setf (gethash "SBIT" *common-lisp-symbols*) t)
(setf (gethash "SCALE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "CAADAR" *common-lisp-symbols*) t)
(setf (gethash "CDADAR" *common-lisp-symbols*) t)
(setf (gethash "*LOAD-PRINT*" *common-lisp-symbols*) t)
(setf (gethash "HASH-TABLE-TEST" *common-lisp-symbols*) t)
(setf (gethash "COMPUTE-RESTARTS" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE-NAME" *common-lisp-symbols*) t)
(setf (gethash "NSUBSTITUTE-IF" *common-lisp-symbols*) t)
(setf (gethash "*" *common-lisp-symbols*) t)
(setf (gethash "+" *common-lisp-symbols*) t)
(setf (gethash "LOGORC1" *common-lisp-symbols*) t)
(setf (gethash "-" *common-lisp-symbols*) t)
(setf (gethash "INTERNAL-TIME-UNITS-PER-SECOND" *common-lisp-symbols*) t)
(setf (gethash "/" *common-lisp-symbols*) t)
(setf (gethash "STABLE-SORT" *common-lisp-symbols*) t)
(setf (gethash "DEPOSIT-FIELD" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-TOTAL-SIZE-LIMIT" *common-lisp-symbols*) t)
(setf (gethash "VECTOR" *common-lisp-symbols*) t)
(setf (gethash "***" *common-lisp-symbols*) t)
(setf (gethash "DEFTYPE" *common-lisp-symbols*) t)
(setf (gethash "LOGNOT" *common-lisp-symbols*) t)
(setf (gethash "<" *common-lisp-symbols*) t)
(setf (gethash "MACROLET" *common-lisp-symbols*) t)
(setf (gethash "STRUCTURE-CLASS" *common-lisp-symbols*) t)
(setf (gethash "DECF" *common-lisp-symbols*) t)
(setf (gethash "BASE-STRING" *common-lisp-symbols*) t)
(setf (gethash "=" *common-lisp-symbols*) t)
(setf (gethash ">" *common-lisp-symbols*) t)
(setf (gethash "ABORT" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-ORC1" *common-lisp-symbols*) t)
(setf (gethash "APPEND" *common-lisp-symbols*) t)
(setf (gethash "+++" *common-lisp-symbols*) t)
(setf (gethash "DOTIMES" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-AND" *common-lisp-symbols*) t)
(setf (gethash "FILE-AUTHOR" *common-lisp-symbols*) t)
(setf (gethash "INCF" *common-lisp-symbols*) t)
(setf (gethash "NREVERSE" *common-lisp-symbols*) t)
(setf (gethash "CADDAR" *common-lisp-symbols*) t)
(setf (gethash "CDDDAR" *common-lisp-symbols*) t)
(setf (gethash "DELETE" *common-lisp-symbols*) t)
(setf (gethash "CONCATENATE" *common-lisp-symbols*) t)
(setf (gethash "VECTOR-PUSH-EXTEND" *common-lisp-symbols*) t)
(setf (gethash "DEFSTRUCT" *common-lisp-symbols*) t)
(setf (gethash "PROVIDE" *common-lisp-symbols*) t)
(setf (gethash "*STANDARD-OUTPUT*" *common-lisp-symbols*) t)
(setf (gethash "*MACROEXPAND-HOOK*" *common-lisp-symbols*) t)
(setf (gethash "RENAME-FILE" *common-lisp-symbols*) t)
(setf (gethash "READ-BYTE" *common-lisp-symbols*) t)
(setf (gethash "FILE-POSITION" *common-lisp-symbols*) t)
(setf (gethash "AREF" *common-lisp-symbols*) t)
(setf (gethash "CALL-METHOD" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-VECTOR-P" *common-lisp-symbols*) t)
(setf (gethash "UNEXPORT" *common-lisp-symbols*) t)
(setf (gethash "COMPILER-MACRO-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "CLASS-NAME" *common-lisp-symbols*) t)
(setf (gethash "TAGBODY" *common-lisp-symbols*) t)
(setf (gethash "T" *common-lisp-symbols*) t)
(setf (gethash "CHAR<=" *common-lisp-symbols*) t)
(setf (gethash "SETQ" *common-lisp-symbols*) t)
(setf (gethash "ISQRT" *common-lisp-symbols*) t)
(setf (gethash "ECHO-STREAM-INPUT-STREAM" *common-lisp-symbols*) t)
(setf (gethash "CLASS" *common-lisp-symbols*) t)
(setf (gethash "MACROEXPAND" *common-lisp-symbols*) t)
(setf (gethash "NINTERSECTION" *common-lisp-symbols*) t)
(setf (gethash "*TRACE-OUTPUT*" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-SET" *common-lisp-symbols*) t)
(setf (gethash "LIST-LENGTH" *common-lisp-symbols*) t)
(setf (gethash "DECLAIM" *common-lisp-symbols*) t)
(setf (gethash "RPLACA" *common-lisp-symbols*) t)
(setf (gethash "*LOAD-PATHNAME*" *common-lisp-symbols*) t)
(setf (gethash "EXPT" *common-lisp-symbols*) t)
(setf (gethash "BIT-IOR" *common-lisp-symbols*) t)
(setf (gethash "///" *common-lisp-symbols*) t)
(setf (gethash "INTERACTIVE-STREAM-P" *common-lisp-symbols*) t)
(setf (gethash "GET-INTERNAL-RUN-TIME" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-TOTAL-SIZE" *common-lisp-symbols*) t)
(setf (gethash "ROW-MAJOR-AREF" *common-lisp-symbols*) t)
(setf (gethash "TYPECASE" *common-lisp-symbols*) t)
(setf (gethash "UNUSE-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "WITH-INPUT-FROM-STRING" *common-lisp-symbols*) t)
(setf (gethash "NSTRING-UPCASE" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-PRETTY*" *common-lisp-symbols*) t)
(setf (gethash "FLOAT" *common-lisp-symbols*) t)
(setf (gethash "SLOT-MAKUNBOUND" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-GENSYM*" *common-lisp-symbols*) t)
(setf (gethash "RATIO" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-DIMENSION-LIMIT" *common-lisp-symbols*) t)
(setf (gethash "*LOAD-VERBOSE*" *common-lisp-symbols*) t)
(setf (gethash "COPY-TREE" *common-lisp-symbols*) t)
(setf (gethash "UNSIGNED-BYTE" *common-lisp-symbols*) t)
(setf (gethash "MAKUNBOUND" *common-lisp-symbols*) t)
(setf (gethash "LAST" *common-lisp-symbols*) t)
(setf (gethash "SORT" *common-lisp-symbols*) t)
(setf (gethash "&WHOLE" *common-lisp-symbols*) t)
(setf (gethash "SXHASH" *common-lisp-symbols*) t)
(setf (gethash "RASSOC" *common-lisp-symbols*) t)
(setf (gethash "FILE-STREAM" *common-lisp-symbols*) t)
(setf (gethash "STRUCTURE-OBJECT" *common-lisp-symbols*) t)
(setf (gethash "DO*" *common-lisp-symbols*) t)
(setf (gethash "LISTP" *common-lisp-symbols*) t)
(setf (gethash "REALPART" *common-lisp-symbols*) t)
(setf (gethash "SPACE" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-IOR" *common-lisp-symbols*) t)
(setf (gethash "*COMPILE-FILE-TRUENAME*" *common-lisp-symbols*) t)
(setf (gethash "TRACE" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-LEVEL*" *common-lisp-symbols*) t)
(setf (gethash "PROGRAM-ERROR" *common-lisp-symbols*) t)
(setf (gethash "SQRT" *common-lisp-symbols*) t)
(setf (gethash "LIST" *common-lisp-symbols*) t)
(setf (gethash "REST" *common-lisp-symbols*) t)
(setf (gethash "REAL" *common-lisp-symbols*) t)
(setf (gethash "END-OF-FILE" *common-lisp-symbols*) t)
(setf (gethash "REALP" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-ERROR" *common-lisp-symbols*) t)
(setf (gethash "EVAL" *common-lisp-symbols*) t)
(setf (gethash "STRING-RIGHT-TRIM" *common-lisp-symbols*) t)
(setf (gethash "MAPC" *common-lisp-symbols*) t)
(setf (gethash "SHADOW" *common-lisp-symbols*) t)
(setf (gethash "LONG-SITE-NAME" *common-lisp-symbols*) t)
(setf (gethash "CHAR-CODE" *common-lisp-symbols*) t)
(setf (gethash "MEMBER" *common-lisp-symbols*) t)
(setf (gethash "NSUBLIS" *common-lisp-symbols*) t)
(setf (gethash "COUNT-IF" *common-lisp-symbols*) t)
(setf (gethash "ECHO-STREAM" *common-lisp-symbols*) t)
(setf (gethash "STRING" *common-lisp-symbols*) t)
(setf (gethash "DISASSEMBLE" *common-lisp-symbols*) t)
(setf (gethash "IDENTITY" *common-lisp-symbols*) t)
(setf (gethash "READ-CHAR" *common-lisp-symbols*) t)
(setf (gethash "NUMBER" *common-lisp-symbols*) t)
(setf (gethash "PSETQ" *common-lisp-symbols*) t)
(setf (gethash "WILD-PATHNAME-P" *common-lisp-symbols*) t)
(setf (gethash "IN-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-STRING" *common-lisp-symbols*) t)
(setf (gethash "WITH-OPEN-FILE" *common-lisp-symbols*) t)
(setf (gethash "FLOATING-POINT-UNDERFLOW" *common-lisp-symbols*) t)
(setf (gethash "LONG-FLOAT-NEGATIVE-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "REMF" *common-lisp-symbols*) t)
(setf (gethash "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" *common-lisp-symbols*) t)
(setf (gethash "WRITE" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-STRING-P" *common-lisp-symbols*) t)
(setf (gethash "MAKE-ECHO-STREAM" *common-lisp-symbols*) t)
(setf (gethash "MACHINE-TYPE" *common-lisp-symbols*) t)
(setf (gethash "BYTE-POSITION" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "HOST-NAMESTRING" *common-lisp-symbols*) t)
(setf (gethash "ASSOC" *common-lisp-symbols*) t)
(setf (gethash "NBUTLAST" *common-lisp-symbols*) t)
(setf (gethash "DEFGENERIC" *common-lisp-symbols*) t)
(setf (gethash "COPY-STRUCTURE" *common-lisp-symbols*) t)
(setf (gethash "LDB-TEST" *common-lisp-symbols*) t)
(setf (gethash "FIND-SYMBOL" *common-lisp-symbols*) t)
(setf (gethash "LOAD-TIME-VALUE" *common-lisp-symbols*) t)
(setf (gethash "SERIOUS-CONDITION" *common-lisp-symbols*) t)
(setf (gethash "SVREF" *common-lisp-symbols*) t)
(setf (gethash "CHAR-INT" *common-lisp-symbols*) t)
(setf (gethash "NOTANY" *common-lisp-symbols*) t)
(setf (gethash "YES-OR-NO-P" *common-lisp-symbols*) t)
(setf (gethash "REPLACE" *common-lisp-symbols*) t)
(setf (gethash "*MODULES*" *common-lisp-symbols*) t)
(setf (gethash "MAKE-STRING-INPUT-STREAM" *common-lisp-symbols*) t)
(setf (gethash "MAKE-RANDOM-STATE" *common-lisp-symbols*) t)
(setf (gethash "CHAR-NOT-GREATERP" *common-lisp-symbols*) t)
(setf (gethash "DRIBBLE" *common-lisp-symbols*) t)
(setf (gethash "STORAGE-CONDITION" *common-lisp-symbols*) t)
(setf (gethash "FLOAT-RADIX" *common-lisp-symbols*) t)
(setf (gethash "DOUBLE-FLOAT-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "SOFTWARE-TYPE" *common-lisp-symbols*) t)
(setf (gethash "GET-PROPERTIES" *common-lisp-symbols*) t)
(setf (gethash "DECLARE" *common-lisp-symbols*) t)
(setf (gethash "USE-VALUE" *common-lisp-symbols*) t)
(setf (gethash "PROGN" *common-lisp-symbols*) t)
(setf (gethash "CALL-NEXT-METHOD" *common-lisp-symbols*) t)
(setf (gethash "LOGBITP" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-ORC2" *common-lisp-symbols*) t)
(setf (gethash "OPTIMIZE" *common-lisp-symbols*) t)
(setf (gethash "SPECIAL-OPERATOR-P" *common-lisp-symbols*) t)
(setf (gethash "READ-CHAR-NO-HANG" *common-lisp-symbols*) t)
(setf (gethash "COMPILED-FUNCTION-P" *common-lisp-symbols*) t)
(setf (gethash "CONDITION" *common-lisp-symbols*) t)
(setf (gethash "FIND-ALL-SYMBOLS" *common-lisp-symbols*) t)
(setf (gethash "SET-PPRINT-DISPATCH" *common-lisp-symbols*) t)
(setf (gethash "DEFCLASS" *common-lisp-symbols*) t)
(setf (gethash "GENSYM" *common-lisp-symbols*) t)
(setf (gethash "*GENSYM-COUNTER*" *common-lisp-symbols*) t)
(setf (gethash "UNINTERN" *common-lisp-symbols*) t)
(setf (gethash "FCEILING" *common-lisp-symbols*) t)
(setf (gethash "FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "DO-SYMBOLS" *common-lisp-symbols*) t)
(setf (gethash "TAILP" *common-lisp-symbols*) t)
(setf (gethash "FLOATING-POINT-INEXACT" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-CASE*" *common-lisp-symbols*) t)
(setf (gethash "CAAR" *common-lisp-symbols*) t)
(setf (gethash "CDAR" *common-lisp-symbols*) t)
(setf (gethash "CHAR" *common-lisp-symbols*) t)
(setf (gethash "QUOTE" *common-lisp-symbols*) t)
(setf (gethash "NTH-VALUE" *common-lisp-symbols*) t)
(setf (gethash "TWO-WAY-STREAM-OUTPUT-STREAM" *common-lisp-symbols*) t)
(setf (gethash "GETF" *common-lisp-symbols*) t)
(setf (gethash "STRING-DOWNCASE" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-DIMENSIONS" *common-lisp-symbols*) t)
(setf (gethash "LIST-ALL-PACKAGES" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE-SHADOWING-SYMBOLS" *common-lisp-symbols*) t)
(setf (gethash "LOGIOR" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-RADIX*" *common-lisp-symbols*) t)
(setf (gethash "WITH-SLOTS" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-RANK-LIMIT" *common-lisp-symbols*) t)
(setf (gethash "BIT-NAND" *common-lisp-symbols*) t)
(setf (gethash "PRIN1" *common-lisp-symbols*) t)
(setf (gethash "SETF" *common-lisp-symbols*) t)
(setf (gethash "FMAKUNBOUND" *common-lisp-symbols*) t)
(setf (gethash "GET-DISPATCH-MACRO-CHARACTER" *common-lisp-symbols*) t)
(setf (gethash "WITH-COMPILATION-UNIT" *common-lisp-symbols*) t)
(setf (gethash "IGNORE" *common-lisp-symbols*) t)
(setf (gethash "BOOLEAN" *common-lisp-symbols*) t)
(setf (gethash "MAKE-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "MAKE-DISPATCH-MACRO-CHARACTER" *common-lisp-symbols*) t)
(setf (gethash "LIST*" *common-lisp-symbols*) t)
(setf (gethash "PPRINT" *common-lisp-symbols*) t)
(setf (gethash "SPECIAL" *common-lisp-symbols*) t)
(setf (gethash "FILL" *common-lisp-symbols*) t)
(setf (gethash "SET-DISPATCH-MACRO-CHARACTER" *common-lisp-symbols*) t)
(setf (gethash "FILE-ERROR" *common-lisp-symbols*) t)
(setf (gethash "SUBLIS" *common-lisp-symbols*) t)
(setf (gethash "*FEATURES*" *common-lisp-symbols*) t)
(setf (gethash "ARRAY-DIMENSION" *common-lisp-symbols*) t)
(setf (gethash "CADR" *common-lisp-symbols*) t)
(setf (gethash "CHANGE-CLASS" *common-lisp-symbols*) t)
(setf (gethash "CDDR" *common-lisp-symbols*) t)
(setf (gethash "HANDLER-BIND" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "BOTH-CASE-P" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-1" *common-lisp-symbols*) t)
(setf (gethash "NULL" *common-lisp-symbols*) t)
(setf (gethash "CLEAR-INPUT" *common-lisp-symbols*) t)
(setf (gethash "RANDOM" *common-lisp-symbols*) t)
(setf (gethash "&REST" *common-lisp-symbols*) t)
(setf (gethash "COUNT-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "STRING-CAPITALIZE" *common-lisp-symbols*) t)
(setf (gethash "CALL-ARGUMENTS-LIMIT" *common-lisp-symbols*) t)
(setf (gethash "RENAME-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "SEARCH" *common-lisp-symbols*) t)
(setf (gethash "DIGIT-CHAR-P" *common-lisp-symbols*) t)
(setf (gethash "NEXT-METHOD-P" *common-lisp-symbols*) t)
(setf (gethash "MUFFLE-WARNING" *common-lisp-symbols*) t)
(setf (gethash "&ENVIRONMENT" *common-lisp-symbols*) t)
(setf (gethash "BLOCK" *common-lisp-symbols*) t)
(setf (gethash "NTHCDR" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-CLR" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-NOR" *common-lisp-symbols*) t)
(setf (gethash "MULTIPLE-VALUES-LIMIT" *common-lisp-symbols*) t)
(setf (gethash "SUBST" *common-lisp-symbols*) t)
(setf (gethash "SIGNAL" *common-lisp-symbols*) t)
(setf (gethash "FIND-RESTART" *common-lisp-symbols*) t)
(setf (gethash "PSETF" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-CONDITION-FORMAT-ARGUMENTS" *common-lisp-symbols*) t)
(setf (gethash "MAPL" *common-lisp-symbols*) t)
(setf (gethash "STREAM-ERROR" *common-lisp-symbols*) t)
(setf (gethash "LOGCOUNT" *common-lisp-symbols*) t)
(setf (gethash "STREAM" *common-lisp-symbols*) t)
(setf (gethash "COMPUTE-APPLICABLE-METHODS" *common-lisp-symbols*) t)
(setf (gethash "LABELS" *common-lisp-symbols*) t)
(setf (gethash "VECTOR-POP" *common-lisp-symbols*) t)
(setf (gethash "THIRD" *common-lisp-symbols*) t)
(setf (gethash "*READ-BASE*" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-EQV" *common-lisp-symbols*) t)
(setf (gethash "STRING>=" *common-lisp-symbols*) t)
(setf (gethash "FLOAT-SIGN" *common-lisp-symbols*) t)
(setf (gethash "EXTENDED-CHAR" *common-lisp-symbols*) t)
(setf (gethash "CHAR-CODE-LIMIT" *common-lisp-symbols*) t)
(setf (gethash "RASSOC-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "PRIN1-TO-STRING" *common-lisp-symbols*) t)
(setf (gethash "FIND-METHOD" *common-lisp-symbols*) t)
(setf (gethash "UPGRADED-COMPLEX-PART-TYPE" *common-lisp-symbols*) t)
(setf (gethash "NUMERATOR" *common-lisp-symbols*) t)
(setf (gethash "DEFINE-METHOD-COMBINATION" *common-lisp-symbols*) t)
(setf (gethash "SHARED-INITIALIZE" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-DISPATCH" *common-lisp-symbols*) t)
(setf (gethash "BIT-ORC2" *common-lisp-symbols*) t)
(setf (gethash "STYLE-WARNING" *common-lisp-symbols*) t)
(setf (gethash "TYPE-ERROR" *common-lisp-symbols*) t)
(setf (gethash "SHORT-FLOAT-NEGATIVE-EPSILON" *common-lisp-symbols*) t)
(setf (gethash "SYMBOL-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "WRITE-BYTE" *common-lisp-symbols*) t)
(setf (gethash "METHOD" *common-lisp-symbols*) t)
(setf (gethash "WITH-HASH-TABLE-ITERATOR" *common-lisp-symbols*) t)
(setf (gethash "COMPILE" *common-lisp-symbols*) t)
(setf (gethash "*COMPILE-PRINT*" *common-lisp-symbols*) t)
(setf (gethash "MEMBER-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "TWO-WAY-STREAM" *common-lisp-symbols*) t)
(setf (gethash "DIGIT-CHAR" *common-lisp-symbols*) t)
(setf (gethash "MISMATCH" *common-lisp-symbols*) t)
(setf (gethash "TERPRI" *common-lisp-symbols*) t)
(setf (gethash "DECLARATION" *common-lisp-symbols*) t)
(setf (gethash "LOGICAL-PATHNAME-TRANSLATIONS" *common-lisp-symbols*) t)
(setf (gethash "*DEBUGGER-HOOK*" *common-lisp-symbols*) t)
(setf (gethash "*READ-EVAL*" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-VECTOR" *common-lisp-symbols*) t)
(setf (gethash "*READTABLE*" *common-lisp-symbols*) t)
(setf (gethash "PROBE-FILE" *common-lisp-symbols*) t)
(setf (gethash "UNTRACE" *common-lisp-symbols*) t)
(setf (gethash "READ" *common-lisp-symbols*) t)
(setf (gethash "IGNORABLE" *common-lisp-symbols*) t)
(setf (gethash "LOAD" *common-lisp-symbols*) t)
(setf (gethash "BIT-ANDC1" *common-lisp-symbols*) t)
(setf (gethash "NRECONC" *common-lisp-symbols*) t)
(setf (gethash "PROCLAIM" *common-lisp-symbols*) t)
(setf (gethash "BROADCAST-STREAM" *common-lisp-symbols*) t)
(setf (gethash "FINISH-OUTPUT" *common-lisp-symbols*) t)
(setf (gethash "*DEBUG-IO*" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-TABULAR" *common-lisp-symbols*) t)
(setf (gethash "MAP-INTO" *common-lisp-symbols*) t)
(setf (gethash "&ALLOW-OTHER-KEYS" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-DOUBLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "CHAR-LESSP" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-MISER-WIDTH*" *common-lisp-symbols*) t)
(setf (gethash "MAKE-SEQUENCE" *common-lisp-symbols*) t)
(setf (gethash "LAMBDA-PARAMETERS-LIMIT" *common-lisp-symbols*) t)
(setf (gethash "GET-DECODED-TIME" *common-lisp-symbols*) t)
(setf (gethash "PRINC-TO-STRING" *common-lisp-symbols*) t)
(setf (gethash "DIVISION-BY-ZERO" *common-lisp-symbols*) t)
(setf (gethash "ACOSH" *common-lisp-symbols*) t)
(setf (gethash "DEFINE-SYMBOL-MACRO" *common-lisp-symbols*) t)
(setf (gethash "STORE-VALUE" *common-lisp-symbols*) t)
(setf (gethash "ZEROP" *common-lisp-symbols*) t)
(setf (gethash "POSITION" *common-lisp-symbols*) t)
(setf (gethash "NSET-DIFFERENCE" *common-lisp-symbols*) t)
(setf (gethash "HASH-TABLE-REHASH-THRESHOLD" *common-lisp-symbols*) t)
(setf (gethash "FFLOOR" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-BASE*" *common-lisp-symbols*) t)
(setf (gethash "APROPOS-LIST" *common-lisp-symbols*) t)
(setf (gethash "IMAGPART" *common-lisp-symbols*) t)
(setf (gethash "FIND-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "BIT-NOT" *common-lisp-symbols*) t)
(setf (gethash "FOURTH" *common-lisp-symbols*) t)
(setf (gethash "CONSTANTP" *common-lisp-symbols*) t)
(setf (gethash "NOTINLINE" *common-lisp-symbols*) t)
(setf (gethash "BIT-ANDC2" *common-lisp-symbols*) t)
(setf (gethash "DEFVAR" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "ROTATEF" *common-lisp-symbols*) t)
(setf (gethash "CLASS-OF" *common-lisp-symbols*) t)
(setf (gethash "STRING>" *common-lisp-symbols*) t)
(setf (gethash "RETURN" *common-lisp-symbols*) t)
(setf (gethash "MAKE-INSTANCE" *common-lisp-symbols*) t)
(setf (gethash "SUBSEQ" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME-DIRECTORY" *common-lisp-symbols*) t)
(setf (gethash "READ-LINE" *common-lisp-symbols*) t)
(setf (gethash "SET-SYNTAX-FROM-CHAR" *common-lisp-symbols*) t)
(setf (gethash "RANDOM-STATE-P" *common-lisp-symbols*) t)
(setf (gethash "USE-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "CHAR<" *common-lisp-symbols*) t)
(setf (gethash "PARSE-INTEGER" *common-lisp-symbols*) t)
(setf (gethash "CHAR-EQUAL" *common-lisp-symbols*) t)
(setf (gethash "MULTIPLE-VALUE-CALL" *common-lisp-symbols*) t)
(setf (gethash "ADD-METHOD" *common-lisp-symbols*) t)
(setf (gethash "CAAAAR" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE-USED-BY-LIST" *common-lisp-symbols*) t)
(setf (gethash "PRINT-UNREADABLE-OBJECT" *common-lisp-symbols*) t)
(setf (gethash "CDAAAR" *common-lisp-symbols*) t)
(setf (gethash "DESCRIBE" *common-lisp-symbols*) t)
(setf (gethash "BOOLE" *common-lisp-symbols*) t)
(setf (gethash "COMPILER-MACRO" *common-lisp-symbols*) t)
(setf (gethash "LEAST-POSITIVE-SHORT-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "SECOND" *common-lisp-symbols*) t)
(setf (gethash "SYNONYM-STREAM" *common-lisp-symbols*) t)
(setf (gethash "MEMBER-IF" *common-lisp-symbols*) t)
(setf (gethash "UNREAD-CHAR" *common-lisp-symbols*) t)
(setf (gethash "SYMBOL-PLIST" *common-lisp-symbols*) t)
(setf (gethash "LDIFF" *common-lisp-symbols*) t)
(setf (gethash "CHAR>=" *common-lisp-symbols*) t)
(setf (gethash "DO-EXTERNAL-SYMBOLS" *common-lisp-symbols*) t)
(setf (gethash "READ-DELIMITED-LIST" *common-lisp-symbols*) t)
(setf (gethash "COMPILE-FILE-PATHNAME" *common-lisp-symbols*) t)
(setf (gethash "WITH-OPEN-STREAM" *common-lisp-symbols*) t)
(setf (gethash "PRINT-NOT-READABLE-OBJECT" *common-lisp-symbols*) t)
(setf (gethash "GET-OUTPUT-STREAM-STRING" *common-lisp-symbols*) t)
(setf (gethash "MOST-NEGATIVE-SHORT-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "MOST-NEGATIVE-SINGLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "FORMAT" *common-lisp-symbols*) t)
(setf (gethash "INTEGER-LENGTH" *common-lisp-symbols*) t)
(setf (gethash "SUBSETP" *common-lisp-symbols*) t)
(setf (gethash "DEFINE-COMPILER-MACRO" *common-lisp-symbols*) t)
(setf (gethash "REQUIRE" *common-lisp-symbols*) t)
(setf (gethash "MULTIPLE-VALUE-PROG1" *common-lisp-symbols*) t)
(setf (gethash "CHARACTER" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-C1" *common-lisp-symbols*) t)
(setf (gethash "PARSE-ERROR" *common-lisp-symbols*) t)
(setf (gethash "CONTINUE" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE-ERROR-PACKAGE" *common-lisp-symbols*) t)
(setf (gethash "UNBOUND-VARIABLE" *common-lisp-symbols*) t)
(setf (gethash "CTYPECASE" *common-lisp-symbols*) t)
(setf (gethash "MACROEXPAND-1" *common-lisp-symbols*) t)
(setf (gethash "GET-MACRO-CHARACTER" *common-lisp-symbols*) t)
(setf (gethash "EQUALP" *common-lisp-symbols*) t)
(setf (gethash "FIRST" *common-lisp-symbols*) t)
(setf (gethash "CADAAR" *common-lisp-symbols*) t)
(setf (gethash "ETYPECASE" *common-lisp-symbols*) t)
(setf (gethash "CDDAAR" *common-lisp-symbols*) t)
(setf (gethash "COMPILED-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "REVERSE" *common-lisp-symbols*) t)
(setf (gethash "BYTE-SIZE" *common-lisp-symbols*) t)
(setf (gethash "INLINE" *common-lisp-symbols*) t)
(setf (gethash "SET-MACRO-CHARACTER" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-TAB" *common-lisp-symbols*) t)
(setf (gethash "POSITION-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "FUNCALL" *common-lisp-symbols*) t)
(setf (gethash "&OPTIONAL" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME-MATCH-P" *common-lisp-symbols*) t)
(setf (gethash "LENGTH" *common-lisp-symbols*) t)
(setf (gethash "SLOT-UNBOUND" *common-lisp-symbols*) t)
(setf (gethash "INVALID-METHOD-ERROR" *common-lisp-symbols*) t)
(setf (gethash "BOOLE-XOR" *common-lisp-symbols*) t)
(setf (gethash "SUBSTITUTE" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME-VERSION" *common-lisp-symbols*) t)
(setf (gethash "SET-DIFFERENCE" *common-lisp-symbols*) t)
(setf (gethash "NSUBSTITUTE-IF-NOT" *common-lisp-symbols*) t)
(setf (gethash "STREAM-ELEMENT-TYPE" *common-lisp-symbols*) t)
(setf (gethash "DENOMINATOR" *common-lisp-symbols*) t)
(setf (gethash "GENERIC-FUNCTION" *common-lisp-symbols*) t)
(setf (gethash "*QUERY-IO*" *common-lisp-symbols*) t)
(setf (gethash "LAMBDA-LIST-KEYWORDS" *common-lisp-symbols*) t)
(setf (gethash "FLOAT-PRECISION" *common-lisp-symbols*) t)
(setf (gethash "DYNAMIC-EXTENT" *common-lisp-symbols*) t)
(setf (gethash "STRING-STREAM" *common-lisp-symbols*) t)
(setf (gethash "SAFETY" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME-TYPE" *common-lisp-symbols*) t)
(setf (gethash "TRANSLATE-LOGICAL-PATHNAME" *common-lisp-symbols*) t)
(setf (gethash "CHECK-TYPE" *common-lisp-symbols*) t)
(setf (gethash "CONJUGATE" *common-lisp-symbols*) t)
(setf (gethash "MOST-POSITIVE-SHORT-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "MOST-POSITIVE-SINGLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "FIND" *common-lisp-symbols*) t)
(setf (gethash "SINGLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "COND" *common-lisp-symbols*) t)
(setf (gethash "HASH-TABLE-REHASH-SIZE" *common-lisp-symbols*) t)
(setf (gethash "MAKE-CONDITION" *common-lisp-symbols*) t)
(setf (gethash "SHORT-SITE-NAME" *common-lisp-symbols*) t)
(setf (gethash "ATANH" *common-lisp-symbols*) t)
(setf (gethash "SIMPLE-BIT-VECTOR" *common-lisp-symbols*) t)
(setf (gethash "BREAK" *common-lisp-symbols*) t)
(setf (gethash "LOGXOR" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME-DEVICE" *common-lisp-symbols*) t)
(setf (gethash "ACONS" *common-lisp-symbols*) t)
(setf (gethash "PARSE-NAMESTRING" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-READABLY*" *common-lisp-symbols*) t)
(setf (gethash "FTRUNCATE" *common-lisp-symbols*) t)
(setf (gethash "BUTLAST" *common-lisp-symbols*) t)
(setf (gethash "CERROR" *common-lisp-symbols*) t)
(setf (gethash "*LOAD-TRUENAME*" *common-lisp-symbols*) t)
(setf (gethash "MAKE-SYMBOL" *common-lisp-symbols*) t)
(setf (gethash "**" *common-lisp-symbols*) t)
(setf (gethash "&AUX" *common-lisp-symbols*) t)
(setf (gethash "++" *common-lisp-symbols*) t)
(setf (gethash "PPRINT-POP" *common-lisp-symbols*) t)
(setf (gethash "1+" *common-lisp-symbols*) t)
(setf (gethash "//" *common-lisp-symbols*) t)
(setf (gethash "1-" *common-lisp-symbols*) t)
(setf (gethash "BIT-VECTOR" *common-lisp-symbols*) t)
(setf (gethash "BIT-VECTOR-P" *common-lisp-symbols*) t)
(setf (gethash "PACKAGE-ERROR" *common-lisp-symbols*) t)
(setf (gethash "LOGANDC2" *common-lisp-symbols*) t)
(setf (gethash "/=" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-PPRINT-DISPATCH*" *common-lisp-symbols*) t)
(setf (gethash "STRING-NOT-LESSP" *common-lisp-symbols*) t)
(setf (gethash "*TERMINAL-IO*" *common-lisp-symbols*) t)
(setf (gethash "RATIONAL" *common-lisp-symbols*) t)
(setf (gethash "KEYWORD" *common-lisp-symbols*) t)
(setf (gethash "<=" *common-lisp-symbols*) t)
(setf (gethash "WITH-STANDARD-IO-SYNTAX" *common-lisp-symbols*) t)
(setf (gethash ">=" *common-lisp-symbols*) t)
(setf (gethash "NSUBST-IF" *common-lisp-symbols*) t)
(setf (gethash "SYMBOL-NAME" *common-lisp-symbols*) t)
(setf (gethash "GET-UNIVERSAL-TIME" *common-lisp-symbols*) t)
(setf (gethash "ASSERT" *common-lisp-symbols*) t)
(setf (gethash "CODE-CHAR" *common-lisp-symbols*) t)
(setf (gethash "MAPCON" *common-lisp-symbols*) t)
(setf (gethash "CHAR-DOWNCASE" *common-lisp-symbols*) t)
(setf (gethash "WRITE-LINE" *common-lisp-symbols*) t)
(setf (gethash "RATIONALP" *common-lisp-symbols*) t)
(setf (gethash "CAADDR" *common-lisp-symbols*) t)
(setf (gethash "MAKE-PATHNAME" *common-lisp-symbols*) t)
(setf (gethash "GENTEMP" *common-lisp-symbols*) t)
(setf (gethash "CDADDR" *common-lisp-symbols*) t)
(setf (gethash "SYMBOL" *common-lisp-symbols*) t)
(setf (gethash "METHOD-QUALIFIERS" *common-lisp-symbols*) t)
(setf (gethash "PROG" *common-lisp-symbols*) t)
(setf (gethash "UNBOUND-SLOT" *common-lisp-symbols*) t)
(setf (gethash "METHOD-COMBINATION" *common-lisp-symbols*) t)
(setf (gethash "LEAST-NEGATIVE-DOUBLE-FLOAT" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-ARRAY*" *common-lisp-symbols*) t)
(setf (gethash "COPY-SYMBOL" *common-lisp-symbols*) t)
(setf (gethash "LOGNAND" *common-lisp-symbols*) t)
(setf (gethash "TRUENAME" *common-lisp-symbols*) t)
(setf (gethash "FIND-CLASS" *common-lisp-symbols*) t)
(setf (gethash "*BREAK-ON-SIGNALS*" *common-lisp-symbols*) t)
(setf (gethash "WRITE-STRING" *common-lisp-symbols*) t)
(setf (gethash "PACKAGEP" *common-lisp-symbols*) t)
(setf (gethash "CHAR-NOT-EQUAL" *common-lisp-symbols*) t)
(setf (gethash "MINUSP" *common-lisp-symbols*) t)
(setf (gethash "STREAM-EXTERNAL-FORMAT" *common-lisp-symbols*) t)
(setf (gethash "MULTIPLE-VALUE-BIND" *common-lisp-symbols*) t)
(setf (gethash "*COMPILE-VERBOSE*" *common-lisp-symbols*) t)
(setf (gethash "DEFMETHOD" *common-lisp-symbols*) t)
(setf (gethash "STRING-NOT-EQUAL" *common-lisp-symbols*) t)
(setf (gethash "*STANDARD-INPUT*" *common-lisp-symbols*) t)
(setf (gethash "ASINH" *common-lisp-symbols*) t)
(setf (gethash "*PRINT-LENGTH*" *common-lisp-symbols*) t)
(setf (gethash "LOGAND" *common-lisp-symbols*) t)
(setf (gethash "ENDP" *common-lisp-symbols*) t)
(setf (gethash "ODDP" *common-lisp-symbols*) t)
(setf (gethash "LOCALLY" *common-lisp-symbols*) t)
(setf (gethash "FORCE-OUTPUT" *common-lisp-symbols*) t)
(setf (gethash "THROW" *common-lisp-symbols*) t)
(setf (gethash "CADDDR" *common-lisp-symbols*) t)
(setf (gethash "ED" *common-lisp-symbols*) t)
(setf (gethash "ARITHMETIC-ERROR-OPERATION" *common-lisp-symbols*) t)
(setf (gethash "CDDDDR" *common-lisp-symbols*) t)
(setf (gethash "CHAR=" *common-lisp-symbols*) t)
(setf (gethash "PROGV" *common-lisp-symbols*) t)
(setf (gethash "IF" *common-lisp-symbols*) t)
(setf (gethash "PATHNAME" *common-lisp-symbols*) t)