(FILECREATED "25-Jan-86 02:42:36" ("compiled on " {ERIS}CML>LAB>CMLDEVELOPMENT.;18) "22-Jan-86 18:59:55" recompiled changes: CMLIMPORTFILE CMLMAKECOMS CMLFIXCOMMENTS CMLCRUNCHCOMS CMLREADFILE CMLFPKGFN.CONSTANTS CMLPKGFN.DEFTYPE CMLFPKGFN.DEFSETF CMLFPKGFN.FNS CMLFPKGFN.INITVARS CMLFPKGFN.MACROS CMLFPKGFN.P CMLFPKGFN.PROPS CMLFPKGFN.RECORDS CMLFPKGFN.VARS CMLFPKGFN.EVAL-WHEN CMLFPKGFN.;;; in "Xerox Lisp 22-Jan-86 ..." dated "22-Jan-86 19:14:15") (FILECREATED "25-Jan-86 02:41:52" {ERIS}CML>LAB>CMLDEVELOPMENT.;18 34448 changes to: (FNS CMLFPKGFN.EVAL-WHEN CMLMAKECOMS CMLFIXCOMMENTS CMLCRUNCHCOMS CMLFPKGFN.CONSTANTS CMLPKGFN.DEFTYPE CMLFPKGFN.DEFSETF CMLFPKGFN.FNS CMLFPKGFN.INITVARS CMLFPKGFN.MACROS CMLFPKGFN.P CMLFPKGFN.PROPS CMLFPKGFN.RECORDS CMLFPKGFN.VARS CMLFPKGFN.;;; CMLREADFILE CMLIMPORTFILE) (VARS CMLDEVELOPMENTCOMS EVAL.WHEN.TAGS) (PROPS (* CMLFPKGFN) (; CL:NAME)) previous date: "24-Jan-86 01:32:21" {ERIS}CML>LAB>CMLDEVELOPMENT.;6) CMLNAME D1 (L (0 NAME)) @g@NIL (3 CL:NAME) () CMLNAMEIFY D1 (I 0 EXPR) !@dd @dd l@ @(34Q CMLNAME 20Q CMLNAMEIFY 10Q CMLNAMEIFY) NIL () CMLNAMEIFYFN D1 (I 0 FN) @g@g (20Q PUTDEF 15Q CMLNAMEIFY 12Q GETDEF) (7 FNS 3 FNS) () CMLIMPLEMENTED D1 (P 2 NAME P 1 CMLNAME P 0 NAMES F 3 CMLNAMES) ) SdJ Y IgIHH (46Q DREVERSE 22Q \DEFINEDP 16Q CMLNAME) (27Q MACRO) () CMLUNIMPLEMENTED D1 (P 2 NAME P 1 CMLNAME P 0 NAMES F 3 CMLNAMES) ) SdJ Y IgIHH (46Q DREVERSE 22Q \DEFINEDP 16Q CMLNAME) (27Q MACRO) () CMLIMPORTFILE D1 (I 0 FILE) @d @ h(10Q CMLMAKECOMS 4 CMLUPPERCASEFILE) NIL () CMLUPPERCASEFILE D1 (P 4 INSTRING P 3 INCOMMENT P 2 CODE P 1 TOSTREAM P 0 FROMSTREAM I 3 ESCAPESFLG I 2 COMMENTSFLG I 1 TOFILE I 0 FROMFILE) P@g XAg YBgbCgbH H CdgJdl%l\Zl\l%ZgC Jl"LhBdg+Jdl;i[l hIJ!LIJ!KIJ !gIJ !BdgGJdl;KoI i[hl K oI hIJ!OKLIJ!EIJ !< 6H I (366Q CLOSEF 362Q CLOSEF 353Q \ILLEGAL.ARG 344Q U-CASECODE 314Q PRIN1 266Q PRIN1 230Q U-CASECODE 213Q U-CASECODE 123Q \ILLEGAL.ARG 46Q EOFP 21Q OPENSTREAM 11Q OPENSTREAM) (240Q INTERLISP 221Q KEEP 142Q STRIP 115Q COMMONLISP 62Q INTERLISP 37Q INTERLISP 27Q INTERLISP 16Q OUTPUT 6 INPUT) ( 310Q "%")" 262Q "(; %"") CMLMAKECOMS D1 (P 4 FORM P 2 FPKGFN P 1 FORMS P 0 FILECOMS I 0 FILE) g0@ XdhgHh @ YdKH hHd  H H H\gZL HLlJHLlgK[(117Q EVAL 73Q CMLFIXCOMMENTS 67Q CMLCRUNCHCOMS 63Q SET 57Q SYMBOL-VALUE 50Q SYMBOL-VALUE 32Q CMLREADFILE 26Q SET 23Q TCONC 6 FILECOMS) (135Q CMLFPKGFN.P 110Q CMLFPKGFN 14Q *) () CMLFIXCOMMENTS D1 (L (0 FILECOMS)) .@ HdgHYHXgIgI(3 SYMBOL-VALUE) (47Q - 41Q * 17Q *) () CMLCRUNCHCOMS D1 (L (0 FILECOMS)) C@ @ "HhIHH"JgJKI HHIHHIX(53Q LAST 10Q SYMBOL-VALUE 3 SYMBOL-VALUE) (36Q DECLARE:) () CMLREADFILEA0001 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 FILECMLRDTBL F 3 EXPAND F 4 ANSWER F 5 EXPR F 6 RESETY) FgP hhhQccP PR c cTSh cPR P c i(100Q CLOSEF 72Q SKIPSEPRS 62Q \NCONC2 50Q CMLNAMEIFY 43Q READ 34Q EOFP 25Q INPUT 6 INFILE) (2 INPUT) () CMLREADFILE D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 EXPAND P 1 EXPR P 0 ANSWER I 0 FILE F 6 LISPXHIST F 7 RESETVARSLST) &0V!Wog hg] MH(42Q ERROR! 34Q RESETRESTORE 22Q CMLREADFILEA0001) (30Q ERROR 17Q INTERNAL) ( 14Q (CMLREADFILEA0001)) CMLFPKGFN.CONSTANTS D1 (I 1 EXPR I 0 FILECOMS) @ gAAhh (26Q TCONC 3 SYMBOL-VALUE) (6 CONSTANTS) () CMLPKGFN.DEFTYPE D1 (I 1 EXPR I 0 FILECOMS) @ gAh (17Q TCONC 3 SYMBOL-VALUE) (6 DEFTYPE) () CMLFPKGFN.DEFSETF D1 (P 3 PROPNAME P 1 COMS P 0 ATOM I 1 EXPR I 0 FILECOMS) -A@ "oZhHKIgHKh J(46Q TCONC 6 SYMBOL-VALUE) (35Q PROPS) ( 15Q (SETF-METHOD-EXPANDER SETF-INVERSE)) CMLFPKGFN.FNS D1 (P 0 FN I 1 EXPR I 0 FILECOMS) !AgA@ gHh (36Q TCONC 24Q SYMBOL-VALUE 15Q SHOULDNT) (27Q FNS 4 DEFUN) () CMLFPKGFN.INITVARS D1 (I 1 EXPR I 0 FILECOMS) @ gAAhh (26Q TCONC 3 SYMBOL-VALUE) (6 INITVARS) () CMLFPKGFN.MACROS D1 (P 0 MACRO I 1 EXPR I 0 FILECOMS) +AdgdgA@ gHh h(47Q TCONC 35Q SYMBOL-VALUE 26Q SHOULDNT) (40Q MACROS 13Q DEFINE-MODIFY-MACRO 5 DEFMACRO) () CMLFPKGFN.P D1 (I 1 EXPR I 0 FILECOMS) @ gAh (15Q TCONC 3 SYMBOL-VALUE) (6 P) () CMLFPKGFN.PROPS D1 (P 1 PROPNAME P 0 ATOM I 1 EXPR I 0 FILECOMS) AA@ gHIhh (31Q TCONC 13Q SYMBOL-VALUE) (16Q PROPS) () CMLFPKGFN.RECORDS D1 (P 0 NAME I 1 EXPR I 0 FILECOMS) AA@ gHh (32Q TCONC 20Q SYMBOL-VALUE) (23Q RECORDS) () CMLFPKGFN.VARS D1 (I 1 EXPR I 0 FILECOMS) @ gAAhh (26Q TCONC 3 SYMBOL-VALUE) (6 VARS) () CMLFPKGFN.EVAL-WHEN D1 (P 5 FORMS P 4 TAGS P 3 SITUATION I 1 EXPR I 0 FILECOMS F 6 EVAL.WHEN.TAGS) @@Ad[VIHhZH&JA@ gLoM  (75Q TCONC 72Q COPY 66Q \APPEND2 51Q SYMBOL-VALUE) (54Q DECLARE:) ( 61Q (*)) CMLFPKGFN.;;; D1 (I 1 EXPR I 0 FILECOMS) @ gdA (16Q TCONC 3 SYMBOL-VALUE) (6 *) () (PRETTYCOMPRINT CMLDEVELOPMENTCOMS) (RPAQQ CMLDEVELOPMENTCOMS ((* Miscellaneous LISPCORE^ development aids to help bring Common Lisp online. Not intended for general lisp users. *) (COMS (* Common Lisp names. *) (VARS CMLFNNAMES CMLMACROS CMLSPECIALFORMS EVAL.WHEN.TAGS) (P (SETQ CMLNAMES (SORT (APPEND CMLFNNAMES CMLMACROS CMLSPECIALFORMS NIL)))) (VARS CMLCONFLICTS) (P (FOR NAME IN CMLCONFLICTS DO (PUTPROP NAME (QUOTE CL:NAME) (PACK* (QUOTE CL:) NAME))) (PUTPROP (QUOTE LAMBDA) (QUOTE CL:NAME) (QUOTE CL:LAMBDA))) (FNS CMLNAME CMLNAMEIFY CMLNAMEIFYFN CMLIMPLEMENTED CMLUNIMPLEMENTED)) (PROP CL:NAME \ASET MACROP MACRO-P \PUT \RPLACA \RPLACD \SET-PLIST ;) (COMS (* Spice Lisp file to Interlisp filepackage helpers. *) (FNS CMLIMPORTFILE CMLUPPERCASEFILE CMLMAKECOMS CMLFIXCOMMENTS CMLCRUNCHCOMS CMLREADFILE) (FNS CMLFPKGFN.CONSTANTS CMLPKGFN.DEFTYPE CMLFPKGFN.DEFSETF CMLFPKGFN.FNS CMLFPKGFN.INITVARS CMLFPKGFN.MACROS CMLFPKGFN.P CMLFPKGFN.PROPS CMLFPKGFN.RECORDS CMLFPKGFN.VARS CMLFPKGFN.EVAL-WHEN CMLFPKGFN.;;;) (PROP CMLFPKGFN DEFCONSTANT DEFINE-MODIFY-MACRO DEFINE-SETF-METHOD DEFMACRO DEFUN DEFPARAMETER DEFSETF DEFSTRUCT DEFVAR EVAL-WHEN DEFTYPE *) (* Ignore package declarations, global comments, for at least the time being. *) (VARS CMLIGNOREFNS) (P (FOR NAME IN CMLIGNOREFNS DO (PUTPROP NAME (QUOTE CMLFPKGFN) (QUOTE NILL)) (OR (GETD NAME) (MOVD (QUOTE *) NAME)))) (VARS (FILECMLRDTBL ( COPYREADTABLE CMLRDTBL))) (P (SETSYNTAX (QUOTE ;) (QUOTE OTHER) FILECMLRDTBL))))) (RPAQQ CMLFNNAMES (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 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-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION LIST LIST* LIST-ALL-PACKAGES LIST-LENGTH LISTEN LISP 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 NULL NUMBERP NUERATOR 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-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 SUSEQ 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 * + - / /= 1+ 1- < <= = > >=)) (RPAQQ CMLMACROS (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 CMLSPECIALFORMS (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 EVAL.WHEN.TAGS ((EVAL . EVAL@LOAD) (CL:COMPILE . EVAL@COMPILE) (LOAD . COPY))) (SETQ CMLNAMES (SORT (APPEND CMLFNNAMES CMLMACROS CMLSPECIALFORMS NIL))) (RPAQQ CMLCONFLICTS (APPLY ARRAYP ASSOC ATAN ATOM BLOCK BREAK COMPILE COS COUNT DECLARE DELETE DO ELT ERROR EVERY FIND FIRST IF LDIFF LENGTH MAP MAPC MAPCAR MAPCON MAPHASH MAPLIST MEMBER MERGE NOTANY NOTEVERY NREVERSE NTH POSITION PRIN1 PUSH PUSHNEW REMOVE REPLACE REVERSE SIN SOME 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 *) (PUTPROPS DEFCONSTANT CMLFPKGFN CMLFPKGFN.CONSTANTS) (PUTPROPS DEFINE-MODIFY-MACRO CMLFPKGFN CMLFPKGFN.MACROS) (PUTPROPS DEFINE-SETF-METHOD CMLFPKGFN CMLFPKGFN.DEFSETF) (PUTPROPS DEFMACRO CMLFPKGFN CMLFPKGFN.MACROS) (PUTPROPS DEFUN CMLFPKGFN CMLFPKGFN.FNS) (PUTPROPS DEFPARAMETER CMLFPKGFN CMLFPKGFN.VARS) (PUTPROPS DEFSETF CMLFPKGFN CMLFPKGFN.DEFSETF) (PUTPROPS DEFSTRUCT CMLFPKGFN CMLFPKGFN.RECORDS) (PUTPROPS DEFVAR CMLFPKGFN CMLFPKGFN.INITVARS) (PUTPROPS EVAL-WHEN CMLFPKGFN CMLFPKGFN.EVAL-WHEN) (PUTPROPS DEFTYPE CMLFPKGFN CMLPKGFN.DEFTYPE) (PUTPROPS * CMLFPKGFN CMLFPKGFN.;;;) (RPAQQ CMLIGNOREFNS (; CL:DECLARE EXPORT IMPORT IN-PACKAGE PROCLAIM PROVIDE REQUIRE SHADOW USE-PACKAGE )) (FOR NAME IN CMLIGNOREFNS DO (PUTPROP NAME (QUOTE CMLFPKGFN) (QUOTE NILL)) (OR (GETD NAME) (MOVD ( QUOTE *) NAME))) (RPAQ FILECMLRDTBL (COPYREADTABLE CMLRDTBL)) (SETSYNTAX (QUOTE ;) (QUOTE OTHER) FILECMLRDTBL) (PUTPROPS CMLDEVELOPMENT COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL