(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "10-May-2023 09:12:17" ("compiled on " {DSK}larry>il>medley>lispusers>PRETTYFILEINDEX.;12) " 6-May-2023 06:47:38" brecompiled changes%: PFI.PRINT.FILECREATED in "Welcome to Fuller sysout 6-May-2023 ..." dated " 6-May-2023 06:52:52") (FILECREATED "10-May-2023 09:12:17" {DSK}larry>il>medley>lispusers>PRETTYFILEINDEX.;12 101009 :EDIT-BY "lmm" :CHANGES-TO (FNS PFI.PRINT.FILECREATED) :PREVIOUS-DATE " 3-Jul-2022 15:28:08" {DSK}larry>il>medley>lispusers>PRETTYFILEINDEX.;11) PFI.NEW.LISTFILES1 :D8 (L (1 PRINTOPTIONS 0 FILENAME) P 0 *UPPER-CASE-FILE-NAMES* F 2 *PFI-DONT-SPAWN*) ; @i Ygg@ RIA gIAh I(55 PFI.ENQUEUE 38 MAYBE.PRETTYFILEINDEX 28 CL:ERROR 9 FINDFILE) (44 MAYBE.PRETTYFILEINDEX 22 :PATHNAME 17 XCL:FILE-NOT-FOUND) () PFI.ENQUEUEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FORM) n`hg `B`Ph `=ghgggo  hh(91 FIND.PROCESS 80 ADD.PROCESS 35 \NCONC2 15 OBTAIN.MONITORLOCK) (104 \PFI.PROCESS 99 \PFI.PROCESS.COMMANDS 85 \PFI.PROCESS 69 NAME 64 DON'T 59 BEFOREEXIT 52 \PFI.DO.HARDCOPY 45 \PFI.PROCESS 40 \PFI.PROCESS.COMMANDS 27 \PFI.PROCESS.COMMANDS 20 \PFI.PROCESS 10 WITH.MONITOR 4 \PFI.PROCESSLOCK) ( 74 "Do-Hardcopy") PFI.ENQUEUE :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 0 FORM)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 PFI.ENQUEUEA0001) (7 SI::MONITOR-UNWIND) () \PFI.DO.HARDCOPYA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) Q`hg `d`` HH ` (76 OBTAIN.MONITORLOCK 65 APPLY 55 RELEASE.MONITORLOCK 15 OBTAIN.MONITORLOCK) (71 \PFI.PROCESSLOCK 50 \PFI.PROCESSLOCK 43 \PFI.PROCESS.COMMANDS 37 \PFI.PROCESS.COMMANDS 30 \PFI.PROCESS 23 \PFI.PROCESS.COMMANDS 10 WITH.MONITOR 4 \PFI.PROCESSLOCK) () \PFI.DO.HARDCOPY :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR*)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 \PFI.DO.HARDCOPYA0001) (7 SI::MONITOR-UNWIND) () MAYBE.PRETTYFILEINDEX :D8 (L (1 PRINTOPTIONS 0 FILENAME)) ,@dA iA @ ` h(35 REMOVE 25 ROOTFILENAME 17 PFI.ORIGINAL.LISTFILES1 7 PRETTYFILEINDEX) (40 NOTLISTEDFILES 30 NOTLISTEDFILES) () PRETTYFILEINDEXA0001A0002 :D8 (L (1 NOPRINT 0 STREAM)) :A1@ @h @ @ @ @ @ (55 CLOSEF? 48 \CORE.DELETEFILE 35 FULLNAME 29 \GENERIC-UNREGISTER-STREAM 15 \SETACCESS 8 \CORE.CLOSEFILE) (41 STREAM 21 STREAM) () PRETTYFILEINDEXA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 37 *PRINT-BASE* P 36 *READ-BASE* P 35 *READTABLE* P 34 *PACKAGE* P 21 *PFI-PENDING-COMMENTS* P 20 *PFI-BITMAP-BASELINE* P 19 *PFI-FUNNY-CHARS* P 18 *PFI-LOCATIONS* P 17 *PFI-FNSLST* P 16 *PFI-FILEVARS* P 15 *PFI-ITEM* P 14 *PFI-TITLE* P 13 *PFI-PAGE-COUNT* P 12 *UPPER-CASE-FILE-NAMES* P 11 *PRINT-LENGTH* P 10 *PRINT-LEVEL* P 9 *PFI-MAX-WASTED-LINES* P 8 *PFI-TYPES* P 7 *PFI-TWO-SIDED* P 6 *PFI-PAGE-PREFIX* P 5 *PRINT-PRETTY-BITMAPS* P 4 PRETTYFLG P 3 XCL:*PRINT-STRUCTURE* P 2 *PRINT-ARRAY* P 1 *STANDARD-INPUT* P 0 *STANDARD-OUTPUT* I 0 SI::*CLEANUP-FORMS* F 38 FILENAME F 39 PRINTOPTIONS F 40 OUTSTREAM F 41 SI::*RESETFORMS* F 42 DONTINDEX F 43 *STANDARD-OUTPUT* F 44 *STANDARD-INPUT* F 45 *PFI-TYPES* F 46 EMPRESS#SIDES F 47 *PFI-MAX-WASTED-LINES*) & WVWXiddgoWNg'W\lWZW^!WLWLg _0Y,gWLggo YhhdWRcRI cLWNg';`_.WT`oWL WPWL_WPg Igi _>_.O>_,d+dg$O0O,idhdWP IWP WL{O0O.WP O._@O@O@O@%O,WP IWP WLWNg'_gWL_WNcNWN gHWNg'hhdWRcRglXH H hhWRcRH WTj_h_g_$kHgg WL gh_ O3 Ol _Og`hO  _Ig _4WNg'kOkj_:_WNg'_8NO8o O._BOBOBOB%O,SWT O0I WNg'_2O_h@HgIhdVc HdWvo`g%o#HMZKKJKMiLo WcgIY Hdg'HgI Hg O(207 PFI.ADD.TO.INDEX 195 PUT 149 CL:INTERN 144 CL:FIND-PACKAGE 39 PFI.PRETTYPRINT 5 PFI.MAYBE.NEW.PAGE) (202 DEFINERS 187 :DEFINITION-PRINT-TEMPLATE 177 :DEFINITION-PRINT-TEMPLATE 161 :TEMPLATE 96 :LYRIC 91 MAKESYSNAME 59 :NAME) ( 139 "XCL" 104 "IL" 86 "PPRINT-DEFINER") PFI.HANDLE.DEFINEQ :D8 (L (0 EXPR)) 5o @ @d o (50 TERPRI 45 PRIN1 30 PFI.PRINT.LAMBDA 21 PRINT 14 PRIN1 4 TERPRI) NIL ( 40 ")" 9 "(") PFI.PRINT.LAMBDA :D8 (L (0 DEF) P 0 *PFI-ITEM* F 1 *PFI-FNSLST*) 4h@l @Hg @Q (49 TERPRI 44 TERPRI 38 PFI.PRINT.LAMBDA.BODY 30 PFI.ADD.TO.INDEX 14 PFI.MAYBE.NEW.PAGE 9 PFI.ESTIMATE.SIZE1) (25 FUNCTIONS) () PFI.PRINT.LAMBDA.BODY :D8 (L (1 FNSLST 0 DEF) F 0 LAMBDAFONT F 1 BOLDFONT F 2 DEFAULTFONT) Ho PQ @ R l @igiA o (69 PRIN1 59 PRINTDEF 43 SPACES 36 TERPRI 31 CHANGEFONT 25 PRIN2 18 CHANGEFONT 9 PRIN1) (51 FNS) ( 64 ")" 4 "(") PFI.HANDLE.PUTDEF :D8 (L (0 EXPR)) K@ @!HH@I0Ig&J"JgJZd3@IYJ I (72 PFI.PRETTYPRINT 65 PFI.ADD.TO.INDEX 5 PFI.MAYBE.NEW.PAGE) (42 QUOTE 28 QUOTE) () PFI.HANDLE.PUTPROPS :D8 (L (0 EXPR) F 4 *PFI-PROPERTIES*) V@ @@"@Hd3@*I` gT[gZ HJ H dIK(68 PFI.PRETTYPRINT 61 PFI.ADD.TO.INDEX 34 MEMB 5 PFI.MAYBE.NEW.PAGE) (51 PROPERTY 40 MACRO 29 MACROPROPS) () PFI.HANDLE./DECLAREDATATYPE :D8 (L (0 EXPR)) D@l @d,@b@b@bggoh@hi (65 PFI.PRETTYPRINT 7 PFI.MAYBE.NEW.PAGE) (43 ;; 38 *) ( 48 "---field descriptor list elided by lister---") PFI.HANDLE.* :D8 (L (0 EXPR) F 2 *PFI-PENDING-COMMENTS* F 3 *STANDARD-OUTPUT* F 4 COMMENTFLG) @ H@@S o HlHklԹHdkgg@6:@5@dd gg@hTgd@bR I@hcdIR@h (161 \NCONC2 99 STRINGP 45 CL:CEILING 33 DSPLEFTMARGIN 28 DSPRIGHTMARGIN 23 STRINGWIDTH 5 SEMI-COLON-COMMENT-P) (128 * 112 ;; 107 * 74 ;; 69 *) ( 39 0.9) PFI.PRINT.COMMENTS :D8 (L (0 EXPR) F 4 *PFI-PENDING-COMMENTS* F 5 *STANDARD-OUTPUT* F 6 *PFI-MAX-WASTED-LINES*) `T1HHU #[IVKK@ IJdid hc(85 TERPRI 78 DSPLEFTMARGIN 73 DSPXPOSITION 67 PRINTDEF 54 DSPNEWPAGE 44 PFI.ESTIMATE.SIZE 27 PFI.LINES.REMAINING 20 IMAGESTREAMP 4 TERPRI) NIL () PFI.HANDLE.FILEMAP :D8 (L (0 EXPR)) ggohhi (25 PFI.PRETTYPRINT) (9 ;; 4 *) ( 14 "---Filemap elided by lister---") PFI.HANDLE.PACKAGE :D8 (L (0 EXPR)) @ @hi (18 PFI.PRETTYPRINT 10 TERPRI 5 CL:EVAL) NIL () PFI.PREVIEW.DECLARE :D8 (L (0 FN)) lo @  l)o hYHhXk I HiI (103 PFI.HANDLE.EXPR 94 TERPRI 84 PRIN2 77 SPACES 62 READ 55 TERPRI 49 PRIN1 38 READCCODE 28 SKIPSEPRCODES 20 PRIN2 14 PRIN1 4 TERPRI) NIL ( 44 ")" 9 "(") PFI.PREVIEW.DEFINEQ :D8 (L (0 FN)) Bo @ l)o  (61 PFI.PRINT.LAMBDA 56 READ 50 TERPRI 45 PRIN1 35 READCCODE 25 SKIPSEPRCODES 20 PRINT 14 PRIN1 4 TERPRI) NIL ( 40 ")" 9 "(") PFI.PRINT.INDEX :D8 (L (0 CRDATE) P 4 *PFI-TITLE* P 1 *PFI-ITEM* F 5 *PFI-PAGE-COUNT* F 6 *PFI-TWO-SIDED* F 7 *PFI-TITLE* F 8 *PFI-LOCATIONS*) fUg"VHkjW@hi oo WH Kh J K(98 PFI.PRINT.INDICES 92 \APPEND2 83 PFI.CONDENSE.INDEX 75 PFI.LINES.REMAINING 70 PFI.CENTER.PRINT 65 CONCAT 55 DATE 44 PFI.CENTER.PRINT 30 DSPNEWPAGE 16 DSPNEWPAGE) (5 :INDEX) ( 60 " --" 50 "-- Listed on ") PFI.CONDENSE.INDEXA0001 :D8 (L (1 Y 0 X)) @A` (13 ALPHORDER) (8 UPPERCASEARRAY) () PFI.CONDENSE.INDEX :D8 (L (1 LASTPAGE 0 TRIPLES) P 0 *PFI-INDEX-ALIST* F 21 *PFI-FILTERS*) Bp@#d[HYKhYHKIZ.IKIH! O*HA OO KJ _W*1O O_+:dO_OOh__O_O&_OdAO O"O__(Oh]hO(_&O$3O&h_$_"O _ ^ O(N O(kLNiMO&&_$_d*ddg OA _OOh__O_O&_(286 PFI.COMPUTE.INDEX.SHAPE 277 SORT 230 PFI.LOOKUP.NAME 88 SORT 83 UNION 72 PFI.SORT.INDICES) (272 PFI.CONDENSE.INDEXA0001) () PFI.SORT.INDICESA0001 :D8 (L (1 Y 0 X)) @ANIL NIL () PFI.SORT.INDICESA0002 :D8 (L (1 Y 0 X)) &@Adjij@ A (34 LENGTH 26 LENGTH) NIL () PFI.SORT.INDICES :D8 (L (0 INDICES) F 5 *PFI-INDEX-ORDER*) @d{AHIHT0Hg 3\U LJ KhZHXK&dJIh[I&K@H bHih@g (125 \NCONC2 120 \NCONC2 115 SORT 97 CL:SET-DIFFERENCE 44 CL:POSITION 33 SORT) (110 PFI.SORT.INDICESA0002 28 PFI.SORT.INDICESA0001) () PFI.COMPUTE.INDEX.SHAPE :D8 (L (1 MAXINDEXNO 0 INDEXPAIRS)) Al AkldAlA @ r@1 O.Ok\ILl_OdNN_kOk_i OdM0OdoMh_O%O__O  Oh! _O O H_OOOO_O_KO[IK ZdIJ Lh(241 CL:CEILING 232 CL:CEILING 194 NCHARS 184 STRINGP 170 LAST 157 NCHARS 150 CONCATLIST 95 NCHARS 53 LINELENGTH 29 LENGTH 23 NCHARS) NIL ( 118 ",") PFI.PRINT.INDICES :D8 (L (1 LINESPERPAGE 0 INDICES) F 34 *STANDARD-OUTPUT* F 35 DEFAULTFONT) '"AllXWD l@hM@@b\diYi]@h__(h\-O:_0AkջO0 O(k_8_BO(k_$_"O$O"O0OB _:OBO,_BO$k_$_ _O _O k O&Oi kO djWD(_WDl.lOkٰO O$O(OoWJ O4NWJ lԱ"_>_BO_HOBOB_BWJ __OOOIOBOB_BWJ __OOOOBOB_BK=OB_DLaODkL\ODM>ODkM]JOh_ _ O:_:OWN O_*o _"O&O(O2O"WJ l O" O&\O4j O> O$3O4j O> WR O:_:OWJ d_8dO8N KL M sKKYKg'\d \L \oK Kg']d ] M ]oK LM$O O (998 PFI.PRINT.INDICES 991 PFI.SORT.INDICES 978 CL:ERROR 965 FIND-READTABLE 957 READTABLEP 951 EVAL 934 CL:ERROR 921 CL:FIND-PACKAGE 907 EVAL 863 PFI.CHOOSE.BEST 856 PFI.CHOOSE.BEST 840 PFI.COMPUTE.INDEX.SHAPE 823 DSPXPOSITION 816 DSPXPOSITION 810 STRINGWIDTH 782 TERPRI 776 CHANGEFONT 768 PRIN3 758 RELMOVETO 745 PRIN3 736 RELMOVETO 723 PRIN3 715 DSPXPOSITION 705 STRINGWIDTH 685 CONCAT 657 DSPXPOSITION 651 STRINGWIDTH 622 PRIN3 608 CONCAT 595 CHANGEFONT 569 REVERSE 501 DSPRIGHTMARGIN 478 STRINGWIDTH 454 PFI.MERGE.INDICES 415 CONCAT 338 CONCAT 237 STRINGWIDTH 205 STRINGWIDTH 168 STRINGWIDTH 158 STRINGWIDTH 135 DSPSCALE 127 DSPLEFTMARGIN 111 CHANGEFONT 104 TERPRI 99 PFI.CENTER.PRINT 94 CONCAT 89 DATE 72 PFI.LINES.REMAINING 66 DSPNEWPAGE 50 DSPNEWPAGE 34 STREAMPROP) (941 :READTABLE 913 PACKAGE 897 :PACKAGE 887 READER-ENVIRONMENT 878 READER-ENVIRONMENT 870 READER-ENVIRONMENT 316 READER-ENVIRONMENT 303 READER-ENVIRONMENT 288 READER-ENVIRONMENT 275 READER-ENVIRONMENT 40 MULTIFILEINDEX 28 AFTERNEWPAGEFN 14 :ENVIRONMENT 7 :CONSECUTIVE) ( 972 "No valid read table in environment ~S" 928 "No valid package in environment ~S" 679 "]" 667 "-" 631 "[" 603 "." 471 "99." 333 "-" 151 "[-]" 84 (DATEFORMAT NO.SECONDS) 79 "Master index generated on ") PFI.CHOOSE.BEST :D8 (L (0 LST)) @ggg (20 CL:STABLE-SORT) (15 CDR 10 :KEY 5 >) () PFI.MERGE.INDICES :D8 (L (1 NEWINDEX 0 MASTER)) y0A@HA@ A` dg(@@oAAb @@bg@@bAAbI JhYJ&(70 CONCAT 34 ALPHORDER 18 \NCONC2) (86 LESSP 40 EQUAL 29 UPPERCASEARRAY) ( 56 ",") PFI.MAYBE.SEE.PRETTYA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 *UPPER-CASE-FILE-NAMES* I 0 SI::*CLEANUP-FORMS* F 3 FROMFILE F 4 TOFILE F 5 SI::*RESETFORMS* F 6 *PRINT-PRETTY-FROM-FILES*) k0VT YS ST ST S Z&gSgho ZhhdUc JhIi JI J (104 FULLNAME 98 PFCOPYBYTES 89 PRETTYFILEINDEX 67 OPENSTREAM 42 STREAMP 35 COPYALLBYTES 27 PFCOPYBYTES 19 STREAMP 10 IMAGESTREAMP) (56 INPUT 50 CLOSEF) ( 62 ((SEQUENTIAL T))) PFI.MAYBE.SEE.PRETTY :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 PFI.MAYBE.SEE.PRETTYA0001) (8 SI::RESETUNWIND) () PFI.MAYBE.PP.DEFINITIONA0001 :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 INSTREAM F 6 A0195) i@STU c g(22 \MVLIST 17 READ) (29 :NORMAL) () PFI.MAYBE.PP.DEFINITION :D8 (L (3 END 2 START 1 OUTSTREAM) P 13 *STANDARD-OUTPUT* P 12 A0195 P 11 SI::CONDITION-CASE-LITERALS P 10 *PRINT-BASE* P 9 *READ-BASE* P 8 *READTABLE* P 7 *PACKAGE* I 0 INSTREAM F 14 *PRINT-PRETTY-FROM-FILES*) pWA @ XH^NNN @B o O ZdgO$dJhI$O  ]MAg  KioK iL h @ABC (187 PFCOPYBYTES 172 TERPRI 166 PFI.PRINT.LAMBDA.BODY 157 CL:FORMAT 140 GETSTREAM 122 \MVLIST 116 SI::CONDITION-CASE-ERROR 74 PFI.MAYBE.PP.DEFINITIONA0001 57 SETFILEPTR 24 GET-ENVIRONMENT-AND-FILEMAP 14 IMAGESTREAMP) (135 OUTPUT 97 CL:ERROR 81 :NORMAL 35 READER-ENVIRONMENT) ( 151 "[Failed to read because: ~A]" 63 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR))) PFI.PRINT.BITMAP :D8 (L (1 STREAM 0 BM) F 18 *PFI-BITMAP-BASELINE* F 19 *PRINT-PRETTY-BITMAPS* F 20 *PRINT-ARRAY* F 21 *PFI-FUNNY-CHARS*) qW(W&@A A hA hA hA hA HIJK@A J@ \J@ ]hA _A ohA hA MoOhA hA OLon__OdOO_EOdooooOdoo_L OM HhA M^A NjNjhA LA_jOjO_O#IdOO9A hA hc$"LjK[__ k_"O whA OKԹIO_@jdAHOMLgghdO HMIOLW&gBW*>W$W$O$Oc$A(gAg(IA O"kԱyOA iW&gA g !H @A gi Y hI @ lXI ZjAlX Jkٰ(617 \OUTCHAR 604 CL:CEILING 599 CHARWIDTH 590 BITMAPWIDTH 584 DSPSCALE 575 IMAGESTREAMP 569 STKEVAL 557 NON.PFI.PRINT.BITMAP 544 STKPOS 532 PNAMESTREAMP 514 MOVETO 498 TERPRI 423 SCALEDBITBLT 382 DSPYPOSITION 349 DSPYPOSITION 341 DSPNEWPAGE 294 DSPYPOSITION 278 TERPRI 266 DSPRIGHTMARGIN 257 FIXR 247 FIXR 155 DSPTOPMARGIN 146 DSPTOPMARGIN 126 DSPLEFTMARGIN 119 DSPRIGHTMARGIN 103 DISPLAYSTREAMP 95 DSPBOTTOMMARGIN 86 BITMAPWIDTH 77 BITMAPHEIGHT 69 NON.PFI.PRINT.BITMAP 51 DSPLINEFEED 44 DSPSCALE 37 DSPYPOSITION 30 DSPXPOSITION 19 IMAGESTREAMP 12 NON.PFI.PRINT.BITMAP) (563 *STANDARD-OUTPUT* 539 STRINGWIDTH 523 PRETTYFILEINDEX 487 PFI.OUTCHARFN 482 STREAM 474 PFI.OUTCHARFN 467 STREAM 439 PRETTYFILEINDEX 413 REPLACE 408 INPUT 302 FONTDESCRIPTOR) ( 238 0.25 230 0.25 221 0.5 214 0.5 207 0.75 199 0.75 164 1.5 133 1.5 112 1.0) PUTPROPS.PRETTYPRINT :D8 (L (0 EXPR) F 2 FNSLST F 3 *STANDARD-OUTPUT*) @@  g @@b k @@b @@dk @ihi Y@H @ddihi @bY k @@biI` hR k @@bY @@ihdS H k @iI` iR g h(275 PRIN1 264 PRINTDEF 256 MEMB 242 SPACES 235 DSPXPOSITION 228 TERPRI 222 FITP 205 MAYBE.PRETTYPRINT.BOLD 191 SPACES 182 PRINTDEF 174 MEMB 154 SPACES 147 MAYBE.PRETTYPRINT.BOLD 132 PRINTDEF 115 DSPXPOSITION 108 TERPRI 91 PRINTDEF 81 SPACES 64 MAYBE.PRETTYPRINT.BOLD 49 DSPXPOSITION 43 SPACES 36 PRIN2 23 PRIN1 9 PRIN2) (270 %) 251 MACROPROPS 169 MACROPROPS 18 %() () RPAQX.PRETTYPRINT :D8 (L (0 EXPR) F 5 *STANDARD-OUTPUT*) @dAHHHg L k K J%J lJihdU I k Jihi g h(124 PRIN1 113 PRINTDEF 103 SPACES 96 DSPXPOSITION 89 TERPRI 83 FITP 68 COUNT 56 MAYBE.PRETTYPRINT.BOLD 49 DSPXPOSITION 43 SPACES 36 PRIN2 29 PRIN1) (119 %) 24 %() () COURIERPROGRAM.PRETTYPRINT :D8 (L (0 EXPR) F 2 SPACEWIDTH) @@lRHlRԹo @@b k @@b k @@b @1H @@b I @d@bi @o hidd (166 PRINTDEF 156 PRIN1 140 PRINTDEF 122 PRINENDLINE 115 MAYBE.PRETTYPRINT.BOLD 102 PRINENDLINE 92 PRIN2 79 SPACES 72 MAYBE.PRETTYPRINT.BOLD 59 SPACES 52 PRIN2 39 PRIN1 14 DSPXPOSITION) NIL ( 151 ")" 34 "(") MAYBE.PRETTYPRINT.BOLD :D8 (L (0 VAR) F 0 FONTCHANGEFLG F 1 PRETTYCOMFONT F 2 DEFAULTFONT) PQ @  @ R (28 CHANGEFONT 22 PRIN2 16 CHANGEFONT 10 PRIN2) NIL () (PRETTYCOMPRINT PRETTYFILEINDEXCOMS) (RPAQQ PRETTYFILEINDEXCOMS ((COMS (* ;; "Variation on SINGLEFILEINDEX that prettyprints straight to the image stream.") (FNS PFI.NEW.LISTFILES1 PFI.ENQUEUE \PFI.DO.HARDCOPY MAYBE.PRETTYFILEINDEX) (FNS PRETTYFILEINDEX PFI.MAKE.LPT.STREAM PFI.SETUP.TRANSLATIONS PFI.OUTCHARFN PFI.COLLECT.DEFINERS PFI.AFTER.NEW.PAGE) (FNS PFI.PRINT.FILECREATED PFI.PRINT.TO.TAB PFI.PRINT.ENVIRONMENT) (FNS PFI.PROCESS.FILE PFI.PASS.COMMENT PFI.HANDLE.EXPR PFI.DEFAULT.HANDLER PFI.PRETTYPRINT PFI.LINES.REMAINING PFI.MAYBE.NEW.PAGE PFI.ESTIMATE.SIZE PFI.ESTIMATE.SIZE1)) (COMS (* ; "Expression handlers") (FNS PFI.HANDLE.RPAQQ PFI.HANDLE.DECLARE PFI.HANDLE.EVAL-WHEN PFI.HANDLE.DEFDEFINER PFI.HANDLE.DEFINEQ PFI.PRINT.LAMBDA PFI.PRINT.LAMBDA.BODY PFI.HANDLE.PUTDEF PFI.HANDLE.PUTPROPS PFI.HANDLE./DECLAREDATATYPE PFI.HANDLE.* PFI.PRINT.COMMENTS PFI.HANDLE.FILEMAP PFI.HANDLE.PACKAGE)) (COMS (* ; "Previewers") (FNS PFI.PREVIEW.DECLARE PFI.PREVIEW.DEFINEQ)) (COMS (* ; "Printing the index") (FNS PFI.PRINT.INDEX PFI.CONDENSE.INDEX PFI.SORT.INDICES PFI.COMPUTE.INDEX.SHAPE PFI.PRINT.INDICES PFI.CENTER.PRINT PFI.INDEX.BREAK PFI.LOOKUP.NAME) (FNS PFI.ADD.TO.INDEX PFI.VARNAME PFI.CONSTANTNAMES)) (COMS (* ; "Combined listings") (FNS MULTIFILEINDEX MULTIFILEINDEX1 PFI.PRINT.MULTI.INDEX PFI.CHOOSE.BEST PFI.MERGE.INDICES)) (COMS (* ; "Hooks for seeing files pretty elsewhere") (FNS PFI.MAYBE.SEE.PRETTY PFI.MAYBE.PP.DEFINITION) (INITVARS (*PRINT-PRETTY-FROM-FILES* T))) (COMS (* ; "Bitmap hack") (FNS PFI.PRINT.BITMAP) (INITVARS (*PRINT-PRETTY-BITMAPS* T))) (INITVARS (*PFI-PRINTOPTIONS* (QUOTE (REGION (72 54 504 702)))) (*PFI-DONT-SPAWN*) (*PFI-MAX-WASTED-LINES* 12) (*PFI-CHARACTER-TRANSLATIONS* (QUOTE ((INTERPRESS (95 172) (96 169 FAMILY CLASSIC) (39 185 FAMILY CLASSIC))))) (*PFI-INDEX-ORDER* (QUOTE ( FUNCTIONS))) (*PFI-DEFINER-PROPS* (LET ((*PACKAGE* (if (EQ MAKESYSNAME :LYRIC) then *INTERLISP-PACKAGE* else *KEYWORD-PACKAGE*))) (* ;; "Properties of definers changed between Lyric and Medley (yech).") (MAPCAR (QUOTE ("DEFINER-FOR" "DEFINED-BY" "DEFINITION-NAME")) (FUNCTION CL:INTERN)))) (\PFI.PROCESS.COMMANDS) (\PFI.PROCESSLOCK ( CREATE.MONITORLOCK "PRETTYFILEINDEX")) (\PFI.PROCESS)) (COMS (* ;; "These are just in case our afternewpagefn escapes our dynamic context. *PFI-TITLE* being NIL means we're outside prettyfileindex" ) (INITVARS (*PFI-TITLE*) (*PFI-PAGE-COUNT* 0))) (ADDVARS (*PFI-TYPES* (ADVICE XCL:REINSTALL-ADVICE) ( CONSTANTS CONSTANTS PFI.CONSTANTNAMES) (CONSTANTS CL:DEFCONSTANT) (COURIERPROGRAM COURIERPROGRAM) ( DEFINERS DEFDEFINER) (I.S.OPR I.S.OPR) (MACRO DEFMACRO) (TEMPLATE SETTEMPLATE) (VARIABLES (RPAQ RPAQ? RPAQQ ADDTOVAR) PFI.VARNAME)) (*PFI-HANDLERS* (PUTPROPS . PFI.HANDLE.PUTPROPS) (DECLARE%: . PFI.HANDLE.DECLARE) (DEFINEQ . PFI.HANDLE.DEFINEQ) (PUTDEF . PFI.HANDLE.PUTDEF) (RPAQQ . PFI.HANDLE.RPAQQ) (DEFDEFINER . PFI.HANDLE.DEFDEFINER) (PRETTYCOMPRINT . NILL) (FILEMAP . PFI.HANDLE.FILEMAP) (* . PFI.HANDLE.*) (/DECLAREDATATYPE . PFI.HANDLE./DECLAREDATATYPE) (CL:IN-PACKAGE . PFI.HANDLE.PACKAGE) (CL:USE-PACKAGE . PFI.HANDLE.PACKAGE) (CL:SHADOW . PFI.HANDLE.PACKAGE) ( CL:SHADOWING-IMPORT . PFI.HANDLE.PACKAGE) (IMPORT . PFI.HANDLE.PACKAGE) (EXPORT . PFI.HANDLE.PACKAGE) (CL:EVAL-WHEN . PFI.HANDLE.EVAL-WHEN)) (*PFI-PREVIEWERS* (DECLARE%: . PFI.PREVIEW.DECLARE) (DEFINEQ . PFI.PREVIEW.DEFINEQ)) (*PFI-PROPERTIES* (COPYRIGHT) (READVICE ADVICE)) (*PFI-FILTERS* (VARIABLES . CONSTANTS))) (COMS (* ; "Prettyprint augmentation to mimic system makefile dumping") (FNS PUTPROPS.PRETTYPRINT RPAQX.PRETTYPRINT COURIERPROGRAM.PRETTYPRINT MAYBE.PRETTYPRINT.BOLD) (ALISTS ( PRETTYPRINTMACROS RPAQ RPAQQ RPAQ? ADDTOVAR PUTPROPS COURIERPROGRAM))) (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T) (P (CL:PROCLAIM (QUOTE (CL:SPECIAL *PFI-PAGE-COUNT* *PFI-PAGE-PREFIX* *PFI-TITLE* *PFI-ITEM* *PFI-FNSLST* *PFI-INDEX-ALIST* *PFI-LOCATIONS* *PFI-FILEVARS* *PFI-FUNNY-CHARS* *PFI-PENDING-COMMENTS* *PFI-TWO-SIDED* *PFI-BITMAP-BASELINE* *OLD-INTERLISP-READ-ENVIRONMENT* *UPPER-CASE-FILE-NAMES* DEFAULTFONT BOLDFONT PRETTYCOMFONT LAMBDAFONT ITALICFONT FONTCHANGEFLG COMMENTFLG EMPRESS#SIDES PRETTYFLG)))) (RECORDS PFITYPE) (GLOBALVARS \PFI.PROCESS.COMMANDS \PFI.PROCESSLOCK \PFI.PROCESS NOTLISTEDFILES MACROPROPS CLISPRECORDTYPES PROMPTWINDOW *PFI-DEFINER-PROPS* *COMMON-LISP-READ-ENVIRONMENT*)) (DECLARE%: EVAL@COMPILE DOCOPY (* ; "Public variables to declare special") (P (CL:PROCLAIM (QUOTE (CL:SPECIAL *PFI-TYPES* *PFI-HANDLERS* *PFI-PREVIEWERS* *PFI-DONT-SPAWN* *PFI-PROPERTIES* *PFI-FILTERS* *PRINT-PRETTY-FROM-FILES* *PRINT-PRETTY-BITMAPS* *PFI-MAX-WASTED-LINES* *PFI-PRINTOPTIONS* *PFI-CHARACTER-TRANSLATIONS* *PFI-INDEX-ORDER*))))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (OR (GETD (QUOTE CODEWRAPPER.PRETTYPRINT)) ( FILESLOAD (SYSLOAD) DEFINERPRINT)) (* ; "Get prettyprinter fixes if running in old sysout") (MOVD? ( PROG ((SYMS (QUOTE ("OLDLISTFILES1" "LISTFILES1-ORIGINAL"))) S) (* ; "Look for LISTFILES1. These two names are where SINGLEFILEINDEX and PP-CODE-FILE stash it.") LP (COND ((AND (SETQ S (CL:FIND-SYMBOL (CAR SYMS))) (GETD S)) (RETURN (PROG1 S (COND ((SETQ S (CL:FIND-SYMBOL "MAYBE-PP-CODE-FILE")) (* ; "Also fix SEE") (MOVD (QUOTE PFI.MAYBE.SEE.PRETTY) S NIL T)))))) ((SETQ SYMS (CDR SYMS)) (GO LP)) (T (* ; "Neither one loaded, take original") (RETURN (QUOTE LISTFILES1))))) (QUOTE PFI.ORIGINAL.LISTFILES1) NIL T) (MOVD (QUOTE PFI.NEW.LISTFILES1) (QUOTE LISTFILES1) NIL T) ( CHANGENAME (QUOTE SEE) (QUOTE COPYALLBYTES) (QUOTE PFI.MAYBE.SEE.PRETTY)) (CHANGENAME (QUOTE FB.FASTSEE.ONEFILE) (QUOTE PFCOPYBYTES) (QUOTE PFI.MAYBE.SEE.PRETTY)) (CHANGENAME (QUOTE PRINTFNDEF) ( QUOTE PFCOPYBYTES) (QUOTE PFI.MAYBE.PP.DEFINITION)) (MOVD? (OR (DEFPRINT (QUOTE BITMAP) (QUOTE PFI.PRINT.BITMAP)) (QUOTE NILL)) (QUOTE NON.PFI.PRINT.BITMAP) NIL T))))) (RPAQ? *PRINT-PRETTY-FROM-FILES* T) (RPAQ? *PRINT-PRETTY-BITMAPS* T) (RPAQ? *PFI-PRINTOPTIONS* (QUOTE (REGION (72 54 504 702)))) (RPAQ? *PFI-DONT-SPAWN*) (RPAQ? *PFI-MAX-WASTED-LINES* 12) (RPAQ? *PFI-CHARACTER-TRANSLATIONS* (QUOTE ((INTERPRESS (95 172) (96 169 FAMILY CLASSIC) (39 185 FAMILY CLASSIC))))) (RPAQ? *PFI-INDEX-ORDER* (QUOTE (FUNCTIONS))) (RPAQ? *PFI-DEFINER-PROPS* (LET ((*PACKAGE* (if (EQ MAKESYSNAME :LYRIC) then *INTERLISP-PACKAGE* else *KEYWORD-PACKAGE*))) (* ;; "Properties of definers changed between Lyric and Medley (yech).") (MAPCAR (QUOTE ("DEFINER-FOR" "DEFINED-BY" "DEFINITION-NAME")) (FUNCTION CL:INTERN)))) (RPAQ? \PFI.PROCESS.COMMANDS) (RPAQ? \PFI.PROCESSLOCK (CREATE.MONITORLOCK "PRETTYFILEINDEX")) (RPAQ? \PFI.PROCESS) (RPAQ? *PFI-TITLE*) (RPAQ? *PFI-PAGE-COUNT* 0) (ADDTOVAR *PFI-TYPES* (ADVICE XCL:REINSTALL-ADVICE) (CONSTANTS CONSTANTS PFI.CONSTANTNAMES) (CONSTANTS CL:DEFCONSTANT) (COURIERPROGRAM COURIERPROGRAM) (DEFINERS DEFDEFINER) (I.S.OPR I.S.OPR) (MACRO DEFMACRO) (TEMPLATE SETTEMPLATE) (VARIABLES (RPAQ RPAQ? RPAQQ ADDTOVAR) PFI.VARNAME)) (ADDTOVAR *PFI-HANDLERS* (PUTPROPS . PFI.HANDLE.PUTPROPS) (DECLARE%: . PFI.HANDLE.DECLARE) (DEFINEQ . PFI.HANDLE.DEFINEQ) (PUTDEF . PFI.HANDLE.PUTDEF) (RPAQQ . PFI.HANDLE.RPAQQ) (DEFDEFINER . PFI.HANDLE.DEFDEFINER) (PRETTYCOMPRINT . NILL) (FILEMAP . PFI.HANDLE.FILEMAP) (* . PFI.HANDLE.*) ( /DECLAREDATATYPE . PFI.HANDLE./DECLAREDATATYPE) (CL:IN-PACKAGE . PFI.HANDLE.PACKAGE) (CL:USE-PACKAGE . PFI.HANDLE.PACKAGE) (CL:SHADOW . PFI.HANDLE.PACKAGE) (CL:SHADOWING-IMPORT . PFI.HANDLE.PACKAGE) ( IMPORT . PFI.HANDLE.PACKAGE) (EXPORT . PFI.HANDLE.PACKAGE) (CL:EVAL-WHEN . PFI.HANDLE.EVAL-WHEN)) (ADDTOVAR *PFI-PREVIEWERS* (DECLARE%: . PFI.PREVIEW.DECLARE) (DEFINEQ . PFI.PREVIEW.DEFINEQ)) (ADDTOVAR *PFI-PROPERTIES* (COPYRIGHT) (READVICE ADVICE)) (ADDTOVAR *PFI-FILTERS* (VARIABLES . CONSTANTS)) (ADDTOVAR PRETTYPRINTMACROS (RPAQ . RPAQX.PRETTYPRINT) (RPAQQ . RPAQX.PRETTYPRINT) (RPAQ? . RPAQX.PRETTYPRINT) (ADDTOVAR . RPAQX.PRETTYPRINT) (PUTPROPS . PUTPROPS.PRETTYPRINT) (COURIERPROGRAM . COURIERPROGRAM.PRETTYPRINT)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *PFI-TYPES* *PFI-HANDLERS* *PFI-PREVIEWERS* *PFI-DONT-SPAWN* *PFI-PROPERTIES* *PFI-FILTERS* *PRINT-PRETTY-FROM-FILES* *PRINT-PRETTY-BITMAPS* *PFI-MAX-WASTED-LINES* *PFI-PRINTOPTIONS* *PFI-CHARACTER-TRANSLATIONS* *PFI-INDEX-ORDER*))) (OR (GETD (QUOTE CODEWRAPPER.PRETTYPRINT)) (FILESLOAD (SYSLOAD) DEFINERPRINT)) (MOVD? (PROG ((SYMS (QUOTE ("OLDLISTFILES1" "LISTFILES1-ORIGINAL"))) S) (* ; "Look for LISTFILES1. These two names are where SINGLEFILEINDEX and PP-CODE-FILE stash it.") LP (COND ((AND (SETQ S (CL:FIND-SYMBOL (CAR SYMS))) (GETD S)) (RETURN (PROG1 S (COND ((SETQ S (CL:FIND-SYMBOL "MAYBE-PP-CODE-FILE")) (* ; "Also fix SEE") (MOVD (QUOTE PFI.MAYBE.SEE.PRETTY) S NIL T)))))) ((SETQ SYMS (CDR SYMS)) (GO LP)) (T (* ; "Neither one loaded, take original") (RETURN (QUOTE LISTFILES1))))) (QUOTE PFI.ORIGINAL.LISTFILES1) NIL T) (MOVD (QUOTE PFI.NEW.LISTFILES1) (QUOTE LISTFILES1) NIL T) (CHANGENAME (QUOTE SEE) (QUOTE COPYALLBYTES) (QUOTE PFI.MAYBE.SEE.PRETTY)) (CHANGENAME (QUOTE FB.FASTSEE.ONEFILE) (QUOTE PFCOPYBYTES) (QUOTE PFI.MAYBE.SEE.PRETTY)) (CHANGENAME (QUOTE PRINTFNDEF) (QUOTE PFCOPYBYTES) (QUOTE PFI.MAYBE.PP.DEFINITION)) (MOVD? (OR (DEFPRINT (QUOTE BITMAP) (QUOTE PFI.PRINT.BITMAP)) (QUOTE NILL)) (QUOTE NON.PFI.PRINT.BITMAP) NIL T) NIL