(FILECREATED "25-Feb-86 14:40:44" ("compiled on " {ERIS}LIBRARY>CMLPRETTY.;3) "15-Feb-86 15:50:45" recompiled changes: FILEPRINT PRINT.* PRINT.DECLARE: PRINT.DEFINEQ PRINT.VAR PRINT.DEFUN in "Xerox Lisp 15-Feb-86 ..." dated "15-Feb-86 16:03:52") (FILECREATED "25-Feb-86 14:40:29" {ERIS}LIBRARY>CMLPRETTY.;3 13073 changes to: (FNS FILEPRINT PRINT.* PRINT.DECLARE: PRINT.DEFINEQ PRINT.VAR PRINT.DEFUN) previous date: " 9-Aug-85 16:01:20" {ERIS}LIBRARY>CMLPRETTY.;2) CENTERPRINT D1 (I 1 TOSTREAM I 0 STR) )hA hA hA Õ@A Õl×ÔA @A A (46Q TERPRI 42Q PRIN1 35Q DSPXPOSITION 24Q STRINGWIDTH 16Q DSPLEFTMARGIN 11Q DSPRIGHTMARGIN 4 DSPLEFTMARGIN) NIL () COPYALLBYTESA0001 D1 (NAME ERRORSET P 2 PTR P 1 OUTF P 0 INF F 4 RESETVARSLST F 5 FROMFILE F 6 TOFILE F 7 RESETY) o@U²1gUg XhhhTc¿H [jð³K”K ªHj ƒX¿Vµ¹°"g Y³gVg YhhhTc¿HI hci(147Q COPYBYTES 125Q OPENSTREAM 110Q OPENP 77Q OUTPUT 67Q INPUT 63Q SETFILEPTR 55Q \FZEROP 40Q GETFILEPTR 17Q OPENSTREAM) (122Q OUTPUT 116Q CLOSEF 105Q OUTPUT 14Q INPUT 10Q CLOSEF) () COPYALLBYTES D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST F 4 RESETVARSLST) 0@ ˜@Aµi S!Tog ‘h‚gZ J“I(53Q ERROR! 46Q RESETRESTORE 34Q COPYALLBYTESA0001 14Q PPLISTFILE 3 LISPSOURCEFILEP) (42Q ERROR 31Q INTERNAL) ( 26Q (COPYALLBYTESA0001)) DSPPAGENUMBER D1 (I 1 PAGENUMBER I 0 STREAM) b@g b dgð²¿@É(HÈ"A—HAÍ"¿gð²@É(HÈ A—HAÍ ¿@g A˜@gA¿(136Q STREAMPROP 124Q STREAMPROP 13Q IMAGESTREAMTYPE 6 GETSTREAM) (132Q PAGENUMBER 121Q PAGENUMBER 110Q INTERPRESSDATA 100Q INTERPRESSDATA 67Q STREAM 60Q INTERPRESS 50Q PRESSDATA 40Q PRESSDATA 27Q STREAM 17Q PRESS 3 OUTPUT) () FILEPRINT D1 (P 0 MACRO I 0 EXPR) @gHœ@dkHbðhðµ@ (33Q PRINTDEF) (4 PRINT-TO-FILE) () LISTFILES1 D1 (I 1 PRINTOPTIONS I 0 FILE) @ —@hdA@hA(22Q SEND.FILE.TO.PRINTER 13Q PPLISTFILE 3 LISPSOURCEFILEP) NIL () PRETTYDEF.FROMFILEA0001 D1 (NAME ERRORSET F 0 SRC F 1 FILERDTBL F 2 MACROY) gPQ h ci(15Q FILEPRINT 7 READ) (2 DEFINEQ) () PRETTYDEF.FROMFILE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 3 END I 2 START I 1 DST I 0 SRC F 4 RESETVARSLST) @@B A 1gHhhTcYog £g»IcgI K“J(73Q ERROR! 66Q APPLY 43Q PRETTYDEF.FROMFILEA0001 10Q OUTPUT 4 SETFILEPTR) (57Q OUTPUT 47Q ERROR 40Q INTERNAL 16Q OUTPUT) ( 35Q (PRETTYDEF.FROMFILEA0001)) PPLISTFILEA0001A0002 D1 (I 0 X F 0 RESETSTATE) @ P´@ (12Q DELFILE 3 CLOSEF?) NIL () PPLISTFILEA0001A0003 D1 (I 1 Y I 0 X) @A (6 UALPHORDER) NIL () PPLISTFILEA0001 D1 (NAME ERRORSET P 11Q X P 4 EXPR P 3 *FILE-INDEX* P 2 STR P 1 FN P 0 *FILE-INDEX-NUMBER* F 12Q RESETVARSLST F 13Q FILE F 14Q TOSTREAM F 15Q RESETY F 16Q TYPE F 17Q PRETTYPRINTMACROS F 20Q FILERDTBL F 21Q PRINTOPTIONS) µ gd gi ¿Wc¿jQW³Wghdo Z ¹gWµ-gWµgIdlð•´ooh‡g c hhWc¿gd g0o°dg¾OµNh_N&_¿µèOW ¿Wc¿gd g ¿Wc¿W²gWhhhWc¿gJhhhWc¿` ¿Jµ=WdWc¿¼³>¿K¢±¿` ¿o ¿¿Kg ¿K°TW \gðhð°ÄL ¿l]jñ²ª¿MkÙ°ôd O ¿l ¿O ¿l( ¿O ¿h µÐ¿Wµ hgIW"¿gci(652Q SEND.FILE.TO.PRINTER 636Q CLOSEF 633Q OUTPUT 623Q PRINT.BLACKLINE 613Q TERPRI 606Q PRIN1 575Q TAB 567Q PRIN1 557Q TAB 551Q PRIN1 530Q TERPRI 515Q FILEPRINT 500Q READ 467Q SORT 457Q TERPRI 453Q CENTERPRINT 450Q CONCAT 440Q DSPFONT 431Q DSPNEWPAGE 420Q PRINT.BLACKLINE 374Q DSPFONT 310Q SETTOPVAL 301Q GETTOPVAL 263Q SETTOPVAL 260Q \NCONC2 201Q GETTOPVAL 157Q OUTPUT 152Q GETSTREAM 143Q OPENIMAGESTREAM 135Q CONCAT 132Q DATE 103Q PRINTERTYPE 61Q FULLNAME 55Q OPENSTREAM 16Q SETTOPVAL 6 GETTOPVAL) (656Q printed 642Q DOCUMENT.NAME 504Q STOP 464Q PPLISTFILEA0001A0003 435Q DEFAULTFONT 371Q DEFAULTFONT 350Q CLOSEF? 326Q PPLISTFILEA0001A0002 305Q **COMMENT**FLG 275Q **COMMENT**FLG 223Q PRINTQUOTE 205Q PRETTYPRINTMACROS 175Q PRETTYPRINTMACROS 147Q OUTPUT 106Q HEADING 74Q {CORE}TEMP 65Q OUTPUT 43Q INPUT 12Q PRETTYFLG 2 PRETTYFLG) ( 445Q "-- INDEX --" 214Q (BQUOTE \, \,@ QUOTE) 127Q " listed on " 123Q "" 51Q ((SEQUENTIAL T))) PPLISTFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 PRINTOPTIONS I 2 TYPE I 1 TOSTREAM I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q PPLISTFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PPLISTFILEA0001)) PRINT.BLACKLINE D1 NIL 'mü×kØghnÿÿ (44Q TERPRI 41Q DRAWLINE 21Q DSPLINEFEED 16Q DSPYPOSITION 13Q DSPRIGHTMARGIN 10Q DSPYPOSITION 5 DSPLEFTMARGIN 2 TERPRI) (31Q PAINT) () PRINT.*A0001 D1 (NAME ERRORSET F 0 EXPR) `¿Phi¿hh(14Q PRINTDEF) (5 COMMENTFONT 2 BOLDFONT) () PRINT.* D1 (P 1 MACROY P 0 MACROX I 0 EXPR F 2 RESETVARSLST) V@gð“‚¿g`RcR¹og H¿IdRð•¿HcR ™RkIH¿£¿(123Q TERPRI 116Q ERROR! 106Q NLEFT 77Q TAILP 51Q PRINT.*A0001 16Q TERPRI 12Q DSPNEWPAGE) (57Q COMMENTFONT 46Q INTERNAL 25Q COMMENTFONT 22Q COMMENTFONT 5 *) ( 43Q (PRINT.*A0001)) PRINT.DECLARE: D1 (P 2 LASTX P 1 X I 0 EXPR) g@gð²@gð›@gð‘ho @!Hµo h Y«IZ ¿k °oJ –Ihi‡¿I ¿HX°Ä(137Q FILEPRINT 132Q TERPRI 126Q PRINTDEF 117Q STRPOS 105Q SPACES 100Q PRIN2 66Q TERPRI 62Q PRIN1 42Q PRIN1) (27Q FILEMAP 15Q DONTCOPY 4 DECLARE:) ( 113Q "@WHEN" 57Q ")" 37Q "(") PRINT.FILECREATED D1 (P 0 MARGIN I 0 FC) è` ¿o ¿@@b¿ ¿k ¿@@b¿ ¿k ¿` ¿@@b¿ ¿k ¿` @d3 š@b¿ ¿@²¿@µH o dgð¦dgð²<¿H ¿h ¿l ¿@@b¿ ¿k ¿@@b¿ ¿k ¿ ¿°§¿@d›@b¿ ¿°•@b¿ ¿k ¿°„(343Q SPACES 336Q PRIN2 322Q PRINT 300Q DSPLEFTMARGIN 275Q DSPXPOSITION 271Q SPACES 264Q PRIN1 251Q SPACES 244Q PRIN1 231Q SPACES 223Q TERPRI 216Q DSPLEFTMARGIN 172Q TERPRI 167Q PRIN1 157Q DSPLEFTMARGIN 145Q DSPLEFTMARGIN 141Q TERPRI 132Q PRIN2 113Q CHANGEFONT 104Q SPACES 77Q PRIN2 64Q CHANGEFONT 55Q SPACES 50Q PRIN2 35Q SPACES 30Q PRIN2 15Q PRIN1 5 CHANGEFONT) (206Q previous 200Q changes 110Q DEFAULTFONT 61Q LAMBDAFONT 2 DEFAULTFONT) ( 164Q ")" 12Q "(") PRINT.DEFINEQ D1 (P 0 Y I 0 EXPR) ao ¿h @°Cdh ¿o ¿` ¿H ¿h ¿` ¿Hidd¿o ¿h µ½o h (136Q TERPRI 132Q PRIN1 116Q TERPRI 111Q PRIN1 101Q PRINTDEF 70Q CHANGEFONT 61Q TERPRI 54Q PRIN1 46Q CHANGEFONT 37Q PRIN1 27Q TERPRI 13Q TERPRI 6 PRIN1) (65Q DEFAULTFONT 43Q LAMBDAFONT) ( 127Q ")" 106Q ")" 34Q "(" 3 "(DEFINEQ") PRINT.VAR D1 (P 1 TEM P 0 LASTCOL I 0 VAREXP) No ¿@ ¿k ¿` ¿@ ¿` ¿k ¿@ihi¿o ¿h(112Q TERPRI 106Q PRIN1 76Q PRINTDEF 64Q SPACES 57Q DSPFONT 50Q PRIN2 41Q DSPFONT 32Q SPACES 25Q PRIN1 17Q PRIN1 10Q TERPRI 2 DSPRIGHTMARGIN) (54Q DEFAULTFONT 36Q PRETTYCOMFONT) ( 103Q ")" 14Q "(") PRINT.DEFUN D1 (P 2 FIN P 1 DEFFED P 0 DEFFER I 0 DEFEXP F 3 *FILE-INDEX-NUMBER* F 4 *FILE-INDEX* F 5 COMMENTFLG) @@b¿!@@b¿¹h ¿o ¿H ¿k IdHµoSkØcoZhTcI²5o ¿` ¿I ¿` ¿k ¿Iidd¿o °` ¿I ¿` ¿Hgð¦Hgð²@d²¿k ¿@@b¿i ¿@§@Uð²k ¿@@b¿id¿J´%` ¿J Õ ¿J ¿` ¿h l @iddo h (431Q TERPRI 425Q PRIN1 416Q PRINTDEF 407Q SPACES 402Q TERPRI 375Q DSPFONT 366Q PRIN3 361Q MOVETO 356Q DSPYPOSITION 352Q STRINGWIDTH 346Q DSPRIGHTMARGIN 342Q DSPFONT 330Q PRINTDEF 313Q SPACES 271Q PRINTDEF 255Q SPACES 224Q CHANGEFONT 215Q PRIN1 210Q CHANGEFONT 200Q PRIN1 170Q PRINTDEF 157Q SPACES 152Q CHANGEFONT 143Q PRIN1 135Q CHANGEFONT 126Q PRIN1 102Q CONCAT 60Q DSPPAGENUMBER 47Q SPACES 42Q PRIN1 35Q PRIN1 25Q TERPRI) (372Q DEFAULTFONT 337Q BOLDFONT 237Q DEFMACRO 231Q DEFUN 221Q DEFAULTFONT 205Q PRETTYCOMFONT 147Q DEFAULTFONT 132Q PRETTYCOMFONT) ( 422Q ")" 175Q ")" 123Q "(" 77Q "]" 66Q "[" 32Q "(") PRINTQUOTE D1 (I 0 EXPR) L@d²Fd³Adgð–¿o°(dgð–¿o°dgð•¿oŒgð”o‚ @d¢ (111Q PRIN2 101Q PRIN1 76Q SHOULDNT) (64Q \,@ 51Q \, 34Q BQUOTE 17Q QUOTE) ( 72Q ",@" 60Q "," 43Q "`" 26Q "'") (PRETTYCOMPRINT CMLPRETTYCOMS) (RPAQQ CMLPRETTYCOMS ((FNS CENTERPRINT COPYALLBYTES DSPPAGENUMBER FILEPRINT LISTFILES1 PRETTYDEF.FROMFILE PPLISTFILE PRINT.BLACKLINE PRINT.* PRINT.DECLARE: PRINT.FILECREATED PRINT.DEFINEQ PRINT.VAR PRINT.DEFUN PRINTQUOTE) (PROP PRINT-TO-FILE RECORD TYPERECORD PROGN PROPRECORD HASHLINK ACCESSFN ACCESSFNS HASHRECORD ATOMRECORD ARRAYRECORD DATATYPE BLOCKRECORD ASSOCRECORD CACCESSFNS ARRAYBLOCK SYNONYM DEFINEQ DEFMACRO DEFSTRUCT DEFUN RPAQ RPAQ? RPAQQ DECLARE: PUTPROPS * FILECREATED)) ) (PUTPROPS RECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS TYPERECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS PROGN PRINT-TO-FILE PRINT.DECLARE:) (PUTPROPS PROPRECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS HASHLINK PRINT-TO-FILE PRINT.VAR) (PUTPROPS ACCESSFN PRINT-TO-FILE PRINT.VAR) (PUTPROPS ACCESSFNS PRINT-TO-FILE PRINT.VAR) (PUTPROPS HASHRECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS ATOMRECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS ARRAYRECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS DATATYPE PRINT-TO-FILE PRINT.VAR) (PUTPROPS BLOCKRECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS ASSOCRECORD PRINT-TO-FILE PRINT.VAR) (PUTPROPS CACCESSFNS PRINT-TO-FILE PRINT.VAR) (PUTPROPS ARRAYBLOCK PRINT-TO-FILE PRINT.VAR) (PUTPROPS SYNONYM PRINT-TO-FILE PRINT.VAR) (PUTPROPS DEFINEQ PRINT-TO-FILE PRINT.DEFINEQ) (PUTPROPS DEFMACRO PRINT-TO-FILE PRINT.DEFUN) (PUTPROPS DEFSTRUCT PRINT-TO-FILE PRINT.DEFUN) (PUTPROPS DEFUN PRINT-TO-FILE PRINT.DEFUN) (PUTPROPS RPAQ PRINT-TO-FILE PRINT.DEFUN) (PUTPROPS RPAQ? PRINT-TO-FILE PRINT.VAR) (PUTPROPS RPAQQ PRINT-TO-FILE PRINT.VAR) (PUTPROPS DECLARE: PRINT-TO-FILE PRINT.DECLARE:) (PUTPROPS PUTPROPS PRINT-TO-FILE PRINT.VAR) (PUTPROPS * PRINT-TO-FILE PRINT.*) (PUTPROPS FILECREATED PRINT-TO-FILE PRINT.FILECREATED) (PUTPROPS CMLPRETTY COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL