(FILECREATED " 1-Aug-86 01:11:24" ("compiled on " {ERIS}LIBRARY>CMLPACKAGE.;14) "30-Jul-86 09:02:49" "COMPILE-FILEd" in "Xerox Lisp 30-Jul-86 ..." dated "30-Jul-86 09:16:17") (FILECREATED " 1-Aug-86 01:10:54" {ERIS}LIBRARY>CMLPACKAGE.;14 8086 changes to: (VARS CMLTRANSLATED) (FNS MAKE-SYMBOL) previous date: " 1-Aug-86 00:40:09" {ERIS}LIBRARY>CMLPACKAGE.;13) (RPAQQ CMLPACKAGECOMS ((* "Utterly fake packages. Uses Interlisp GENSYM, though the semantics aren't quite right.") (COMS (* Keywords) (FNS KEYWORDP MAKE-KEYWORD)) (COMS (* "Fake self-evaluating keywords") (FNS DWIMKEYWORD) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (DWIMUSERFORMS (DWIMKEYWORD)))) (ADVISE COMP.USERFN)) (COMS (VARS CMLTRANSLATED) (FNS CMLTRANSLATE)) (COMS (* Symbol creation) (FNS INTERN EXPORT SYMBOL-NAME MAKE-SYMBOL GENTEMP COPY-SYMBOL)) (COMS (* Packages) (FNS IN-PACKAGE USE-PACKAGE FIND-PACKAGE LIST-ALL-PACKAGES)) ( DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE NILL) (QUOTE SYMBOL-PACKAGE)))) (INITVARS (GENSYM-PREFIX "G") (GENSYM-COUNTER 0) (*INTERLISP-PACKAGE*) (*LISP-PACKAGE*) (*KEYWORD-PACKAGE*)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA USE-PACKAGE COPY-SYMBOL INTERN))))) KEYWORDP D1 (I 0 X) @k l:ð(4 NTHCHARCODE) NIL () MAKE-KEYWORD D1 (I 0 X) G@ l:ð³9o@l l:ð²#o@khi ¬o@khi –@l €@ b€@d (104Q SET 74Q PACK* 67Q SUBSTRING 60Q STRPOS 43Q STRPOS 22Q NTHCHARCODE 3 CHCON1) NIL ( 50Q "IL" 33Q "CL" 14Q ":") DWIMKEYWORD D1 (F 0 FAULTX F 1 FAULTAPPLYFLG) Qhð´Plð´Pk l:ð´P (31Q MAKE-KEYWORD 20Q NTHCHARCODE) NIL () (ADDTOVAR DWIMUSERFORMS (DWIMKEYWORD)) (PUTPROPS COMP.USERFN READVICE (NIL (BEFORE NIL (COND ((KEYWORDP X) (RETURN (LIST (QUOTE QUOTE) X))) ( (AND (EQ (CAR (LISTP (CAR (LISTP X)))) (QUOTE CL:LAMBDA)) (COND ((INTERSECTION (CADR (CAR X)) LAMBDA-LIST-KEYWORDS) (ERROR "Can't cope with lambda keywords in internal LAMBDA lists")) (T (RETURN ( BQUOTE ((LAMBDA (\,@ (CDAR X))) (\,@ (CDR X))))))))))))) (READVISE COMP.USERFN) (RPAQQ CMLTRANSLATED (APPEND APPLY ARRAYP ASSERT ASSOC ATAN ATOM BLOCK BREAK CHARACTER COERCE COLLECT COMPILE COS COUNT DELETE DO DO* ELT EQUAL ERROR EVAL EVALHOOK EVERY EXPT FINALLY FIND FIRST FLOOR FUNCTION GCD GETHASH IF INITIALLY INTERSECTION JOIN LAMBDA LDIFF LENGTH LISTP LOAD LOG MAP MAPC MAPC MAPCAR MAPCON MAPHASH MAPLIST MEMBER MERGE MOD NOTANY NOTEVERY NREVERSE NTH POP POSITION PRIN1 PRINT PUSH PUSHNEW PUTHASH READ REMOVE REPLACE REVERSE SETQ SIN SOME SORT SQRT STREAMP STRINGP SUBLIS SUBST SUM TAN TERPRI UNION UNLESS UNTIL WHEN ZEROP *)) CMLTRANSLATE D1 (I 0 X F 0 CMLTRANSLATED) =@dlð²$P˜o@ o@khi –@l @²ý@d @ (72Q WALK-RECONS 67Q CMLTRANSLATE 62Q CMLTRANSLATE 46Q SUBATOM 37Q STRPOS 22Q PACK*) NIL ( 27Q "IL:" 16Q "CL:") INTERN D1 (L (0 -args-)) [ekalHñ“g‚laZdgð²&¿I ›I I gI gI –Jgð´I gJo (130Q ECASE-FAIL 114Q PACK* 77Q SET 74Q PACK* 65Q PACK* 55Q SET 52Q PACK* 46Q PACK* 41Q KEYWORDP) (120Q PACKAGE 105Q PCL 70Q : 61Q : 31Q KEYWORD 20Q PCL) ( 125Q (KEYWORD (NIL PCL))) EXPORT D1 NIL hNIL NIL () SYMBOL-NAME D1 (I 0 SYMBOL) @ (6 MKSTRING) (3 LITATOM) () MAKE-SYMBOL D1 (L (0 NAME)) @”@ g@ (22Q GENSYM 17Q CONCATENATE 7 GENSYM) (13Q STRING) () GENTEMP D1 (I 1 PACKAGE I 0 PREFIX) @hdi (6 GENSYM) NIL () COPY-SYMBOL D1 (L (1 COPY-PROPS 0 SYMBOL)) @ AœHÁ@ÁÉ H(23Q COPY-LIST 3 GENSYM) NIL () IN-PACKAGE D1 (L (0 PACKAGENAME)) hNIL NIL () USE-PACKAGE D1 (L (0 -args-)) $eHk"JdIó‘ha¼Kµ Lh»JkÔZ°íL&°÷NIL NIL () FIND-PACKAGE D1 NIL hNIL NIL () LIST-ALL-PACKAGES D1 NIL hNIL NIL () (MOVD (QUOTE NILL) (QUOTE SYMBOL-PACKAGE)) (RPAQ? GENSYM-PREFIX "G") (RPAQ? GENSYM-COUNTER 0) (RPAQ? *INTERLISP-PACKAGE*) (RPAQ? *LISP-PACKAGE*) (RPAQ? *KEYWORD-PACKAGE*) (PUTPROPS CMLPACKAGE COPYRIGHT ("Xerox Corporation" 1986)) STOP