;; -*- Mode:LISP; Package:SI; Readtable:CL; Base:10 -*- (defparameter initial-lisp-symbols '( &ALLOW-OTHER-KEYS &AUX &BODY &ENVIRONMENT &KEY &OPTIONAL &REST &WHOLE *** ** * +++ ++ + - /// // /= cl:/ ;common -- incompatible 1+ 1- <= < = >= > *APPLYHOOK* *BREAK-ON-WARNINGS* *DEBUG-IO* cl:*DEFAULT-PATHNAME-DEFAULTS* ;common -- incompatible *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 ACONS ACOS ACOSH ADJOIN ADJUST-ARRAY ADJUSTABLE-ARRAY-P ALPHA-CHAR-P ALPHANUMERICP AND APPEND APPLY APPLYHOOK APROPOS APROPOS-LIST cl:AREF ;common -- incompatible ARRAY-DIMENSION ARRAY-DIMENSION-LIMIT ARRAY-DIMENSIONS ARRAY-ELEMENT-TYPE ARRAY-HAS-FILL-POINTER-P ARRAY-IN-BOUNDS-P ARRAY-RANK ARRAY-RANK-LIMIT ARRAY-ROW-MAJOR-INDEX ARRAY-TOTAL-SIZE ARRAY-TOTAL-SIZE-LIMIT ARRAYP ARRAY ASH ASIN ASINH ASSERT cl:ASSOC ;common -- incompatible ASSOC-IF ASSOC-IF-NOT cl:ATAN ;common -- incompatible ATANH ATOM BIGNUM 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-VECTOR BIT-XOR BLOCK BOOLE BOOLE-1 BOOLE-2 BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-AND BOOLE-C1 BOOLE-C2 BOOLE-CLR BOOLE-EQV BOOLE-IOR BOOLE-NAND BOOLE-NOR BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR 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 CALL-ARGUMENTS-LIMIT CASE CATCH CCASE CEILING CERROR CHAR CHAR-BIT CHAR-BITS CHAR-BITS-LIMIT CHAR-CODE CHAR-CODE-LIMIT CHAR-CONTROL-BIT CHAR-DOWNCASE CHAR-EQUAL CHAR-FONT CHAR-FONT-LIMIT CHAR-GREATERP CHAR-HYPER-BIT CHAR-INT CHAR-LESSP CHAR-META-BIT CHAR-NAME CHAR-NOT-EQUAL CHAR-NOT-GREATERP CHAR-NOT-LESSP CHAR-SUPER-BIT CHAR-UPCASE CHAR/= CHAR< CHAR<= CHAR= CHAR> CHAR>= cl:CHARACTER ;common -- incompatible CHARACTERP CHECK-TYPE CIS CLEAR-INPUT CLEAR-OUTPUT cl:CLOSE ;common -- incompatible CLRHASH CODE-CHAR COERCE COMMON COMMONP COMPILATION-SPEED COMPILE COMPILE-FILE COMPILED-FUNCTION COMPILED-FUNCTION-P COMPILER-LET COMPLEX COMPLEXP CONCATENATE COND CONJUGATE CONS CONSP CONSTANTP COPY-ALIST COPY-LIST COPY-READTABLE COPY-SEQ COPY-SYMBOL COPY-TREE COS COSH COUNT COUNT-IF COUNT-IF-NOT CTYPECASE DECF DECLARATION DECLARE ;common -- needs hacking DECODE-FLOAT DECODE-UNIVERSAL-TIME DEFCONSTANT DEFINE-MODIFY-MACRO DEFINE-SETF-METHOD DEFMACRO DEFPARAMETER DEFSETF cl:DEFSTRUCT ;common -- incompatible DEFTYPE DEFUN DEFVAR cl:DELETE ;common -- incompatible DELETE-DUPLICATES DELETE-FILE DELETE-IF DELETE-IF-NOT DENOMINATOR DEPOSIT-FIELD DESCRIBE DIGIT-CHAR DIGIT-CHAR-P DIRECTORY DIRECTORY-NAMESTRING DISASSEMBLE DO DO* DO-ALL-SYMBOLS DO-EXTERNAL-SYMBOLS DO-SYMBOLS DOCUMENTATION DOLIST DOTIMES DOUBLE-FLOAT DOUBLE-FLOAT-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON DPB DRIBBLE ECASE ED EIGHTH ELT ENCODE-UNIVERSAL-TIME ENDP ENOUGH-NAMESTRING EQ EQL EQUAL EQUALP ERROR ETYPECASE EVAL EVAL-WHEN EVALHOOK EVENP cl:EVERY ;common -- incompatible 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 FIXNUM FLET FLOAT FLOAT-DIGITS FLOAT-PRECISION FLOAT-RADIX FLOAT-SIGN FLOATP FLOOR FMAKUNBOUND FORCE-OUTPUT FORMAT FOURTH FRESH-LINE FROUND FTRUNCATE FTYPE FUNCALL FUNCTION cl: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 cl:GETHASH GO GRAPHIC-CHAR-P HASH-TABLE HASH-TABLE-COUNT HASH-TABLE-P HOST-NAMESTRING IDENTITY cl:IF IGNORE IMAGPART IMPORT IN-PACKAGE INCF INLINE INPUT-STREAM-P INSPECT INT-CHAR INTEGER INTEGER-DECODE-FLOAT INTEGER-LENGTH INTEGERP INTERN INTERNAL-TIME-UNITS-PER-SECOND cl:INTERSECTION ;common -- incompatible ISQRT KEYWORD KEYWORDP LABELS LAMBDA LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT LAST LCM LDB LDB-TEST LDIFF 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 LENGTH LET LET* LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION LIST LIST* LIST-ALL-PACKAGES LIST-LENGTH LISTEN cl:LISTP ;common -- incompatible LOAD LOCALLY LOG LOGAND LOGANDC1 LOGANDC2 LOGBITP LOGCOUNT LOGEQV LOGIOR LOGNAND LOGNOR LOGNOT LOGORC1 LOGORC2 LOGTEST LOGXOR LONG-FLOAT LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON LONG-SITE-NAME LOOP LOWER-CASE-P MACHINE-INSTANCE MACHINE-TYPE MACHINE-VERSION MACRO-FUNCTION cl:MACROEXPAND cl:MACROEXPAND-1 MACROLET cl:MAKE-ARRAY MAKE-BROADCAST-STREAM MAKE-CHAR MAKE-CONCATENATED-STREAM MAKE-DISPATCH-MACRO-CHARACTER MAKE-ECHO-STREAM MAKE-HASH-TABLE MAKE-LIST cl: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 cl:MAP ;common -- incompatible MAPC MAPCAN MAPCAR MAPCON MAPHASH MAPL MAPLIST MASK-FIELD MAX cl:MEMBER ;common -- incompatible MEMBER-IF MEMBER-IF-NOT MERGE MERGE-PATHNAMES MIN MINUSP MISMATCH MOD 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-FIXNUM MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL MULTIPLE-VALUE-LIST MULTIPLE-VALUE-PROG1 MULTIPLE-VALUE-SETQ MULTIPLE-VALUES-LIMIT NAME-CHAR NAMESTRING NBUTLAST NCONC NIL cl:NINTERSECTION ;common -- incompatible NINTH NOT NOTANY NOTEVERY NOTINLINE 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 NULL NUMBER NUMBERP NUMERATOR cl:NUNION ;common -- incompatible ODDP OPEN OPTIMIZE OR OTHERWISE OUTPUT-STREAM-P PACKAGE-NAME PACKAGE-NICKNAMES PACKAGE-SHADOWING-SYMBOLS PACKAGE-USE-LIST PACKAGE-USED-BY-LIST PACKAGE PACKAGEP PAIRLIS PARSE-INTEGER PARSE-NAMESTRING PATHNAME PATHNAME-DEVICE PATHNAME-DIRECTORY PATHNAME-HOST PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION PATHNAMEP PEEK-CHAR PHASE PI PLUSP POP POSITION POSITION-IF POSITION-IF-NOT PPRINT PRIN1 PRIN1-TO-STRING PRINC PRINC-TO-STRING PRINT PROBE-FILE PROCLAIM PROG PROG* PROG1 PROG2 PROGN PROGV PROVIDE PSETF PSETQ PUSH PUSHNEW QUOTE RANDOM RANDOM-STATE RANDOM-STATE-P cl:RASSOC ;common -- incompatible RASSOC-IF RASSOC-IF-NOT RATIO RATIONAL RATIONALIZE RATIONALP cl:READ ;common -- incompatible READ-BYTE READ-CHAR READ-CHAR-NO-HANG READ-DELIMITED-LIST cl:READ-FROM-STRING ;common -- incompatible READ-LINE READ-PRESERVING-WHITESPACE READTABLE READTABLEP REALPART REDUCE cl:REM ;common -- incompatible REMF REMHASH cl:REMOVE ;common -- incompatible REMOVE-DUPLICATES REMOVE-IF REMOVE-IF-NOT REMPROP RENAME-FILE RENAME-PACKAGE REPLACE REQUIRE REST RETURN RETURN-FROM REVAPPEND REVERSE ROOM ROTATEF ROUND RPLACA RPLACD SAFETY SATISFIES SBIT SCALE-FLOAT SCHAR SEARCH SECOND SEQUENCE SET SET-CHAR-BIT SET-DIFFERENCE SET-DISPATCH-MACRO-CHARACTER SET-EXCLUSIVE-OR SET-MACRO-CHARACTER SET-SYNTAX-FROM-CHAR SETF SETQ SEVENTH SHADOW SHADOWING-IMPORT SHIFTF SHORT-FLOAT SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SHORT-SITE-NAME SIGNED-BYTE SIGNUM SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-BIT-VECTOR-P SIMPLE-STRING SIMPLE-STRING-P SIMPLE-VECTOR SIMPLE-VECTOR-P SIN SINGLE-FLOAT SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON SINH SIXTH SLEEP SPACE SPEED SOFTWARE-TYPE SOFTWARE-VERSION cl:SOME ;common -- incompatible SORT SPECIAL ;common -- needs hacking SPECIAL-FORM-P SQRT STABLE-SORT STANDARD-CHAR STANDARD-CHAR-P STEP STREAM STREAM-ELEMENT-TYPE STREAMP STRING STRING-CAPITALIZE STRING-CHAR 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 STRUCTURE SUBLIS SUBSEQ SUBSETP cl:SUBST ;common -- incompatible SUBST-IF SUBST-IF-NOT SUBSTITUTE SUBSTITUTE-IF SUBSTITUTE-IF-NOT SUBTYPEP SVREF SXHASH SYMBOL SYMBOL-FUNCTION SYMBOL-NAME SYMBOL-PACKAGE SYMBOL-PLIST SYMBOL-VALUE SYMBOLP T TAGBODY TAILP TAN TANH TENTH TERPRI THE THIRD THROW cl:TIME TRACE TREE-EQUAL TRUENAME TRUNCATE TYPE TYPE-OF TYPECASE TYPEP UNEXPORT UNINTERN cl:UNION UNLESS UNREAD-CHAR UNSIGNED-BYTE UNTRACE UNUSE-PACKAGE UNWIND-PROTECT UPPER-CASE-P USE-PACKAGE USER-HOMEDIR-PATHNAME VALUES VALUES-LIST VARIABLE VECTOR VECTOR-POP VECTOR-PUSH VECTOR-PUSH-EXTEND VECTORP WARN WHEN WITH-INPUT-FROM-STRING WITH-OPEN-FILE WITH-OPEN-STREAM WITH-OUTPUT-TO-STRING WRITE WRITE-BYTE WRITE-CHAR WRITE-LINE WRITE-STRING WRITE-TO-STRING Y-OR-N-P YES-OR-NO-P ZEROP ))