(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 2-Nov-93 17:45:10" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>CMLLOAD.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 14:18:07" "{Pele:mv:envos}Sources>CLTL2>CMLLOAD.;2" 6602 |previous| |date:| "15-Dec-92 21:27:17" "{Pele:mv:envos}Sources>CLTL2>CMLLOAD.;1") (RPAQQ CMLLOADCOMS ((VARIABLES CL:*LOAD-PRINT* *LOAD-VERBOSE* CL:*LOAD-PATHNAME* CL:*LOAD-TRUENAME* XCL::*DEFAULT-SOURCE-IO-PACKAGE*) (FUNCTIONS CL::DEFAULT-IO-PACKAGE CL:LOAD CL::\\OPENSTREAM-WITH-DEFAULT) (FNS \\CML-LOAD) (PROP FILETYPE CMLLOAD))) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:*LOAD-PRINT*))) (OR (BOUNDP (QUOTE CL:*LOAD-PRINT*)) (CL:SETQ CL:*LOAD-PRINT* NIL)) (SET-DOCUMENTATION (QUOTE CL:*LOAD-PRINT*) (QUOTE CL:VARIABLE) "Default value for :PRINT in 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.") (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:*LOAD-PATHNAME*))) (OR (BOUNDP (QUOTE CL:*LOAD-PATHNAME*)) (CL:SETQ CL:*LOAD-PATHNAME* NIL)) (SET-DOCUMENTATION (QUOTE CL:*LOAD-PATHNAME*) (QUOTE CL:VARIABLE) "LOAD binds this to the pathname of the file being loaded") (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:*LOAD-TRUENAME*))) (OR (BOUNDP (QUOTE CL:*LOAD-TRUENAME*)) (CL:SETQ CL:*LOAD-TRUENAME* NIL)) (SET-DOCUMENTATION (QUOTE CL:*LOAD-TRUENAME*) (QUOTE CL:VARIABLE) "LOAD binds this to the truename of the file being loaded") (CL:PROCLAIM (QUOTE (CL:SPECIAL XCL::*DEFAULT-SOURCE-IO-PACKAGE*))) (OR (BOUNDP (QUOTE XCL::*DEFAULT-SOURCE-IO-PACKAGE*)) (CL:SETQ XCL::*DEFAULT-SOURCE-IO-PACKAGE* ( CL:FIND-PACKAGE "CL-USER"))) CL::DEFAULT-IO-PACKAGE :D8 (L (0 CL::P) F 0 XCL::*DEFAULT-SOURCE-IO-PACKAGE* F 1 *PACKAGE* F 2 *CLTL2-PEDANTIC*) :@µR³3P µ,ooPQ µoo@Q(54 CL:CERROR 36 CL:FIND-PACKAGE 29 CL:CERROR 11 CL:FIND-PACKAGE) NIL ( 48 "~s does not name a package" 43 "Use current *PACKAGE*" 23 "The value of XCL::*DEFAULT-SOURCE-IO-PACKAGE*, ~s, does not name a package" 18 "Use current *PACKAGE*") 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 A3352) i@STU cg(22 \\MVLIST 17 PATHNAME) (29 :NORMAL) () CL::LOADA0002 :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 A3353 F 6 CL:*LOAD-PATHNAME* F 7 LOADPARAMETERS) ,i@STVggW c g(34 \\MVLIST 29 OPENSTREAM) (41 :NORMAL 22 OLD 17 INPUT) () CL::LOADA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STREAM F 1 LOADFLG F 2 CL:*LOAD-PRINT* 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::LOADA0004 :D8 (F 0 STREAM) P (5 CL:CLOSE) NIL () CL:LOAD :D8 (L (0 |-args-|) P 25 STREAM P 24 A3353 P 23 SI::CONDITION-CASE-LITERALS P 22 CL:*LOAD-PATHNAME* P 21 A3352 P 20 SI::CONDITION-CASE-LITERALS P 19 PACKAGE P 18 LOADFLG P 17 CL:*LOAD-PRINT* P 16 *LOAD-VERBOSE* P 1 FILENAME F 26 *LOAD-VERBOSE* F 27 CL:*LOAD-PRINT* F 28 LOADPARAMETERS) ÷ekaáHl»ºKJó¢±”W4Hl½¼MdLó¢±™¿W6Hl_¿¾OdNó¢±š¿g_¿Hl_¿_¿OdOó¢±˜¿hHl_¿_¿OdOó¢±š¿hI ¢±ÅoO( _dgð¢±ˆ¿O*$±œKdagð¦lÔ[±ÿ[kØa±ÿ]agð–MkØa±ÿaMlÔ]±ÿOagð—OkØa±ÿbOlÔ_±ÿKagð—OkØa±ÿ`OlÔ_±ÿLagð—OkØa±ÿ^OlÔ_±ÿJÃ›O_¿hO$ŠOO( °3IÃ–I ŠIg –I I ` O,—O, ¿I µQO³:oO. _dgð—¿O0$°Ã‘hOO. °O,ggW8g O2 ¿$(496 CL:CLOSE 489 \\MVLIST 484 CL::LOADA0003 471 OPENSTREAM 449 SI::CONDITION-CASE-ERROR 412 CL::LOADA0002 390 STREAMP 383 CL:TRUENAME 370 CL:MERGE-PATHNAMES 360 PATHNAME 353 PATHNAME 346 FILENAMEFIELD 334 CL:PATHNAME-HOST 318 SI::CONDITION-CASE-ERROR 143 CL::LOADA0001 123 STREAMP) (479 CL::LOADA0004 464 OLD 459 INPUT 435 XCL:FILE-NOT-FOUND 420 :NORMAL 365 *DEFAULT-PATHNAME-DEFAULTS* 341 HOST 327 PATHNAME 294 CL:ERROR 269 :PACKAGE 243 :LOADFLG 217 :IF-DOES-NOT-EXIST 194 :PRINT 173 :VERBOSE 151 :NORMAL 66 :ERROR) ( 401 #.(SI::CREATE-CONDITION-CASE-LITERALS (QUOTE XCL:FILE-NOT-FOUND)) 132 #.(SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR))) (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) F 0 LOADPARAMETERS) P@dÃ—¿@ ‰g ³#@ ` ggP@ggP(77 OPENSTREAM 59 OPENSTREAM 43 CL:MERGE-PATHNAMES 33 PATHNAME 25 FILENAMEFIELD 14 CL:PATHNAME-HOST) (71 OLD 66 INPUT 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) UC`@ oK@hK\ð²BµJoJ@ ¿°ìAžL i ¿°ËL ¿°Â(80 CL:EVAL 71 PRINT 65 CL:EVAL 54 CL:FORMAT 49 GETFILEPTR 28 CL:READ 11 FULLNAME) (5 CMLRDTBL) ( 42 "; Finished loading ~A, ~D bytes read~&" 16 "EOF") (PUTPROPS CMLLOAD FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLLOAD COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992 1993)) NIL