(FILECREATED " 8-Jul-86 09:56:50" ("compiled on " {ERIS}LIBRARY>CMLENVIRONMENT.;6) " 6-Jul-86 22:38:51" "COMPILE-FILEd" in "Xerox Lisp 6-Jul-86 ..." dated " 6-Jul-86 23:42:04") (FILECREATED " 8-Jul-86 09:56:40" {ERIS}LIBRARY>CMLENVIRONMENT.;6 6573 changes to: (VARS CMLENVIRONMENTCOMS) previous date: " 6-Jun-86 18:05:01" {ERIS}LIBRARY>CMLENVIRONMENT.;5) (RPAQQ CMLENVIRONMENTCOMS ((FNS LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-INSTANCE MACHINE-VERSION PRINT-LOADED-FILE-INFORMATION SOFTWARE-TYPE SOFTWARE-VERSION PRINT-LISP-INFORMATION MACHINE-TYPE) (FNS SHORT-SITE-NAME LONG-SITE-NAME) (FNS ROOM) (FNS FUNCTIONP) (P (MOVD (QUOTE CCODEP) (QUOTE COMPILED-FUNCTION-P))) (ADDVARS (*FEATURES* INTERLISP XEROX COMMON)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SLEEP))))) LISP-IMPLEMENTATION-TYPE D1 NIL oNIL NIL ( 3 "Xerox") LISP-IMPLEMENTATION-VERSION D1 (F 0 MAKESYSNAME F 1 MAKESYSDATE) PoQ(10Q CONCAT) NIL ( 4 " of ") MACHINE-INSTANCE D1 (F 0 \MY.NSHOSTNUMBER) Pl çPlçPÔÔ (26Q MKSTRING) NIL () MACHINE-VERSION D1 NIL ooo (25Q CONCAT 15Q REALMEMORYSIZE 6 MICROCODEVERSION) NIL ( 21Q " pages" 12Q ", " 3 "microcode ") PRINT-LOADED-FILE-INFORMATION D1 (L (1 STRING 0 FILE) F 2 LOADEDFILELST) GRHµh¹AµoI ²*I @ ¿o@ ¿I g @ ¿@ ¿HX°Á(77Q TERPRI 72Q PRIN1 64Q GETP 56Q NAMEFIELD 51Q PRIN1 40Q PRIN1 34Q NAMEFIELD 26Q STRPOS) (61Q FILEDATES) ( 45Q " dated " 22Q "PATCH") SOFTWARE-TYPE D1 NIL oNIL NIL ( 3 "Xerox Lisp") SOFTWARE-VERSION D1 (F 0 MAKEINITDATES) PNIL NIL () PRINT-LISP-INFORMATIONA0001 D1 (NAME ERRORSET F 0 FILE F 1 STRING F 2 MACROY) † ¿o ¿ ¿o ¿ ¿o ¿ ¿o ¿o ¿ ¿o ¿ ¿o ¿ ¿h ¿o ¿PQµo ci(200Q PRINT-LOADED-FILE-INFORMATION 164Q PRIN1 154Q TERPRI 147Q PRIN1 144Q SOFTWARE-VERSION 140Q PRIN1 130Q PRIN1 125Q SOFTWARE-TYPE 121Q PRIN1 111Q PRIN1 106Q MACHINE-INSTANCE 102Q PRIN1 72Q PRIN1 62Q PRIN1 57Q MACHINE-VERSION 53Q PRIN1 43Q PRIN1 40Q MACHINE-TYPE 34Q PRIN1 24Q PRIN1 21Q LISP-IMPLEMENTATION-VERSION 15Q PRIN1 5 PRIN1 2 LISP-IMPLEMENTATION-TYPE) NIL ( 175Q "PATCH" 161Q "Patch files: " 135Q " version " 116Q " based on " 77Q "machine " 67Q ", " 50Q ", " 31Q " on " 12Q " version ") PRINT-LISP-INFORMATION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 STRING I 0 FILE F 4 RESETVARSLST) >@µi 1gHhhTcYog £g»IcgI K“J(71Q ERROR! 64Q APPLY 41Q PRINT-LISP-INFORMATIONA0001 6 OUTPUT) (55Q OUTPUT 45Q ERROR 36Q INTERNAL 14Q OUTPUT) ( 33Q (PRINT-LISP-INFORMATIONA0001)) MACHINE-TYPE D1 NIL )Hdgð”ogð”oHdgð“o(2 MACHINETYPE) (40Q DOVE 24Q DORADO 12Q DANDELION) ( 46Q "Xerox 1186" 32Q "Xerox 1132" 20Q "Xerox 1108") SHORT-SITE-NAME D1 NIL µo(2 ETHERHOSTNAME) NIL ( 10Q "unknown") LONG-SITE-NAME D1 NIL (2 SHORT-SITE-NAME) NIL () ROOM D1 (L (0 -args-)) e(6 STORAGE) NIL () FUNCTIONP D1 (L (0 FN)) i@Hdlð²Á XdÊ@jð¤ XÊjðhðHÉ¸³@H²+Hdgð³dgð³dgð«dgð¥dgð’¿i¿h³H´HÊClð´i(30Q \PSEUDOCODE.REALDEF) (135Q ARRAYP 113Q FUNARG 105Q NLAMBDA 77Q OPENLAMBDA 70Q LAMBDA 61Q CL:LAMBDA) () (MOVD (QUOTE CCODEP) (QUOTE COMPILED-FUNCTION-P)) (ADDTOVAR *FEATURES* INTERLISP XEROX COMMON) (RPAQQ CMLENVIRONMENTCOMS ((FNS LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-INSTANCE MACHINE-VERSION PRINT-LOADED-FILE-INFORMATION SOFTWARE-TYPE SOFTWARE-VERSION PRINT-LISP-INFORMATION MACHINE-TYPE) (FNS SHORT-SITE-NAME LONG-SITE-NAME) (FNS ROOM) (FNS FUNCTIONP) (P (MOVD (QUOTE CCODEP) (QUOTE COMPILED-FUNCTION-P))) (ADDVARS (*FEATURES* INTERLISP XEROX COMMON)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA ROOM))))) (PUTPROPS CMLENVIRONMENT COPYRIGHT ("Xerox Corporation" 1986)) STOP