(FILECREATED "24-Mar-86 17:45:40" ("compiled on " {ERIS}BVM>APRINT.;15) "15-Mar-86 22:25:09" brecompiled explicitly: \PRINDATUM \CONVERTNUMBER \SYMBOL.ESCAPE.COUNT \MAPPNAME PNAMESTREAMP in "Xerox Lisp 15-Mar-86 ..." dated "15-Mar-86 22:34:44") (FILECREATED "24-Mar-86 17:43:49" {ERIS}BVM>APRINT.;15 45252 changes to: (FNS \SYMBOL.ESCAPE.COUNT \PRINDATUM PNAMESTREAMP \CONVERTNUMBER) (MACROS PNAMESTREAMP) (RESOURCES \MAPPNAMESTREAM) (VARS APRINTCOMS) previous date: "14-Mar-86 14:17:07" {ERIS}BVM>APRINT.;12) PRIN1 D1 (L (1 FILE 0 X) P 1 \THISFILELINELENGTH F 3 \TERM.OFD F 4 PLVLFILEFLG) @Ag !HZdj`nhJY``@HhHSTj @(74Q \PRINDATUM 6 \GETSTREAM) (56Q \TCDRPRINTLEVEL 53Q \CDRPRINTLEVEL 50Q \TCARPRINTLEVEL 45Q \CARPRINTLEVEL 30Q \LINELENGTH 15Q STREAM 3 OUTPUT) () PRIN2 D1 (L (2 RDTBL 1 FILE 0 X) P 1 \THISFILELINELENGTH F 3 \PRIMREADTABLE F 4 \TERM.OFD F 5 PLVLFILEFLG) OAg !HZdj`nhJY``@HBSi`BHTUj @(113Q \PRINDATUM 6 \GETSTREAM) (100Q READTABLEP 73Q \SYSREADTABLE 56Q \TCDRPRINTLEVEL 53Q \CDRPRINTLEVEL 50Q \TCARPRINTLEVEL 45Q \CARPRINTLEVEL 30Q \LINELENGTH 15Q STREAM 3 OUTPUT) () PRIN3 D1 (L (1 FILE 0 X) P 1 \THISFILELINELENGTH F 2 \TERM.OFD F 3 PLVLFILEFLG) 'Ag ``@HhHRSj @(43Q \PRINDATUM 6 \GETSTREAM) (25Q \TCDRPRINTLEVEL 22Q \CDRPRINTLEVEL 17Q \TCARPRINTLEVEL 14Q \CARPRINTLEVEL 3 OUTPUT) () PRIN4 D1 (L (2 RDTBL 1 FILE 0 X) P 1 \THISFILELINELENGTH F 2 \PRIMREADTABLE F 3 \TERM.OFD F 4 PLVLFILEFLG) 6Ag ``@HBRi`BHSTj @(62Q \PRINDATUM 6 \GETSTREAM) (47Q READTABLEP 42Q \SYSREADTABLE 25Q \TCDRPRINTLEVEL 22Q \CDRPRINTLEVEL 17Q \TCARPRINTLEVEL 14Q \CARPRINTLEVEL 3 OUTPUT) () PRINT D1 (L (2 RDTBL 1 FILE 0 X) P 1 \THISFILELINELENGTH F 4 \PRIMREADTABLE F 5 \TERM.OFD F 6 PLVLFILEFLG) ]Ag 1HZdj`nhJY``@HBTi`BHUVj H Hl lK@(113Q \PRINDATUM 6 \GETSTREAM) (117Q STREAM 100Q READTABLEP 73Q \SYSREADTABLE 56Q \TCDRPRINTLEVEL 53Q \CDRPRINTLEVEL 50Q \TCARPRINTLEVEL 45Q \CARPRINTLEVEL 30Q \LINELENGTH 15Q STREAM 3 OUTPUT) () PRINTCCODE D1 (L (1 FILE 0 CHARCODE)) )Ag @dj@@@ H HIlJ(26Q \ILLEGAL.ARG 6 \GETSTREAM) (35Q STREAM 3 OUTPUT) () PRINTLEVEL D1 (L (1 CDRVAL 0 CARVAL)) H@ `j`ٍb@b``@j@jYjIـIAHjNIL (103Q \CDRPRINTLEVEL 70Q \CARPRINTLEVEL 57Q \PRINTCRFLAG 37Q \CDRPRINTLEVEL 34Q \CARPRINTLEVEL 14Q \CARPRINTLEVEL 6 \PRINTCRFLAG) () RADIX D1 (L (0 N)) $`@@d3 l@@dl$@ @(33Q \ILLEGAL.ARG) (40Q \PRINTRADIX 2 \PRINTRADIX) () SPACES D1 (L (1 FILE 0 N)) OAg 1HZdj`nhJY@HIH @djH Hl lKkٰ(62Q FRESHLINE 6 \GETSTREAM) (75Q STREAM 50Q STREAM 30Q \LINELENGTH 15Q STREAM 3 OUTPUT) () TERPRI D1 (L (0 FILE)) @g H Hl lIh(6 \GETSTREAM) (15Q STREAM 3 OUTPUT) () FRESHLINE D1 (L (0 STREAM)) e@d`8dRlj2@dRlj@4@kH@@g bj@ @l lHih(104Q GETSTREAM) (123Q STREAM 111Q STREAM 101Q OUTPUT 60Q FDEV 53Q STREAM 34Q STREAM 14Q STREAM 5 STREAMTYPE#) () DEFPRINT D1 (L (1 FN 0 TYPE)) 1@d3 b`HA@A`H` (51Q DREMOVE 7 \TYPENAMEFROMNUMBER) (54Q \DEFPRINTFNS 46Q \DEFPRINTFNS 37Q \DEFPRINTFNS 33Q \DEFPRINTFNS 14Q \DEFPRINTFNS) () LINELENGTH D1 (L (1 FILE 0 N)) 6Ag H@#@3k@@ H@dinj(36Q \ILLEGAL.ARG 6 \GETSTREAM) (44Q STREAM 15Q STREAM 3 OUTPUT) () \PRINDATUM D1 (L (3 CPL 2 RDTBL 1 STREAM 0 X) F 2 \THISFILELINELENGTH) @dl@BA dl C:Al( C`mC@ABC @,@bdAo @ABC Qkb`Al& hC%`@C=@8R5@/A Al lI(`H`HAo Al) hAl @bHtHkرmdkdlS`-l& `A@A``l hh`iBHI  HIdlO`.l& `A@HIA``ihh` HIdl@AB l@A @ H`Y@AAlIYAl{ HHhA Al} @A IdAhC IIb%(720Q \PRINDATUM 701Q \PRINTADDR 674Q \CKPOSBOUT 665Q \LITPRIN 655Q \CKPOSBOUT 615Q TYPENAME 610Q \PRINSTACKP 576Q \PRINSTRING 547Q \CKPOSSOUT 544Q \CONVERT.FLOATING.NUMBER 470Q CONCAT 460Q ALLOCSTRING 424Q \CKPOSSOUT 421Q \CONVERTNUMBER 341Q CONCAT 331Q ALLOCSTRING 263Q \CKPOSBOUT 253Q \CKPOSBOUT 244Q \CKPOSSOUT 145Q \CKPOSBOUT 123Q \PRINDATUM 113Q \CKPOSSOUT 67Q \PRINDATUM 43Q \CKPOSBOUT 15Q \LITPRIN) (624Q \DEFPRINTFNS 560Q \\NUMSTR1.GLOBALRESOURCE 553Q \\NUMSTR.GLOBALRESOURCE 541Q \FLOATFORMAT 533Q \\NUMSTR.GLOBALRESOURCE 524Q \\NUMSTR1.GLOBALRESOURCE 513Q PRXFLG 505Q \PNAMEDEVICE 463Q \\NUMSTR1.GLOBALRESOURCE 451Q \\NUMSTR.GLOBALRESOURCE 435Q \\NUMSTR1.GLOBALRESOURCE 430Q \\NUMSTR.GLOBALRESOURCE 411Q \PRINTRADIX 403Q \\NUMSTR.GLOBALRESOURCE 374Q \\NUMSTR1.GLOBALRESOURCE 362Q PRXFLG 354Q \PNAMEDEVICE 334Q \\NUMSTR1.GLOBALRESOURCE 322Q \\NUMSTR.GLOBALRESOURCE 230Q \TCDRPRINTLEVEL 220Q \TCARPRINTLEVEL 155Q \PRINTCRFLAG 134Q \TCARPRINTLEVEL 51Q \TCDRPRINTLEVEL) ( 241Q " --" 110Q " . ") \CKPOSBOUT D1 (L (1 X 0 STREAM) F 1 \THISFILELINELENGTH) &Q@dkQ@ @ @AlH(23Q FRESHLINE) (30Q STREAM 7 STREAM) () \CKPOSSOUT D1 (L (1 X 0 STREAM) F 7 \THISFILELINELENGTH) `WA@W@ AaHkٻHKHغHCjhi]Kk[JMLKLK¹@ @IlNh(30Q FRESHLINE) (121Q STREAM 15Q STREAM 7 STRINGP) () \CONVERTNUMBER D1 (L (5 NSB 4 NS 3 RDTBL 2 IGNORE 1 R 0 N)) @jo`j@@j@XDZkٻhAlCDJmZIAܽl M!Ml0" jIlDKk[lQ+iMl lA+IAYjHDJmZl-+Al {CxLu@l A@kAdlDJmZlxLlDJmZlo>AlDJmZlb/DJmZlr+DJmZAl l0+l ADJmZAl l0+DJmZC+DJKE (374Q SUBSTRING 320Q IMOD) (32Q STRINGP) ( 7 "0") \LITPRIN D1 (L (2 STREAM 1 RDTBL 0 X) F 33Q \THISFILELINELENGTH) eA@gDW6BdlW6B BAH HIlJB Bl.lHAA W6Ij@AW6h jNjNپiNji_W6@NBW6B JB _BIlOj@BO_"_$O jh_&Ok_O$AO&O"OO"O_ IO HB _BHlOB _BO lOB _BIlOOAjh `Aj@iCO*_0_2O* jh_4O(k_(O2O4O0O(O0O(_.OUKO.dlKO.4O.lLɀO.LɀjLO.]l@jO,Ml$jB _BHlOB _BO.lOh_,shW6@BW6B j@RI[I jh]HkXLMKHKHºB BJlN(1044Q FRESHLINE 240Q FRESHLINE 157Q \SYMBOL.ESCAPE.COUNT 42Q FRESHLINE) (1130Q STREAM 1031Q STREAM 762Q STREAM 741Q STREAM 677Q CHARTABLE 666Q CHARTABLE 522Q READTABLEP 513Q ARRAYP 510Q UPPERCASEARRAY 474Q READTABLEP 447Q STREAM 423Q STREAM 402Q STREAM 252Q STREAM 224Q STREAM 130Q READTABLEP 121Q READTABLEP 100Q STREAM 62Q STREAM 50Q READTABLEP 24Q STREAM 10Q %.) () \SYMBOL.ESCAPE.COUNT D1 (L (4 MULTESCWIDTH 3 ESCWIDTH 2 INEXACTOK 1 RDTBL 0 X)) @gkj@jdiAAAjh`AY I__I jh_MjCDhHkXOzOOHOH_OOdlOO1OlOɀOOɀ jOO_l@j"LOl$jJkԺMOMONKkԻhBJKkmMJKkCDlCKmKCJCJNIL (41Q UPPERCASEARRAY 3 %.) () \PRINSTACKP D1 (L (1 STREAM 0 X) F 1 \THISFILELINELENGTH) wQ5@d l l@ lAl QA @A A Al/lH@d oA  bl@hA oA (164Q \SOUT 153Q \LITPRIN 136Q STKNAME 132Q \SOUT 120Q RELSTKP 72Q \PRINTADDR 64Q FRESHLINE 31Q STKNAME 20Q STKNAME 7 RELSTKP) (76Q STREAM 47Q STREAM) ( 160Q "*form*" 126Q "#0") \PRINTADDR D1 (L (1 STREAM 0 X)) ]Al# `Ll& `;A@lhdHI  Al, A@lhdHI  HIhh(102Q \CKPOSSOUT 77Q \CONVERTNUMBER 61Q \CKPOSBOUT 52Q \CKPOSSOUT 47Q \CONVERTNUMBER 27Q CONCAT 17Q ALLOCSTRING 5 \CKPOSBOUT) (130Q \\NUMSTR.GLOBALRESOURCE 121Q \\NUMSTR1.GLOBALRESOURCE 113Q \\NUMSTR1.GLOBALRESOURCE 106Q \\NUMSTR.GLOBALRESOURCE 22Q \\NUMSTR1.GLOBALRESOURCE 10Q \\NUMSTR.GLOBALRESOURCE) () \PRINSTRING D1 (L (2 RDTBL 1 STREAM 0 X) F 14Q \THISFILELINELENGTH) 0 B"W@AWA @A AWt@@jR Mk_M_OM_MCjhi_Ok_O$OOOOO_l"OHNkؾNAlWA A Al"lI@Q Mk_M_OM_MCjhi_Ok_O=OOOOO^l"Nl NHA AHlJA ANlKA Al"lL(240Q FRESHLINE 41Q \SOUT 33Q FRESHLINE) (443Q STREAM 423Q STREAM 405Q STREAM 245Q STREAM 221Q STREAM 63Q STRINGP 45Q READTABLEP 20Q STREAM 12Q STRINGP) () \SOUT D1 (L (1 STREAM 0 X)) F@aHkٻHKHغHCjhi]Kk[JMLKLK¹A AIlNhNIL (67Q STREAM) () \OUTCHAR D1 (L (1 CHARCODE 0 STREAM)) @ @AlHNIL (3 STREAM) () \FILEOUTCHARFN D1 (L (1 CHARCODE 0 STREAM)) Al L@d2lA@2@l!@j!@ddjl dkl l@l !l !@jj@2l@AA@2@l!@dAHI2I!@Al!@dkHII(110Q SHOULDNT) (123Q STREAM 12Q STREAM) () \TTYOUTCHARFN D1 (L (1 CH 0 STREAM) F 1 \DRIBBLE.OFD) %Q QAlH@$g'@AlHNIL (30Q \OUTCHAR 23Q STREAM 3 STREAM) () \MAPPNAME D1 (L (3 RDTBL 2 FLG 1 X 0 FN) P 1 \THISFILELINELENGTH F 2 \PRIMREADTABLE) ``d`dlRdndg.dg,d`&dg"dg djdjd`dhdldk@dk0dhH@ H@.AHBC Rhi`C H(237Q \PRINDATUM) (243Q \\MAPPNAMESTREAM.GLOBALRESOURCE 234Q READTABLEP 227Q \SYSREADTABLE 217Q \\MAPPNAMESTREAM.GLOBALRESOURCE 123Q \STREAM.DEFAULT.MAXBUFFERS 101Q \FILEOUTCHARFN 72Q \EOSERROR 63Q \NOIMAGEOPS 54Q \STREAM.NOT.OPEN 45Q \STREAM.NOT.OPEN 20Q \PNAMEDEVICE 13Q STREAMTYPE# 2 \\MAPPNAMESTREAM.GLOBALRESOURCE) () PNAMESTREAMP D1 (L (0 STRM)) @` @`NIL (15Q \PNAMEDEVICE 4 STREAMTYPE#) () \MAPCHARSA0001 D1 (L (1 CHAR 0 DUMMY) F 0 \MAPCHARFN) AkPNIL NIL () \MAPCHARS D1 (L (2 FLG 1 X) I 3 RDTBL I 0 \MAPCHARFN) gABC (10Q \MAPPNAME) (2 \MAPCHARSA0001) () PRINTNUM D1 (L (2 FILE 1 NUMBER 0 FORMAT))  `'l& `@dgihhgh@l @RKA`[JAHI@ JAd3 K_(jOOjO_lOOdlO Ol OhOjhHI Mj^j6JK-JKL ٰKNdjoB kٰNB LB NjJKNB AHI(372Q SPACES 350Q PRIN1 342Q SPACES 330Q PRIN1 301Q NCHARS 245Q \CONVERTNUMBER 216Q \ILLEGAL.ARG 145Q FIXR 133Q \CONVERT.FLOATING.NUMBER 130Q \CHECKFLTFMT 75Q \LISPERROR 21Q CONCAT 11Q ALLOCSTRING) (406Q \\NUMSTR1.GLOBALRESOURCE 401Q \\NUMSTR.GLOBALRESOURCE 122Q FLOATP 112Q NILNUMPRINTFLG 63Q FIX 55Q \\NUMSTR.GLOBALRESOURCE 46Q \\NUMSTR1.GLOBALRESOURCE 33Q FLOAT 14Q \\NUMSTR1.GLOBALRESOURCE 2 \\NUMSTR.GLOBALRESOURCE) ( 324Q "0") FLTFMT D1 (L (0 FORMAT)) `@@ @(10Q \CHECKFLTFMT) (15Q \FLOATFORMAT 2 \FLOATFORMAT) () \CHECKFLTFMT D1 (L (0 FORMAT)) 1@di$dgdHhH3 ih@@l (56Q \LISPERROR) (12Q FLOAT) () NUMFORMATCODE D1 (L (1 SMASHCODE 0 FORMAT)) @NIL NIL () (PRETTYCOMPRINT APRINTCOMS) (RPAQQ APRINTCOMS ((COMS (* User-level print functions) (FNS PRIN1 PRIN2 PRIN3 PRIN4 PRINT PRINTCCODE PRINTLEVEL RADIX SPACES TERPRI FRESHLINE DEFPRINT LINELENGTH)) (COMS (* PRINT internals) (FNS \PRINDATUM \CKPOSBOUT \CKPOSSOUT \CONVERTNUMBER \LITPRIN \SYMBOL.ESCAPE.COUNT \PRINSTACKP \PRINTADDR \PRINSTRING \SOUT \OUTCHAR \FILEOUTCHARFN \TTYOUTCHARFN) (DECLARE: DONTCOPY (MACROS .FILELINELENGTH. .SPACECHECK.)) (SPECVARS \THISFILELINELENGTH)) (COMS (* Internal printing) (FNS \MAPPNAME PNAMESTREAMP ) (DECLARE: DONTCOPY (RESOURCES \MAPPNAMESTREAM) (MACROS PNAMESTREAMP)) (INITRESOURCES \MAPPNAMESTREAM ) (INITVARS (\PNAMEDEVICE (NCREATE (QUOTE FDEV) (\GETDEVICEFROMHOSTNAME (QUOTE NULL) T)))) (GLOBALVARS \PNAMEDEVICE)) (COMS (* Obsolete) (FNS \MAPCHARS)) (INITVARS (\CARPRINTLEVEL 1000) (\PRINTCRFLAG NIL) (\CDRPRINTLEVEL -1) (PLVLFILEFLG NIL) (\LINELENGTH 82) (\FLOATFORMAT T) (PRXFLG NIL) (\PRINTRADIX 10) (\SIGNFLAG T) (\DEFPRINTFNS NIL) (\RADIX.PREFIX (CHCON1 "|"))) (COMS (* PRINTNUM and friends) (FNS PRINTNUM FLTFMT \CHECKFLTFMT NUMFORMATCODE) (MACROS NUMFORMATCODE) (INITVARS (NILNUMPRINTFLG))) ( LOCALVARS . T) (GLOBALVARS \CARPRINTLEVEL \TCARPRINTLEVEL \PRINTCRFLAG \CDRPRINTLEVEL \TCDRPRINTLEVEL \LINELENGTH \FLOATFORMAT \PRINTRADIX \SIGNFLAG PRXFLG \DEFPRINTFNS \RADIX.PREFIX))) (/SETTOPVAL (QUOTE \\MAPPNAMESTREAM.GLOBALRESOURCE)) (RPAQ? \PNAMEDEVICE (NCREATE (QUOTE FDEV) (\GETDEVICEFROMHOSTNAME (QUOTE NULL) T))) (RPAQ? \CARPRINTLEVEL 1000) (RPAQ? \PRINTCRFLAG NIL) (RPAQ? \CDRPRINTLEVEL -1) (RPAQ? PLVLFILEFLG NIL) (RPAQ? \LINELENGTH 82) (RPAQ? \FLOATFORMAT T) (RPAQ? PRXFLG NIL) (RPAQ? \PRINTRADIX 10) (RPAQ? \SIGNFLAG T) (RPAQ? \DEFPRINTFNS NIL) (RPAQ? \RADIX.PREFIX (CHCON1 "|")) (PUTPROPS NUMFORMATCODE BYTEMACRO (= . PROG1)) (RPAQ? NILNUMPRINTFLG) (PUTPROPS APRINT COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL