(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 10:23:35" ("compiled on " |{DSK}sources>CMLLOAD.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "13-Jul-90 18:00:23" |{PELE:MV:ENVOS}SOURCES>CMLLOAD.;4| 3202 |changes| |to:| ( FUNCTIONS CL::\\OPENSTREAM-WITH-DEFAULT) |previous| |date:| " 4-Jun-90 15:23:02" |{PELE:MV:ENVOS}SOURCES>CMLLOAD.;3|) (RPAQQ CMLLOADCOMS ((FUNCTIONS CL:LOAD CL::\\OPENSTREAM-WITH-DEFAULT) (FNS \\CML-LOAD) (VARIABLES *LOAD-PRINT-STUFF* *LOAD-VERBOSE*) (PROP FILETYPE CMLLOAD))) CL::LOADA0001 :D8 (P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::CONDITION-CASE-LITERALS F 4 *CONDITION-HANDLER-BINDINGS* F 5 FILENAME F 6 A2372) i@STU cg(22 \\MVLIST 17 CL::\\OPENSTREAM-WITH-DEFAULT) (29 :NORMAL) () CL::LOADA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STREAM F 1 LOADFLG F 2 *LOAD-PRINT-STUFF* F 3 PACKAGE F 4 *LOAD-VERBOSE* F 5 *TERMINAL-IO*) $PQ o RT´US (33 \\LOAD-STREAM 21 CL:INTERN 16 CL:FIND-PACKAGE 6 STRING) NIL ( 11 "INTERLISP") CL::LOADA0003 :D8 (F 0 STREAM) P (5 CL:CLOSE) NIL () CL:LOAD :D8 (L (0 |-args-|) P 20 STREAM P 19 A2372 P 18 SI::CONDITION-CASE-LITERALS P 17 PACKAGE P 16 LOADFLG P 15 *LOAD-PRINT-STUFF* P 14 *LOAD-VERBOSE* P 1 FILENAME F 21 *LOAD-VERBOSE* F 22 *LOAD-PRINT-STUFF*) dekaÁ Hl»ºKJó¢±œW*Hl½¼MdLó¢±¡¿W,Hl_¿¾OdNó¢±¢¿g_¿Hl_¿_¿OdOó¢± ¿hHl_¿_¿OdOó¢±¢¿hI µ‚±ÆO’±ºoO$ _dgð¢±ˆ¿O&$±’Kdagð¦lÔ[±ÿSkØa±ÿUagð–MkØa±ÿYMlÔ]±ÿGagð—OkØa±ÿZOlÔ_±ÿCagð—OkØa±ÿXOlÔ_±ÿDagð—OkØa±ÿVOlÔ_±ÿBÃ‘hOO$ …I g O( ¿$(349 CL:CLOSE 342 \\MVLIST 337 CL::LOADA0002 324 CL::\\OPENSTREAM-WITH-DEFAULT 316 SI::CONDITION-CASE-ERROR 151 CL::LOADA0001 123 STREAMP) (332 CL::LOADA0003 302 XCL:FILE-NOT-FOUND 277 :PACKAGE 251 :LOADFLG 225 :IF-DOES-NOT-EXIST 202 :PRINT 181 :VERBOSE 159 :NORMAL 66 :ERROR) ( 140 #.(SI::CREATE-CONDITION-CASE-LITERALS (QUOTE XCL:FILE-NOT-FOUND))) (SET-DOCUMENTATION (QUOTE CL:LOAD) (QUOTE CL:FUNCTION) "Loads the file named by Filename into the Lisp environment.") CL::\\OPENSTREAM-WITH-DEFAULT :D8 (L (0 CL::FILENAME)) X@dÃ—¿@ ‰g ³'@ ` gg`@gg`(85 OPENSTREAM 63 OPENSTREAM 43 CL:MERGE-PATHNAMES 33 PATHNAME 25 FILENAMEFIELD 14 CL:PATHNAME-HOST) (80 LOADPARAMETERS 75 OLD 70 INPUT 58 LOADPARAMETERS 53 OLD 48 INPUT 38 *DEFAULT-PATHNAME-DEFAULTS* 20 HOST 6 PATHNAME) () \\CML-LOAD :D8 (P 4 EXPR P 3 EOF-MARK P 2 FULL P 1 *READTABLE* P 0 *PACKAGE* I 3 PACKAGE I 2 LOAD-VERBOSE-STREAM I 1 PRINTFLG I 0 STREAM F 5 CMLRDTBL) ]Cµo U@ oK@hK\ð³AžL i ¿°äL ¿°ÛBµJoJ@ ¿°ì(88 CL:FORMAT 83 GETFILEPTR 63 CL:EVAL 54 PRINT 48 CL:EVAL 36 CL:READ 19 FULLNAME 12 CL:FIND-PACKAGE) NIL ( 76 "; Finished loading ~A, ~D bytes read~&" 24 "EOF" 7 "USER") (CL:PROCLAIM (QUOTE (CL:SPECIAL *LOAD-PRINT-STUFF*))) (OR (BOUNDP (QUOTE *LOAD-PRINT-STUFF*)) (CL:SETQ *LOAD-PRINT-STUFF* NIL)) (SET-DOCUMENTATION (QUOTE *LOAD-PRINT-STUFF*) (QUOTE CL:VARIABLE) "Default value for :PRINT keyword to LOAD") (CL:PROCLAIM (QUOTE (CL:SPECIAL *LOAD-VERBOSE*))) (OR (BOUNDP (QUOTE *LOAD-VERBOSE*)) (CL:SETQ *LOAD-VERBOSE* T)) (SET-DOCUMENTATION (QUOTE *LOAD-VERBOSE*) (QUOTE CL:VARIABLE) "Default for VERBOSE keyword to LOAD.") (PUTPROPS CMLLOAD FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLLOAD COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990)) NIL