(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "14-Sep-2023 22:53:09" ("compiled on " {WMEDLEY}PRINTFN.;35) "14-Sep-2023 22:26:32" brecompiled exprs%: PF in "FULL 14-Sep-2023 ..." dated "14-Sep-2023 22:26:39") (FILECREATED "14-Sep-2023 22:53:09" {WMEDLEY}PRINTFN.;35 13520 :EDIT-BY rmk :CHANGES-TO (FNS PF) :PREVIOUS-DATE "19-Jun-2022 00:02:19" {WMEDLEY}PRINTFN.;34) PFA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 FILE P 2 IFILES P 1 OTHERARGS P 0 OUT I 0 SI::*CLEANUP-FORMS* F 5 FN F 6 SI::*RESETFORMS* F 7 *COMPILED-EXTENSIONS*) Ì0U c dd—¿d¹Uc —U¿‡`c ¿IµUgi Ugi ZgI²8Ig µ*I µ oIg XhVc ¿H€i hhVc JKd £K¼h„K¼K»Lg W ³ÞUL ¿°Ô(199 PRINTFN 190 MEMB 183 FILENAMEFIELD 143 OUTPUT 126 OPENSTREAM 106 WINDOWP 96 OPENP 72 \APPEND2 67 WHEREIS 55 WHEREIS 8 NLAMBDA.ARGS) (178 EXTENSION 121 OUTPUT 91 OUTPUT 78 OUTPUT 61 FUNCTIONS 49 FNS 36 LASTWORD 29 LASTWORD) ( 113 (PROGN (CLOSEF? OLDVALUE))) PF :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FN F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 PFA0001) (8 SI::RESETUNWIND) () PF*A0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FN) hgP h(16 APPLY) (10 PF 5 **COMMENT**FLG) () PF* :D8 (P 0 SI::*RESETFORMS* I 0 FN) *g`hg ¿$(35 SI::RESETUNWIND 30 \MVLIST 25 PF*A0001) (20 SI::RESETUNWIND 9 **COMMENT**FLG 4 **COMMENT**FLG) () PRINTFN :D8 (P 0 LOC I 2 TOFILE I 1 FROMFILE I 0 FN) y@A Hd²BHHH @gð²oB ¿AB ¿o°#@B ¿oB ¿HB ¿oB ¿B h(117 TERPRI 110 PRIN1 98 PRIN1 90 PRIN1 78 PRIN1 63 PRIN1 55 PRIN1 34 PRINTFNDEF 6 FINDFNDEF) (41 FILE.NOT.FOUND) ( 104 "." 84 " not found on " 69 " not found." 49 "file ") PRINTFNDEFA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 TEM I 0 SI::*CLEANUP-FORMS* F 2 DSTFIL F 3 SI::*RESETFORMS* F 4 SRCFIL F 5 END F 6 START) ÌRgi XµJoRg chSc¿Tgi X²&gHd hhdSc¿Hc¿°!c¿°ÏoTg chSc¿oR ¿T R ¿oR ¿R R •`„gTRVUlIR (201 TERPRI 170 DISPLAYP 163 TERPRI 156 PRIN1 144 PRIN2 138 FULLNAME 131 PRIN1 110 OPENSTREAM 70 GETFILEPTR 55 GETSTREAM 33 OPENSTREAM 14 GETSTREAM) (182 COPYBYTES 176 PFDEFAULT 105 INPUT 63 SETFILEPTR 49 INPUT 28 OUTPUT 8 OUTPUT) ( 150 "}" 125 "{from " 99 (PROGN (CLOSEF? OLDVALUE)) 22 (PROGN (CLOSEF? OLDVALUE))) PRINTFNDEF :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 TYPE I 3 END I 2 START I 1 DSTFIL I 0 SRCFIL F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 PRINTFNDEFA0001) (8 SI::RESETUNWIND) () FINDFNDEF :D8 (P 4 GROUP P 2 VALUE P 1 MAP P 0 FULL I 1 FROMFILE I 0 FN) W0A Xµg µH Y²"IKµh²HJJghµH¼@LZ•Lµài°ÝK[°Ô(30 LOADFILEMAP 22 GETFILEMAP 8 FINDFILE-WITH-EXTENSIONS) (58 MAP 16 FILE.NOT.FOUND) () PFCOPYBYTESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 MAXFONT P 4 NBYTES P 3 CHARCODE P 2 FONTARRAY P 1 DSTRM P 0 SSTRM I 0 SI::*CLEANUP-FORMS* F 6 START F 7 SI::*RESETFORMS* F 8 END F 9 SRCFIL F 10 DSTFIL F 11 NOTERPRI) ôWgh Wgh BI ²7Z ½ghI IhhdWc¿Jk I ¿W²HV ¿Wdmÿð–¿H V°VµH c ¿H H Ù\djñ³EiHlgL [lð²&HgL [Mñ³Kjð³JK I †IK ¿Ljñ³½VjðŸH ˜W¥I i(240 TERPRI 230 EOFP 214 \OUTCHAR 206 DSPFONT 200 ELT 183 \INCCODE 165 \INCCODE.EOLC 142 GETFILEPTR 136 GETEOFPTR 127 GETFILEPTR 115 GETEOFPTR 100 SETFILEPTR 88 DSPFONT 82 ELT 60 DSPFONT 47 ARRAYSIZE 41 FONTMAPARRAY 34 IMAGESTREAMP 25 \GETSTREAM 12 \GETSTREAM) (177 NBYTES 159 NBYTES 53 DSPFONT 19 OUTPUT 6 INPUT) () PFCOPYBYTES :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 NOTERPRI I 3 END I 2 START I 1 DSTFIL I 0 SRCFIL F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 PFCOPYBYTESA0001) (8 SI::RESETUNWIND) () DISPLAYP :D8 (P 0 STRM I 0 STREAM) '@gi Hd² µ Hg (36 IMAGESTREAMTYPEP 23 DISPLAYSTREAMP 11 \GETSTREAM) (31 TEXT 5 OUTPUT) () (PRETTYCOMPRINT PRINTFNCOMS) (RPAQQ PRINTFNCOMS ((* * PRINTFN) (FNS PF PF* PRINTFN PRINTFNDEF FINDFNDEF PFCOPYBYTES DISPLAYP) ( INITVARS (PFDEFAULT (QUOTE PFCOPYBYTES))) (DECLARE%: DONTCOPY (MACROS PFPRINCHAR PFOUTCHAR)) (P (MOVD? (QUOTE COPYBYTES) (QUOTE PFCOPYBYTES))) (USERMACROS PF) (GLOBALVARS **COMMENT**FLG LASTWORD PFDEFAULT FILERDTBL USEMAPFLG) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PF* PF) (NLAML) (LAMA))))) (RPAQ? PFDEFAULT (QUOTE PFCOPYBYTES)) (MOVD? (QUOTE COPYBYTES) (QUOTE PFCOPYBYTES)) (ADDTOVAR EDITMACROS (PF NIL (ORR ((E (APPLY* (QUOTE PF) (FIRSTATOM (%##))))) ((E (QUOTE PF?)))))) (ADDTOVAR EDITCOMSA PF) (PUTPROPS PRINTFN COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1999 2018 2021)) NIL