(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "28-Oct-86 20:27:53" ("compiled on " {ERIS}SOURCES>CMLLOAD.;3) "28-Oct-86 20:27:23" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "24-Oct-86 14:36:55" {ERIS}SOURCES>CMLLOAD.;3 2447 changes to%: (VARS CMLLOADCOMS) previous date%: " 2-Jun-86 17:39:21" {ERIS}SOURCES>CMLLOAD.;2) (RPAQQ CMLLOADCOMS ((FUNCTIONS CL:LOAD) (VARIABLES *LOAD-PRINT-STUFF* *LOAD-VERBOSE*) (PROP FILETYPE CMLLOAD))) CL:LOADA0001 D1 (NAME ERRORSET L (0 NIL) F 1 F F 2 RESETVARSLST F 3 *LOAD-PRINT-STUFF* F 4 *LOAD-VERBOSE* F 5 *READTABLE* F 6 RESETY) dgQhhhRc¿TŸioQ  ¿QU ¿Q ”hc iQ Hlð²S™H i °H ŽS˜H i ƒH °Á(95 CL:EVAL 90 PRINT 86 CL:EVAL 79 LAPRD 73 PRINT 69 LAPRD 53 CL:READ 43 EOFP 38 SKIPSEPRS 32 FORMAT 29 DATE 26 FULLNAME) (2 CLOSEF) ( 22 "; loading ~A at ~A ~&") CL:LOAD D1 (L (0 -args-) P 13 RESETY P 12 LISPXHIST P 11 F P 10 *PACKAGE* P 9 *LOAD-PRINT-STUFF* P 8 *LOAD-VERBOSE* F 15 *LOAD-VERBOSE* F 16 *LOAD-PRINT-STUFF* F 17 RESETVARSLST F 18 *PACKAGE* F 19 LISPXHIST) ªekaaHl»ºKdJó²P¿WHl½¼MdLó²R¿W  Hl_¿¾OdNó²Q¿W$I µ Ig  W&!W"og ²;h°;agð•KkØa°«KlÔ[°œagð•MkØa°©MlÔ]°šagð³­OlÔ_°žg_ ¿O’I(166 ERROR! 159 RESETRESTORE 92 CL:LOADA0001 72 OPENSTREAM 63 STREAMP) (154 ERROR 139 :IF-DOES-NOT-EXIST 120 :PRINT 101 :VERBOSE 89 INTERNAL 69 INPUT) ( 86 (CL:LOADA0001)) (LET* ((A0096 (QUOTE CL:LOAD)) (A0097 (QUOTE CL:FUNCTION)) (A0098 "Loads the file named by Filename into the Lisp environment.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0096 A0097 A0098))) A0098)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *LOAD-PRINT-STUFF*))) (OR (BOUNDP (QUOTE *LOAD-PRINT-STUFF*)) (SETQ *LOAD-PRINT-STUFF* NIL)) (LET* ((A0099 (QUOTE *LOAD-PRINT-STUFF*)) (A0100 (QUOTE VARIABLE)) (A0101 "Default value for :PRINT keyword to LOAD")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0099 A0100 A0101))) A0101)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *LOAD-VERBOSE*))) (OR (BOUNDP (QUOTE *LOAD-VERBOSE*)) (SETQ *LOAD-VERBOSE* NIL)) (LET* ((A0102 (QUOTE *LOAD-VERBOSE*)) (A0103 (QUOTE VARIABLE)) (A0104 "Default for VERBOSE keyword to LOAD.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A0102 A0103 A0104))) A0104)) (PUTPROPS CMLLOAD FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLLOAD COPYRIGHT ("Xerox Corporation" 1986)) NIL