(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-May-2023 19:53:54" ("compiled on " {DSK}larry>il>medley>sources>PRETTY.;25) "17-May-2023 21:19:35" brecompiled ALL in "Welcome to Fuller sysout 17-May-2023 ..." dated "17-May-2023 21:24:17") (FILECREATED " 8-Feb-2023 16:21:26" {DSK}larry>il>medley>sources>PRETTY.;3 65500 :EDIT-BY "lmm" :CHANGES-TO (FNS PRINTDATE1) :PREVIOUS-DATE "19-Jan-2022 20:35:18" {DSK}larry>il>medley>sources>PRETTY.;1) PRINTCOPYRIGHT :D8 (L (0 FILENAME)) e@g !Hµ‚± `d¢±Ggð’±<`gð‘j„`go@o0`°CdYogIoIgIgih»LµKh]K&¼µ¾M``X²Eg`o goHogigHh„o` id X´X@gHhX´GHgð³ - no copyright notice now [Default]" NOECHOFLG T RETURN NIL) 212 " [Default]" 204 " - " 189 " " 111 " - " 99 "" 75 ": " 69 "Copyright owner for file ") PRINTCOPYRIGHT1 :D8 (L (0 OWNER) F 10 *READTABLE*) > @Wg ´oBHið”iºH¸Iµyoh ¿h ¿o H1 N_µYo @ o `šo ¿J¢±šoHoo°} °–__¿Oh¼[µ;O ¿OOð³o ¿O ¿Od¿o ¿O±ÿ_¼OkØLð²¿L_¿O_¿K°d½Iµ.M ¿¿µëI³o ¿¿h ¿°Î(313 PRIN1 306 TERPRI 300 TERPRI 294 PRIN3 276 TERPRI 270 PRIN3 227 PRIN3 210 PRIN3 202 PRIN3 184 PRIN3 160 PRIN1 147 CONCAT 125 TERPRI 119 PRIN3 103 PRIN3 93 PRIN3 86 PRIN3 65 PRIN3 54 TERPRI 47 PRIN1 13 READTABLEPROP) (108 COPYRIGHTSRESERVED 8 COMMONLISP) ( 289 "%")" 222 ", " 197 "-" 152 ("within the meaning of the copyright law, is furnished under license," "and may not be used, copied and/or disclosed except in accordance" "with the terms of said license.") 142 " but has not been published" 135 "The following program was created in " 114 " All rights reserved." 98 "." 81 " by " 60 "Copyright (c) " 41 "(* ; %"" 20 "; ") SAVECOPYRIGHT :D8 (L (0 FILENAME)) 9`gðhð´*@g X´g@gHh h(53 PRINT 28 GETPROP) (42 COPYRIGHT 36 PUTPROPS 23 COPYRIGHT 9 NEVER 4 COPYRIGHTFLG) () PRETTYPRINTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 FILEFLG I 0 SI::*CLEANUP-FORMS* F 7 PRETTYDEFLG F 8 FNS F 9 REPRINTFNS F 10 SI::*RESETFORMS* F 11 PRTTYFILE F 12 NLAMLST F 13 LAMALST F 14 NLAMALST F 15 LAM?LST F 16 SOURCEFILE F 17 PRTTYSPELLFLG F 18 SOURCEFILENV F 19 ADDSPELLFLG) I ghg hhdWcj W hðCW]d–d3˜¿W ]¢WJ²+H nu0ñ²j ¸Mid¿oi ¿M»¿I²IKW h ¿K ¼W²;L dkð™¿KWc¿°'dlð™¿KWc¿°dlð˜¿KWc¿‡¦KWc¿Lµ5W¢KµJ¢±¡W ¢±›K ¢±‘°t ²äK l °] ²ÎW&–K ¿W²?W ²;W$³7Wdgð“¿i°dið§dgð—¿K ˆ¿W”KW¨Kd ‘ˆKLW¿IœIW ¿¿M±þÃW³8K ^²/KNg¿Kdg ’±þèoid¿°#`²L³KlF`W´iM ^µCoK ¿`²gKh`¿IµM±þ9l ^h¿IN¿°ëKð³½MN[ ¿I•IK¿W¢±þ\ic"±þU(562 /RPLACA 540 NLEFT 523 LISPXPUT 496 EXEC-FORMAT 482 MISSPELLED? 449 PRINT 432 GETPROP 419 LOADFNS 404 EDITLOADFNS? 388 TERPRI 381 GETFILEPTR 367 PRETTYPRINT3 356 \PRETTYPRINTBLOCK/PRETTYPRINT1 338 EXPRP 292 ADDSPELL 281 EXPRP 274 PRINTDEF 267 \EVALV1 259 BOUNDP 248 \PRETTYPRINTBLOCK/PRETTYPRINT1 171 ARGTYPE 160 VIRGINFN 153 TCONC 145 GETFILEPTR 132 TERPRI 123 PRIN1 111 PRIN2 101 CLOCK 89 CLOCKDIFFERENCE 74 \EVALV1 52 DISPLAYP 47 OUTPUT 39 CLOCK 20 GETSTREAM 9 DSPFONT) (516 LISPXHISTORY 509 *ERROR* 502 LISPXHISTORY 470 USERWORDS 457 DWIMFLG 427 EXPR 414 PROP 329 EXPRS 313 ALL 15 OUTPUT 4 DSPFONT) ( 490 "(~S not printable)~%%" 441 (not found) 117 ", ") PRETTYPRINT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FNSLST I 1 PRETTYDEFLG I 0 FNS F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 PRETTYPRINTA0001) (8 SI::RESETUNWIND) () \PRETTYPRINTBLOCK/PRETTYPRINT1 :D8 (L (0 FN) P 6 *PRINT-BASE* P 5 *READ-BASE* P 4 *READTABLE* P 3 *PACKAGE* F 7 SOURCEFILE F 8 OLDFILEMAP F 9 SOURCEFILENV F 10 DESTINATIONENV) ûWµW!HÉHÉHÉHÉW¢±¼@ ‘@W’±šhgð²&W gð—W³}ih°uWg °|WJ °rgðJgð¥¿W kÙ¹W ºWI ¿W ¿Jd@ð²¿@IW @IW Wc¿W Zdgð²’¿W Zgð¦Jµ‚±ÿFhWch(226 RATOM 208 RATOM 193 GETFILEPTR 183 \PRETTYPRINTBLOCK/PRETTYPRINT2 178 GETFILEPTR 161 SKREAD 153 SETFILEPTR 144 RATOM 134 GETFILEPTR 126 SCANFILEHELP 104 SKREAD 94 SKREAD 67 RATOM 40 \PRETTYPRINTBLOCK/PRETTYPRINT2) (232 STOP 215 %) 119 %[ 111 %( 89 %( 72 DEFINEQ 57 %( 10 READER-ENVIRONMENT) () \PRETTYPRINTBLOCK/PRETTYPRINT2 :D8 (L (2 TO 1 FROM 0 FN) P 7 *PRINT-BASE* P 6 *READ-BASE* P 5 *READTABLE* P 4 *PACKAGE* F 8 SOURCEFILE F 9 OLDFILEMAP F 10 DESTINATIONENV F 11 SOURCEFILENV F 12 PRTTYFILE) ±@A³WYµZh´‚±ŸHb¿Hb¿WA W @W Xð³@Hi ¿oWi¿W³4WWAB¿°LZµh°@ð‘J‰Jœ@JX•J³”i°‹I°‚W ¸W[ÉKÉKÉKÉ@Hi@(173 PRETTYPRINT3 142 READ 96 COPYCHARS 80 ERROR 66 LISPXPRINT 53 READ 45 RATOM 38 SETFILEPTR) (150 READER-ENVIRONMENT) ( 72 "filemap does not agree with contents of") PRETTYDEFA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SOURCEFILE F 3 SI::NLSETQ-VALUE) i@Rg chcg(15 OPENSTREAM) (26 :NORMAL 10 INPUT) () PRETTYDEFA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 39 *PRINT-BASE* P 38 *READ-BASE* P 37 *READTABLE* P 36 *PACKAGE* P 35 *CONDITION-HANDLER-BINDINGS* P 34 SI::*NLSETQFLAG* P 33 *PROCEED-CASES* P 32 SI::NLSETQ-VALUE P 24 DEFAULTDESTENV P 23 FCLOCATION P 22 SOURCEFC P 21 SOURCEFILENV P 20 DESTINATIONENV P 19 ROOTNAME P 18 ORIGFLG P 17 FILEDATES P 16 LAM?LST P 15 LAMALST P 14 NLAMLST P 13 NLAMALST P 12 MAPADR P 11 OLDFILEMAP P 10 PRTTYSPELLFLG P 9 PRETTYCOMSLST P 8 PRTTYTEM P 7 FNSLST P 6 FILEFLG P 5 *PRINT-LENGTH* P 4 *PRINT-LEVEL* P 3 XCL:*PRINT-STRUCTURE* P 2 *PRINT-ARRAY* P 1 %#RPARS P 0 NEWFILEMAP I 0 SI::*CLEANUP-FORMS* F 43 PRTTYFILE F 44 SOURCEFILE F 45 SI::*RESETFORMS* F 46 CHANGES F 47 PRTTYCOMS F 48 REPRINTFNS F 49 PRTTYFNS F 50 FORMAT F 51 BUILDMAPFLG F 52 %#RPARS F 53 *PROCEED-CASES* F 54 *CONDITION-HANDLER-BINDINGS* F 55 *OLD-INTERLISP-READ-ENVIRONMENT* F 56 FONTCHANGEFLG) x+ohWZcZWf´hdWhidôÐWV–WVdiðš¿WV ¿WV _&WXið¥W`—WX¤O&cXO&ÁÉg'_(œhO( _(¿°3WXµO&WXhðµWXO&ð _4_*¿O4_2_¿O2_,¿WX¢± `WjioWl#OB gð´O@³$hcX¿WVi ¿oi ¿i ±ÑWX ´‚±ÂgWXhhdWZcZ¿gWX hhWZcZ¿W`dgð“¿i°'gð²"W\ O&g c`¿O*³$WX _8_*¿O8_6_¿O6_,¿WXO*É ¿OµWXO,µj °²O›WXO ‡cX¿O(³=O*µ`´/h` °"Wn ›h` ‹`O* _(¿Wd–O(Wd¿WX¨h__,_*¿‡O*µ‚±gWVg cVhhdWZcZWVO(É gWV hhWZcZO( WV _.O(_>ÉO>ÉO>ÉO>É'l[g ¡h¹WVW\ _"¿`gðªO&—O& ¿i¾W\ c\¿WV ¡h¸Wp²%O&g !*OPµfORµ O& _¿Wbd© ²Wbi ¿Wbi ¿W^dd3@ð´ W^ _²ZW^i ¿O°JO( ¢±þÜh_*¿±þÕ_Tg ²OROT _R¿OP_P±ÿtd_:hO:¿µñ«O˜W^i ¿`gð§O& ¿H¢±¡o ¿g ¿k ¿g ¿¿l ¿O°.d_<¿WV _¿WVO< ¿O ¿WVO ¿µÓgHh ¿o ¿¿WV HhO(hO. ¿WV ¿O"“O&µWV gO"¿°ê(1139 /PUTPROP 1126 FULLNAME 1110 ENDFILE 1102 PUTFILEMAP 1089 FULLNAME 1081 TERPRI 1075 PRIN1 1064 PRIN2 1045 SETFILEPTR 1035 PRIN2 1027 SETFILEPTR 1015 GETFILEPTR 998 SPACES 990 TERPRI 984 PRIN2 973 SPACES 966 PRIN2 955 PRIN1 939 SAVECOPYRIGHT 919 PRETTYCOM 907 PRETTYDEF1 897 PRETTYCOM 874 \NCONC2 869 FILEFNSLST 858 GETPROP 834 EQUAL-READER-ENVIRONMENT 822 PRETTYCOM 809 GETTOPVAL 790 PRETTYCOM 781 PRINTFNS 770 GETTOPVAL 757 FILEFNSLST 737 GETPROP 718 RANDACCESSP 708 FILEPKG.CHANGEDFNS 698 PRINTCOPYRIGHT 673 PRINTDATE 661 SYNTAXP 621 GETFILEPTR 614 PRINT-READER-ENVIRONMENT 597 OUTPUT 585 \EXTERNALFORMAT 560 OPENSTREAM 510 NCREATE2 497 \DO-DEFINE-FILE-INFO 485 EQUAL-READER-ENVIRONMENT 476 \DO-DEFINE-FILE-INFO 446 HELP 440 SETFILEPTR 419 SETFILEPTR 402 \EXTERNALFORMAT 369 \MVLIST 364 GET-ENVIRONMENT-AND-FILEMAP 350 UNION 345 FILEPKG.CHANGEDFNS 340 GETPROP 328 FILEPKG.CHANGEDFNS 288 INPUT 250 RANDACCESSP 240 TERPRI 233 PRIN1 221 PRIN1 195 PRETTYDEFA0001A0002 137 \MVLIST 132 LOOKUP-ENVIRONMENT-AND-FILEMAP 105 \DO-DEFINE-FILE-INFO 64 ROOTFILENAME 56 \ILLEGAL.ARG 9 RESETUNDO) (1132 FILEDATES 1055 FILEMAP 979 DONTCOPY 961 DECLARE%: 930 NEVER 925 COPYRIGHTFLG 853 FILE 732 FILEGROUP 686 NEVER 681 COPYRIGHTFLG 656 LEFTBRACKET 630 READER-ENVIRONMENT 590 OUTPUT 555 OUTPUT 548 PRETTYDEF0 503 |READER-ENVIRONMENTTYPE#| 492 *NEW-INTERLISP-MAKEFILE-ENVIRONMENT* 471 *DEFAULT-MAKEFILE-ENVIRONMENT* 463 *DEFAULT-MAKEFILE-ENVIRONMENT* 335 FILECHANGES 318 CHANGES 307 EXPRS 281 INPUT 261 CLOSEF 201 :NORMAL 173 SI::NLSETQ-PROCEED-CASE 93 MAKEFILE-ENVIRONMENT 41 LITATOM) ( 1070 ")" 950 "(" 227 " not found, so it will be written anew." 182 (CL:ERROR . SI::NLSETQHANDLER) 4 (AND RESETSTATE (RESETUNDO OLDVALUE))) PRETTYDEF :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 6 FORMAT I 5 CHANGES I 4 SOURCEFILE I 3 REPRINTFNS I 2 PRTTYCOMS I 1 PRTTYFILE I 0 PRTTYFNS F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 PRETTYDEFA0001) (8 SI::RESETUNWIND) () PRETTYDEFCOMS :D8 (P 9 L P 8 SOURCEFILE P 7 ORIGFLG P 6 PRTTYSPELLFLG P 5 BUILDMAPFLG P 4 *PRINT-LENGTH* P 3 *PRINT-LEVEL* P 2 XCL:*PRINT-STRUCTURE* P 1 *PRINT-ARRAY* P 0 %#RPARS I 1 FNSLST I 0 PRTTYCOMS F 10 %#RPARS) A Widcl[g ¡h¸@d³"d3@ð´@ °d OhOµîh(56 PRETTYCOM 38 GETTOPVAL 18 SYNTAXP) (13 LEFTBRACKET) () PRETTYDEF0 :D8 (I 0 MADEFILE) @g ´ @ (23 DELFILE 18 CLOSEF 10 OPENP) (5 OUTPUT) () PRETTYDEF1 :D8 (P 2 PRTTYNEW P 1 PRTTYTEM P 0 PRTTYCOM F 4 PRETTYCOMSLST F 5 NLAMALST F 6 NLAMLST F 7 LAM?LST F 8 LAMALST F 9 PRTTYCOMS) ç@T°)d[gð²gKX Yd™Ygð¤µØh³:U¦V¤W¡hoUVWho¸T¢±‡W’±€TH ¿°lIggUWI gVWI gWWI hZô’±ÿtIJ ¿W¨Wi ¿H i(227 PRETTYCOM 220 PRETTYCOM 207 /RPLACA 188 UNION 183 INTERSECTION 161 UNION 156 INTERSECTION 136 UNION 131 INTERSECTION 103 /NCONC1 82 SUBPAIR 29 MEMB) (167 LAMA 142 NLAML 118 NLAMA 113 ADDVARS 41 ADDVARS 22 COMPILERVARS 14 DECLARE%:) ( 77 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA . NLAMALST) (NLAML . NLAMLST) (LAMA . LAMALST))) 64 (NLAMALST NLAMLST LAMALST)) PRINTDATE :D8 (P 3 FILEDATES P 2 PREVPAIR P 1 ROOTNAME P 0 DAT I 1 CHANGES I 0 OUTSTREAM F 4 FILEPKGFLG) `@ "T²?I²!IgAIg b¿H@ Ig Z»@AHJJ K(92 PRINTDATE1 74 LAST 69 GETPROP 57 FULLNAME 49 /PUTPROP 42 FILEPKG.MERGECHANGES 37 GETPROP 10 ROOTFILENAME 4 DATE) (64 FILEDATES 32 FILECHANGES 25 FILECHANGES) () PRINTDATE1 :D8 (I 5 TERMINATING.STRING I 4 PREVERS I 3 PREVDATE I 2 DAT I 1 CHANGES I 0 OUTSTREAM F 0 MAPADR F 1 LAMBDAFONT F 2 BUILDMAPFLG F 3 FILEPKGFLG) ^`@ ¿o@ ¿g@ ¿k@ ¿B@ ¿k@ ¿Q@ ¿@ @ ¿`@ R²#@ ³@ kØPc¿o@ ¿S¢±Ì`²:@ ¿@ ¿lh@¿g@ ¿k@ ¿`@ ¿A²@@ ¿@ ¿lh@¿g@ ¿k@ ¿A@ hih@ ¿C²H@ ¿@ ¿lh@¿g@ ¿k@ ¿C@ ¿DŸk@ ¿D@ ¿Eµo@ (347 PRIN1 332 PRIN2 324 SPACES 314 PRIN2 306 SPACES 298 PRIN2 286 TAB 276 TERPRI 269 TERPRI 259 PRINTDEF 249 POSITION 241 SPACES 233 PRIN2 221 TAB 211 TERPRI 204 TERPRI 194 PRIN2 182 SPACES 174 PRIN2 162 TAB 152 TERPRI 145 TERPRI 126 PRIN3 108 GETFILEPTR 100 DISPLAYP 91 CHANGEFONT 79 PRIN2 73 FULLNAME 66 CHANGEFONT 58 SPACES 50 PRIN2 42 SPACES 34 PRIN2 22 PRIN1 10 CHANGEFONT) (292 :PREVIOUS-DATE 227 :CHANGES-TO 188 INITIALS 168 :EDIT-BY 137 INITIALS 85 DEFAULTFONT 28 FILECREATED 4 DEFAULTFONT) ( 341 ") " 120 " " 16 "(") PRINTFNS :D8 (P 0 FNADRLST I 1 PRETTYDEFLG I 0 X F 1 NEWFILEMAP F 2 PRTTYFILE F 3 FNSLST) l@´iA²$Q²!hR Xh ¿QHh ¿g g @A´HµiSg HšHR ¿h(104 TERPRI 97 GETFILEPTR 86 PRIN1 76 PRETTYPRINT 62 PRINT 52 PRIN1 41 \NCONC2 30 TCONC 23 TCONC 18 GETFILEPTR) (81 %) 57 DEFINEQ 47 %() () PRETTYCOM :D8 (P 19 PRTTYSPELLFLG P 18 ORIGFLG P 17 X P 15 ATM P 14 X P 11 ATM P 10 PRTTYX P 9 PRTTYTEM P 8 PRTTYFLG P 7 LST P 5 X P 0 PRTTYTEM I 2 PRETTYCOMSTAIL I 1 PRTTYFLG I 0 PRTTYCOM F 20 PRTTYSPELLFLG F 21 FONTCHANGEFLG F 22 PRTTYFILE F 23 PRETTYPRINTMACROS F 24 ORIGFLG F 25 FILEFLG F 26 LAMBDAFONT) ¿P@¡hA²2W,ið³,`˜g@h°gg@hidh ¿@d3@ð²