(FILECREATED "31-Mar-86 15:57:40" ("compiled on " {ERIS}CML>LAB>CMLCONVERT.;53) "13-Mar-86 13:23:18" recompiled changes: CMLCONVERT.MAKECOMS \CMLSTRUCT.CLTYPE.TO.ILTYPE in "Xerox Lisp 13-Mar-86 ..." dated "13-Mar-86 13:45:15") (FILECREATED "31-Mar-86 15:54:13" {ERIS}CML>LAB>CMLCONVERT.;53 82640 changes to: (VARS CMLCONFLICTS) (FNS \CMLSTRUCT.CLTYPE.TO.ILTYPE CMLCONVERT.MAKECOMS) previous date: "26-Mar-86 17:17:42" {ERIS}CML>LAB>CMLCONVERT.;51) CMLCONVERT.NAME D1 (L (0 NAME)) @g@NIL (3 CL:NAME) () CMLCONVERT.NAMEIFY D1 (P 0 TAIL I 0 EXPR) 1@dl @Xd@d Hdd X(47Q CMLCONVERT.NAMEIFY 33Q CMLCONVERT.NAMEIFY 14Q CMLCONVERT.NAME) NIL () CMLCONVERT.NAMEIFYFN D1 (I 0 FN) @g@g (20Q PUTDEF 15Q CMLCONVERT.NAMEIFY 12Q GETDEF) (7 FNS 3 FNS) () CMLIMPLEMENTED D1 (P 2 NAME P 1 CMLCONVERT.NAME P 0 NAMES F 3 CMLCONVERT.NAMES) ) SdJ Y IgIHH (46Q DREVERSE 22Q \DEFINEDP 16Q CMLCONVERT.NAME) (27Q MACRO) () CMLUNIMPLEMENTED D1 (P 2 NAME P 1 CMLCONVERT.NAME P 0 NAMES F 3 CMLCONVERT.NAMES) ) SdJ Y IgIHH (46Q DREVERSE 22Q \DEFINEDP 16Q CMLCONVERT.NAME) (27Q MACRO) () CMLCONVERT.MOVECOMMENTS D1 (I 0 EXPR) @@dgg@ @ (35Q CMLCONVERT.MOVECOMMENTS.COND 27Q CMLCONVERT.CONDP) (20Q COND 12Q *) () CMLCONVERT.MOVECOMMENTS.COND D1 (P 4 BRANCH2 P 3 BRANCH1 P 0 BRANCHES I 0 EXPR) u@o @"JI @H hK KHX:Kl 3L LK  L Lk LgKLhLKLJI(126Q EQLENGTH 117Q \NCONC2 112Q DREVERSE 106Q DREVERSE 76Q CMLCONVERT.COMMENTP 70Q EQLENGTH 53Q CMLCONVERT.COMMENTP 42Q DREVERSE 14Q \APPEND2) (133Q PROGN) ( 11Q (ENDOFCOND)) CMLCONVERT.CONDP D1 (L (0 EXPR)) '@@g@ @HihHXNIL (10Q COND) () CMLCONVERT.COMMENTP D1 (I 0 EXPR) @@g @ g(17Q LAST) (23Q * 10Q *) () CMLCONVERTALL D1 (P 1 SPICEFILENAME P 0 SPICEFILENAME F 2 SPICEFILES F 3 CMLCONVERT.SPICEDIR) /g Sg cRdI Rch(41Q CMLCONVERTONE 23Q DIRECTORY 20Q PACK* 10Q BOUNDP) (15Q *.SLISP; 5 SPICEFILES) () CMLCONVERTONE D1 (P 1 FN P 0 FPKGFILENAME I 0 SPICEFILENAME F 2 CMLCONVERT.FPKGDIR) 7@ @ R@g Xd H dIg h(56Q REMPROP 41Q FILECOMSLST 35Q PRINT 32Q MAKEFILE 25Q PACK* 22Q FILENAMEFIELD 12Q CMLCONVERT 6 PRINT) (53Q EXPR 17Q NAME) () CMLCONVERT D1 (P 0 FILECOMS I 0 FILE) g g @g @g (34Q CMLCONVERT.MAKECOMS 25Q CMLCONVERT.CONVERTFILE 16Q DELFILE 10Q CLOSEF?) (31Q {CORE}CMLCONVERT;1 22Q {CORE}CMLCONVERT;1 13Q {CORE}CMLCONVERT;1 5 {CORE}CMLCONVERT;1) () CMLCONVERT.CONVERTFILE D1 (P 7 INESCAPE P 6 INSTRING P 5 INCOMMENT P 4 CODE P 3 COMMENTFILE P 2 COMMENTSTREAM P 1 TOSTREAM P 0 FROMSTREAM I 1 TOFILE I 0 FROMFILE) @g XAgg Yg[d H H OMJIL!h_Ldl\i_Ll"MNhLdl;NMKgg iLl 9M/H H l;J hKI K IL!JL!~IL!wMJL!nNIL!eIL ![H I (315Q CLOSEF 311Q CLOSEF 300Q U-CASECODE 224Q DELFILE 217Q CMLCONVERT.CONVERTCOMMENTFILE 207Q CLOSEF 176Q \PEEKBIN 171Q EOFP 147Q OPENSTREAM 41Q EOFP 35Q DELFILE 24Q OPENSTREAM 11Q OPENSTREAM) (144Q NEW 141Q OUTPUT 30Q {CORE}CMLCONVERTCOMMENTFILE;1 21Q NEW 16Q OUTPUT 6 INPUT) () CMLCONVERT.CONVERTCOMMENTFILEA0001 D1 (NAME ERRORSET F 0 COMMENTSTREAM F 1 CMLCONVERT.COMMENT.RDTBL) PQ i(4 READ) NIL () CMLCONVERT.CONVERTCOMMENTFILEA0002 D1 (NAME ERRORSET F 0 COMMENTSTREAM F 1 CMLCONVERT.COMMENT.RDTBL) PQ i(4 SKIPSEPRS) NIL () CMLCONVERT.CONVERTCOMMENTFILE D1 (P 2 CODE P 1 BADCOMMENT P 0 COMMENTSTREAM I 1 TOSTREAM I 0 COMMENTFILE F 3 CMLCONVERT.COMMENT.RDTBL F 4 CMLCONVERT.RDTBL)  @@g @g X HS H Al !o o iH Hj oA IHAl"!H H Zl"Jl.Al\!AJ!Al"!"HS AT oA Hi H oA H h(261Q CLOSEF 254Q PRIN1 242Q EOFP 235Q SKIPSEPRS 227Q PRIN1 216Q PRIN2 211Q READ 141Q EOFP 124Q PRIN1 113Q SETFILEPTR 104Q EOFP 74Q CMLCONVERT.CONVERTCOMMENTFILEA0002 64Q CMLCONVERT.CONVERTCOMMENTFILEA0001 44Q EOFP 37Q SKIPSEPRS 31Q EOFP 25Q OPENSTREAM 15Q OPENSTRINGSTREAM) (22Q INPUT 12Q INPUT) ( 250Q " ;)" 223Q " " 120Q "(; " 71Q (CMLCONVERT.CONVERTCOMMENTFILEA0002) 61Q (CMLCONVERT.CONVERTCOMMENTFILEA0001)) CMLCONVERT.STRINGTOCOMMENT D1 (P 1 ANSWER P 0 STREAM I 0 STRING) A g g ggg X@H H ggg Xd YH I(75Q CLOSEF 70Q CMLCONVERT.NAMEIFY 65Q READ 60Q OPENSTREAM 44Q CLOSEF 40Q CMLCONVERT.CONVERTCOMMENTFILE 32Q OPENSTREAM 16Q DELFILE 10Q CLOSEF?) (55Q OLD 52Q INPUT 47Q {CORE}CMLCONVERTCOMMENT;1 27Q NEW 24Q OUTPUT 21Q {CORE}CMLCONVERTCOMMENT;1 13Q {CORE}CMLCONVERTCOMMENT;1 5 {CORE}CMLCONVERTCOMMENT;1) () CMLCONVERT.MAKECOMS D1 (P 4 FORM P 2 FPKGFN P 1 FORMS P 0 FILECOMS I 1 CONVERTEDFILE I 0 FILE) 0@ Xd A YdKH\gZLdg"dgdgdgdgdgihL HLlJuLdgdgihHLlJZLgULg 7HgdgggggggggghLhL HLlJHLlgK[5(314Q EVAL 221Q CMLCONVERT.CONTAINS 137Q EVAL 17Q CMLCONVERT.READFILE 13Q SET 6 FILECOMS) (332Q CMLCONVERT.FPKG.P 266Q * 263Q :INCLUDE. 260Q contains 255Q it 252Q because 247Q DEFSTRUCT 244Q this 241Q convert 236Q completely 233Q Couldn't 227Q * 216Q :INCLUDE 207Q DEFSTRUCT 163Q DEFVAR 155Q DEFCONSTANT 123Q DEFTYPE 115Q DEFSETF 107Q DEFUN 100Q DEFMACRO 71Q DEFINE-SETF-METHOD 62Q DEFINE-MODIFY-MACRO 46Q CMLCONVERT.FPKG) () CMLCONVERT.READFILEA0001 D1 (NAME ERRORSET F 0 FILE F 1 CMLCONVERT.RDTBL F 2 EXPR F 3 RESETVARSLST F 4 EXPAND F 5 EXPRS F 6 RESETY) gP hhhSccP sPQ cgQ g5oi i Ri i oi i goQ R cUTddgh c PQ P c i(223Q CLOSEF 215Q SKIPSEPRS 205Q \NCONC2 156Q CMLCONVERT.NAMEIFY 151Q SETSYNTAX 135Q TERPRI 130Q PRIN1 117Q TERPRI 112Q PRIN1 104Q TERPRI 77Q PRIN1 60Q LAST 55Q GETSYNTAX 43Q READ 34Q EOFP 25Q INPUT 6 INFILE) (173Q EVAL-WHEN 141Q # 64Q CMLCONVERT.READHASHMACRO 51Q # 2 INPUT) ( 145Q (SPLICE FIRST NONIMMEDIATE ESCQUOTE CMLCONVERT.READHASHMACRO) 124Q "Unsmashing and continuing." 73Q "Warning. Readtable smashed after reading") CMLCONVERT.READFILE D1 (P 23Q FORM P 16Q FORM P 14Q EXPR2 P 13Q EXPR1 P 10Q EXPR P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 EXPAND P 2 EXPR P 1 EXPRS P 0 ANSWER I 0 FILE F 30Q LISPXHIST F 31Q RESETVARSLST) @W0!W2og hg^ NId IO8IOIOIo I" Oek_LOdgdgih6Od)OO$hOOAO$O O_r_ OiO__& O&_$O"O$h_"_ O_O$&_"_>Odgdgih(OdOOO O__sOdgdgih]OdPOGOl :Og-O!OdgO O__OH _OddgO4OOdgOO1O(MO* HXdgdgihOddOOhOOYddg_.O,O.h_,_*O(_(O.&_,OOHX%Ol oi i Oi i O_O_(1272Q TERPRI 1265Q PRIN1 1256Q TERPRI 1251Q PRIN1 1236Q CHARACTER 1036Q \APPEND2 735Q DREVERSE 705Q CMLCONVERT.STRINGTOCOMMENT 615Q EQLENGTH 506Q CMLCONVERT.STRINGTOCOMMENT 343Q CMLCONVERT.COMMENTP 316Q CMLCONVERT.COMMENTP 140Q \APPEND2 54Q CMLCONVERT.MOVECOMMENTS 43Q ERROR! 35Q RESETRESTORE 23Q CMLCONVERT.READFILEA0001) (1154Q * 1061Q DEFMACRO 1053Q DEFUN 1002Q DEFSTRUCT 754Q * 665Q * 631Q * 543Q DEFMACRO 535Q DEFUN 431Q DEFMACRO 423Q DEFUN 203Q DEFMACRO 175Q DEFUN 31Q ERROR 20Q INTERNAL) ( 1245Q "Warning. Expected to read list in converted file instead of" 135Q ((EOF)) 15Q (CMLCONVERT.READFILEA0001)) CMLCONVERT.CONTAINS D1 (I 1 Y I 0 X) @A@@A @b(16Q CMLCONVERT.CONTAINS) NIL () CMLCONVERT.READHASHMACRO D1 (P 20Q SHIFTEDCHARSET P 17Q DOTLOC P 16Q ELT P 15Q END P 14Q LST P 13Q READTYPE P 12Q CONTENTS P 6 C P 5 CHAR P 2 EVALFORM P 1 READVAL P 0 NEXTCHAR I 2 INDEX I 1 RDTBL I 0 STREAM F 21Q SIMPLERDTBL F 22Q \RBFLG) q@ AHl0K%Kl9Bjl Hl0b@A @A XHdl'@A gg@A h l.-@A @A Zoi i Ji i gJ Hdl,@A g@A hhl\M@A @A XlAHddlZlaHHlz@A @A ] ggM hHdl*~@A @A 1 No &Nl0_OOh__@A ^O&_O BO jj &gg O O gOgg hl(g`@A  BO jj  O O gO _lg _lg _l g _l g _ OOO&OW$@O OOh_O Hdl:@A @A hlOHdlo@A @l hlBHdlb@A @l hlXHdlx@A @l hlRHdlr@A @B hlAHdla"@A @A  BO gO hlSHdls@A @A hl+@A @W" @A hHdl-@A @W" @A l|@A @A g Hdl<l Hl Hl Hl Hl Hl)@A oH @A H g oH @AlLh(1544Q ERROR 1526Q CHARACTER 1522Q READCCODE 1514Q ERROR 1511Q CHARCODE.UNDECODE 1501Q READCCODE 1433Q READ< 1420Q RETFROM 1412Q SKIP.HASH.COMMENT 1405Q READCCODE 1370Q READ 1361Q CMLREAD.FEATURE.PARSER 1356Q READ 1350Q READCCODE 1331Q READ 1323Q CMLREAD.FEATURE.PARSER 1320Q READ 1312Q READCCODE 1275Q CREATE-STRUCTURE 1272Q READ 1265Q READCCODE 1240Q MAKE-ARRAY 1230Q ESTIMATE-DIMENSIONALITY 1217Q READ 1212Q READCCODE 1166Q READNUMBERINBASE 1161Q READCCODE 1136Q READNUMBERINBASE 1130Q READCCODE 1105Q READNUMBERINBASE 1077Q READCCODE 1054Q READNUMBERINBASE 1046Q READCCODE 1023Q RSTRING 1016Q READCCODE 1001Q RETFROM 760Q \BACKNSCHAR 727Q STKARG 714Q STKARG 701Q STKARG 666Q STKARG 652Q MAKE-ARRAY 642Q LENGTH 634Q FILL.VECTOR 627Q MAKE-ARRAY 622Q MAKE-ARRAY 613Q LENGTH 600Q READ 552Q MAKE-ARRAY 533Q LENGTH 524Q FILL.VECTOR 517Q MAKE-ARRAY 504Q MAKE-ARRAY 474Q LENGTH 443Q READCCODE 410Q MEMQ 375Q READCCODE 370Q READCCODE 350Q INT-CHAR 345Q CHARCODE.DECODE 327Q U-CASE 323Q READ 311Q CHARACTER 252Q PEEKCCODE 245Q READCCODE 225Q READ 215Q READCCODE 177Q RETFROM 170Q TERPRI 163Q PRIN1 155Q TERPRI 150Q PRIN1 137Q READ 132Q READCCODE 117Q RETFROM 111Q READ 76Q READCCODE 56Q PEEKCCODE 50Q READCCODE 3 PEEKCCODE) (1531Q HASHREADMACRO 1415Q \SUBREAD 1233Q :INITIAL-CONTENTS 724Q \SUBREAD 711Q \SUBREAD 676Q \SUBREAD 663Q \SUBREAD 645Q :INITIAL-CONTENTS 570Q \SUBREAD 546Q BIT 543Q :ELEMENT-TYPE 536Q :INITIAL-CONTENTS 514Q BIT 511Q :ELEMENT-TYPE 337Q DEL 332Q DELETE 220Q LOADTIMECONSTANT 173Q \SUBREAD 104Q FUNCTION 101Q \SUBREAD) ( 1540Q "Undefined hashmacro char" 1505Q "Illegal read syntax " 405Q (60Q 61Q) 144Q "Warning. Not evaluating ") CMLREADVBAR D1 (P 2 ANSWER P 1 CODES P 0 CODE I 1 RDTBL I 0 STREAM) (00@ Xdl|KYd L Mh\M&(25Q PACKC) NIL () CMLCONVERT.RECORDECL1 D1 (I 1 PARENT I 0 DECL) a@dXdgPdHdg;@0@dddgIHhZH&J@ bA (136Q CMLCONVERT.OLD.RECORDECL1 125Q \APPEND2) (71Q POINTER 36Q POINTER 11Q RECORD) () \CMLSTRUCT.CLTYPE.TO.ILTYPE D1 (P 4 RANGE P 3 HIGH P 2 LOW P 0 MOD# I 0 ELEMENTTYPE F 5 BITSPERWORD) q@ddgbg@i@g@g@dgggg@dgdgodgg@dggg=@d8d3 1dk*HdkU gHk hog@g4@d/d3 (dj!IdUgIhlNg@g[@dUd3 Nd3 Fd@;!@[JټJjjgLkh oJKog@o@o@gg@o@ (556Q ERROR 543Q USERDATATYPES 456Q \CMLSTRUCT.CLTYPE.TO.ILTYPE 233Q INTEGERLENGTH 217Q LLSH) (536Q POINTER 532Q * 506Q FIXP 445Q MOD 353Q INTEGER 344Q FIXP 325Q BITS 260Q UNSIGNED-BYTE 251Q FIXP 225Q BITS 154Q MOD 146Q FLOATP 141Q FLOAT 132Q SINGLE-FLOAT 122Q XPOINTER 107Q BIT 76Q INTEGER 70Q SIGNEDWORD 63Q FIXNUM 57Q POINTER 52Q LIST 43Q SIMPLE-VECTOR 35Q SIMPLE-STRING 21Q STRING-CHAR 10Q QUOTE) ( 552Q "Bad type specifier" 523Q (SIMPLE-VECTOR * FIXNUM) 514Q (SIMPLE-VECTOR CL:* FIXNUM) 476Q 17777777777Q 463Q -20000000000Q 243Q 17777777777Q 115Q (BITS 1)) DEFSTRUCT.TRANSLATE D1 (P 74Q setfconc P 73Q conc P 72Q slot P 56Q constructor P 46Q option P 45Q type P 43Q setfconc P 42Q conc P 41Q options P 40Q slotname P 37Q x P 35Q option P 34Q includedescr P 33Q slotname P 32Q x P 30Q includeslotdescrs P 27Q includename P 26Q NAMED P 25Q named P 24Q copier P 23Q print-function P 22Q predicate P 21Q constructors P 20Q conc-name P 17Q slotnames P 16Q slotnames P 15Q type P 14Q includes P 13Q initialization P 12Q slotfns P 11Q slots P 10Q name P 7 class P 6 doc P 5 options P 1 slotdescrs P 0 name&options I 0 TAIL) =@A@IIIa  Hd_h_h___Oo Oo g_&oO !HHOMOg;O4OO_0O. oO. 1O2 ]dO:ddgO:_dgO:O"_"dgO:o_ dgO:O_sdgO:_(ddgO:_&UdgO:_$FdgO:o _0go "O:o gi_,oO: 1_4O4_6O0 O6dO0_8O4IO2_2o I1!O<OOdgyg_>O>_@O>_BO@O_ #gO O@ _DghgOO@hgghhggggODhgghgghgOO@hgghhhhgOB hYggoOD _FhgghggghgOO@hgghhhhgODOFhh hO _O>dO@gO>hO _O>g&OH_LO@OJhO_O<_<dgOL _JgoO> OLgO,ggOgOggOOg7O1*ONOP*_TOROTh_R_PON_NOT&_ROO OO$gO$ghgOghhhO(#gO(ghgOgghhhO&|ggOhgggghgggggihggghhhggO&hggjhgohhhhhhhh0-O"oO hhd.O\hgO\O\gO01O\>dZgJgJdghJgJJgJh_^O`O^_b_`Obt _`O^gO\g04I$d[dKh_dOf Odh_hOd&_fOh gO07Od\gLh_jOl)Oj_n_lOn h_VOXOVh_Z _lOjOV&_XOZOACODE>)) ( CMLCONVERT.FPKGDIR (QUOTE {ERIS}FPKG>))) (FNS CMLCONVERTALL CMLCONVERTONE CMLCONVERT CMLCONVERT.CONVERTFILE CMLCONVERT.CONVERTCOMMENTFILE CMLCONVERT.STRINGTOCOMMENT CMLCONVERT.MAKECOMS CMLCONVERT.READFILE CMLCONVERT.CONTAINS) (COMS (* Read macro workarounds. *) (FNS CMLCONVERT.READHASHMACRO CMLREADVBAR) (MACROS \RDCONC FIXDOT) (CONSTANTS READ.RT)) (COMS (* RECORD package workarounds. *) (FNS CMLCONVERT.RECORDECL1 \CMLSTRUCT.CLTYPE.TO.ILTYPE DEFSTRUCT.TRANSLATE) (P (MOVD? (QUOTE \RECORDBLOCK/RECORDECL1) (QUOTE CMLCONVERT.OLD.RECORDECL1)) (MOVD (QUOTE CMLCONVERT.RECORDECL1) (QUOTE \RECORDBLOCK/RECORDECL1)))) (FNS CMLCONVERT.FPKG.CONSTANTS CMLCONVERT.FPKG.DEFTYPE CMLCONVERT.FPKG.DEFSETF CMLCONVERT.FPKG.FNS CMLCONVERT.FPKG.INITVARS CMLCONVERT.FPKG.MACROS CMLCONVERT.FPKG.P CMLCONVERT.FPKG.PROPS CMLCONVERT.FPKG.RECORDS CMLCONVERT.FPKG.VARS CMLCONVERT.FPKG.EVAL-WHEN CMLCONVERT.FPKG.;;; CMLCONVERT.ADDTOCOMS) (PROP CMLCONVERT.FPKG DEFCONSTANT DEFMACRO DEFUN DEFPARAMETER DEFSETF DEFSTRUCT DEFVAR EVAL-WHEN DEFTYPE * DEFINE-SYSTEM-CONSTANT) (* (PROP CMLCONVERT.FPKG DEFINE-MODIFY-MACRO DEFINE-SETF-METHOD) These were CMLCONVERT.FPKG.MACROS and CMLCONVERT.FPKG.DEFSETF *) (* Ignore package declarations, global comments, for at least the time being. *) (VARS CMLIGNOREFNS) (P (FOR NAME IN CMLIGNOREFNS DO (PUTPROP NAME ( QUOTE CMLCONVERT.FPKG) (QUOTE NILL)) (OR (GETD NAME) (MOVD (QUOTE *) NAME)))) (VARS (CMLCONVERT.RDTBL (COPYREADTABLE CMLRDTBL)) (CMLCONVERT.COMMENT.RDTBL (COPYREADTABLE CMLRDTBL))) (P (SETSYNTAX (QUOTE ;) (QUOTE OTHER) CMLCONVERT.RDTBL) (SETSYNTAX (QUOTE #) (QUOTE (SPLICE FIRST NONIMMEDIATE ESCQUOTE CMLCONVERT.READHASHMACRO)) CMLCONVERT.RDTBL) (SETSYNTAX (QUOTE ;) (QUOTE OTHER) CMLCONVERT.COMMENT.RDTBL) (SETSYNTAX (QUOTE ,) (QUOTE OTHER) CMLCONVERT.COMMENT.RDTBL))))) (RPAQQ CMLCONVERT.FNNAMES (* + - / /= 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 CEILING CERROR CHAR CHAR-BIT CHAR-BITS CHAR-BITS-LIMIT CHAR-CODE CHAR-DOWNCASE CHAR-EQUAL CHAR-FONT CHAR-FONT-LIMIT CHAR-GREATERP CHAR-HYPER-BIT 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 ENDP ENOUGH-NAMESTRING EQ EQ1 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-POINTER 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 FOURTH FRESH-LINE FROUND FTRUNCATE FTYPE 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 IDENTIFY IMAGPART IMPORT IN-PACKAGE INPUT-STREAM-P INSPECT INT-CHAR INTEGER-DECODE-FLOAT INTEGER-LENGTH INTEGERP INTERN INTERNAL-TIME-UNITS-PER-SECOND INTERSECTION ISQRT KEYWORD LAST LCM LDB LDB-TEST LDIFF LENGTH LISP LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION LIST LIST* LIST-ALL-PACKAGES LIST-LENGTH LISTEN 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-BROADCASE-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 NUERATOR 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-EVAL-PRINT 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 REPALCE 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 STREAMUP 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 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 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)) (RPAQQ CMLCONVERT.MACROS (ASSERT CASE CCASE CHECK-TYPE DECF DEFCONSTANT DEFINE-MODIFY-MACRO DEFINE-SETF-METHOD DEFMACRO DEFUN DEFVAR DO DO* DO-ALL-SYMBOLS DO-EXTERNAL-SYMBOLS DO-SYMBOLS DOLIST DOTIMES ECASE ETYPECASE INCF LOCALLY LOOP MULTIPLE-VALUE-BIND MULITPLE-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)) (RPAQQ CMLCONVERT.SPECIALFORMS (BLOCK CATCH COMPILER-LET DECLARE EVAL-WHEN FLET FUNCTION GO IF LABELS LET LET* MACROLET MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 PROGN PROGV QUOTE RETURN-FROM SETQ TAGBODY THE THROW UNWIND-PROTECT)) (RPAQQ CMLCONVERT.EVAL.WHEN.TAGS ((EVAL . EVAL@LOAD) (CL:COMPILE . EVAL@COMPILE) (LOAD . COPY) ( COMPILE-MACLISP . EVAL@COMPILE))) (SETQ CMLCONVERT.NAMES (SORT (APPEND CMLCONVERT.FNNAMES CMLCONVERT.MACROS CMLCONVERT.SPECIALFORMS NIL) )) (RPAQQ CMLCONFLICTS (APPLY ARRAYP ASSOC ATAN ATOM BLOCK BREAK COMPILE COS COUNT DECLARE DELETE DIRECTORY DO ELT ERROR EVERY EXPT FIND FIRST FLOOR GCD IF LDIFF LENGTH LOG MAP MAPC MAPCAR MAPCON MAPHASH MAPLIST MEMBER MENU MERGE MOD NOTANY NOTEVERY NREVERSE NTH POSITION PRIN1 PUSH PUSHNEW REMOVE REPLACE REVERSE SIN SOME SQRT STREAM SUBST TAN UNLESS WHEN *)) (FOR NAME IN CMLCONFLICTS DO (PUTPROP NAME (QUOTE CL:NAME) (PACK* (QUOTE CL:) NAME))) (PUTPROP (QUOTE LAMBDA) (QUOTE CL:NAME) (QUOTE CL:LAMBDA)) (PUTPROPS %%ASET CL:NAME ASET) (PUTPROPS MACROP CL:NAME MACRO-FUNCTION) (PUTPROPS MACRO-P CL:NAME MACRO-FUNCTION) (PUTPROPS %%PUT CL:NAME PUT) (PUTPROPS %%RPLACA CL:NAME RPLACA) (PUTPROPS %%RPLACD CL:NAME RPLACD) (PUTPROPS %%SET-PLIST CL:NAME SETPROPLIST) (PUTPROPS ; CL:NAME *) (RPAQ? CMLCONVERT.SPICEDIR (QUOTE {ERIS}CODE>)) (RPAQ? CMLCONVERT.FPKGDIR (QUOTE {ERIS}FPKG>)) (PUTPROPS \RDCONC MACRO ((ELT . TOPFORMS) (COND (LST (RPLACD END (SETQ END (CONS ELT)))) ((EQ READTYPE READ.RT) . TOPFORMS) (T (SETQ LST (SETQ END (CONS ELT))))))) (PUTPROPS FIXDOT MACRO (NIL (PROGN (* Fix a non-first dot followed by a singleton) (AND DOTLOC (CDDR DOTLOC) (NULL (CDDDR DOTLOC)) (RPLACD DOTLOC (CADDR DOTLOC)))))) (RPAQQ READ.RT NIL) (CONSTANTS READ.RT) (MOVD? (QUOTE \RECORDBLOCK/RECORDECL1) (QUOTE CMLCONVERT.OLD.RECORDECL1)) (MOVD (QUOTE CMLCONVERT.RECORDECL1) (QUOTE \RECORDBLOCK/RECORDECL1)) (PUTPROPS DEFCONSTANT CMLCONVERT.FPKG CMLCONVERT.FPKG.CONSTANTS) (PUTPROPS DEFMACRO CMLCONVERT.FPKG CMLCONVERT.FPKG.MACROS) (PUTPROPS DEFUN CMLCONVERT.FPKG CMLCONVERT.FPKG.FNS) (PUTPROPS DEFPARAMETER CMLCONVERT.FPKG CMLCONVERT.FPKG.VARS) (PUTPROPS DEFSETF CMLCONVERT.FPKG CMLCONVERT.FPKG.DEFSETF) (PUTPROPS DEFSTRUCT CMLCONVERT.FPKG CMLCONVERT.FPKG.RECORDS) (PUTPROPS DEFVAR CMLCONVERT.FPKG CMLCONVERT.FPKG.INITVARS) (PUTPROPS EVAL-WHEN CMLCONVERT.FPKG CMLCONVERT.FPKG.EVAL-WHEN) (PUTPROPS DEFTYPE CMLCONVERT.FPKG CMLCONVERT.FPKG.DEFTYPE) (PUTPROPS * CMLCONVERT.FPKG CMLCONVERT.FPKG.;;;) (PUTPROPS DEFINE-SYSTEM-CONSTANT CMLCONVERT.FPKG CMLCONVERT.FPKG.CONSTANTS) (RPAQQ CMLIGNOREFNS (; CL:DECLARE EXPORT IMPORT IN-PACKAGE PROCLAIM PROVIDE REQUIRE SHADOW USE-PACKAGE )) (FOR NAME IN CMLIGNOREFNS DO (PUTPROP NAME (QUOTE CMLCONVERT.FPKG) (QUOTE NILL)) (OR (GETD NAME) (MOVD (QUOTE *) NAME))) (RPAQ CMLCONVERT.RDTBL (COPYREADTABLE CMLRDTBL)) (RPAQ CMLCONVERT.COMMENT.RDTBL (COPYREADTABLE CMLRDTBL)) (SETSYNTAX (QUOTE ;) (QUOTE OTHER) CMLCONVERT.RDTBL) (SETSYNTAX (QUOTE #) (QUOTE (SPLICE FIRST NONIMMEDIATE ESCQUOTE CMLCONVERT.READHASHMACRO)) CMLCONVERT.RDTBL) (SETSYNTAX (QUOTE ;) (QUOTE OTHER) CMLCONVERT.COMMENT.RDTBL) (SETSYNTAX (QUOTE ,) (QUOTE OTHER) CMLCONVERT.COMMENT.RDTBL) (PUTPROPS CMLCONVERT COPYRIGHT ("Xerox Corporation" 1986)) NIL