(FILECREATED "30-Sep-86 12:27:53" ("compiled on " {ERIS}SOURCES>APRINT.;46) "27-Sep-86 00:33:58" recompiled changes: PRIN1 PRIN2 PRIN3 PRIN4 \LITPRIN in "Xerox Lisp 27-Sep-86 ..." dated "27-Sep-86 00:51:47") (FILECREATED "30-Sep-86 12:08:50" {ERIS}SOURCES>APRINT.;46 71559 changes to: (VARS APRINTCOMS) (MACROS NUMFORMATCODE) (FNS PRIN1 PRIN2 PRIN3 PRIN4 \LITPRIN) previous date: "18-Sep-86 11:41:01" {ERIS}SOURCES>APRINT.;44) PRIN1 D1 (L (1 FILE 0 X) P 10Q \THISFILELINELENGTH P 7 *PRINT-RADIX* P 6 *PRINT-ESCAPE* P 5 *PRINT-CASE* P 4 *PRINT-LENGTH* P 3 *PRINT-LEVEL* F 11Q *READTABLE* F 12Q \TERM.OFD F 13Q PLVLFILEFLG F 14Q *PRINT-CASE* F 15Q *PRINT-LEVEL* F 16Q *PRINT-LENGTH* F 17Q *INTERLISP-PRIN1-CASE*) S Ag !WÊ jðhðµ HWðµWY´WI´WWµW3HÈZdjð”¿`‡nÿÿð‘h€J_@Hj@(117Q \PRINDATUM 6 \GETSTREAM) (76Q \LINELENGTH 16Q READTABLEP 3 OUTPUT) () PRIN2 D1 (L (2 RDTBL 1 FILE 0 X) P 11Q \THISFILELINELENGTH P 10Q *PACKAGE* P 7 *PRINT-LENGTH* P 6 *PRINT-LEVEL* P 5 *PRINT-RADIX* P 4 *PRINT-ESCAPE* P 3 *READTABLE* F 12Q *READTABLE* F 13Q \TERM.OFD F 14Q PLVLFILEFLG F 15Q *PACKAGE* F 16Q *PRINT-BASE* F 17Q *PRINT-LEVEL* F 20Q *PRINT-LENGTH*) n Ag !B•Bdið’¿WbÊ jðhðµ HWðµW¹BiWl ðhðI´WI´W BÊ jð£`W HÈZdjð”¿`‡nÿÿð‘h€J_@Hj@(152Q \PRINDATUM 6 \GETSTREAM) (131Q \LINELENGTH 107Q *INTERLISP-PACKAGE* 26Q READTABLEP 3 OUTPUT) () PRIN3 D1 (L (1 FILE 0 X) P 7 \THISFILELINELENGTH P 6 *PRINT-RADIX* P 5 *PRINT-ESCAPE* P 4 *PRINT-CASE* P 3 *PRINT-LENGTH* P 2 *PRINT-LEVEL* F 10Q *READTABLE* F 11Q \TERM.OFD F 12Q PLVLFILEFLG F 13Q *PRINT-CASE* F 14Q *PRINT-LEVEL* F 15Q *PRINT-LENGTH* F 16Q *INTERLISP-PRIN1-CASE*) <Ag WÊ jðhðµ HWðµWY´WI´WWµW3@Hj@(70Q \PRINDATUM 6 \GETSTREAM) (16Q READTABLEP 3 OUTPUT) () PRIN4 D1 (L (2 RDTBL 1 FILE 0 X) P 10Q \THISFILELINELENGTH P 7 *PACKAGE* P 6 *PRINT-LENGTH* P 5 *PRINT-LEVEL* P 4 *PRINT-RADIX* P 3 *PRINT-ESCAPE* P 2 *READTABLE* F 11Q *READTABLE* F 12Q \TERM.OFD F 13Q PLVLFILEFLG F 14Q *PACKAGE* F 15Q *PRINT-BASE* F 16Q *PRINT-LEVEL* F 17Q *PRINT-LENGTH*) W Ag B•Bdið’¿WbÊ jðhðµ HWðµW¹BiWl ðhðI´WI´WBÊ jð£`W@Hj@(123Q \PRINDATUM 6 \GETSTREAM) (107Q *INTERLISP-PACKAGE* 26Q READTABLEP 3 OUTPUT) () PRINT D1 (L (2 RDTBL 1 FILE 0 X)) !Ag @HBHÉ ¹Hl lI@(17Q PRIN2 6 \GETSTREAM) (23Q STREAM 3 OUTPUT) () PRINTCCODE D1 (L (1 FILE 0 CHARCODE)) )Ag @d—¿j@ñ¡@ƒ@ HÉ ºHIlJ(26Q \ILLEGAL.ARG 6 \GETSTREAM) (35Q STREAM 3 OUTPUT) () PRINTLEVEL D1 (L (1 CDRVAL 0 CARVAL) F 0 *PRINT-LEVEL* F 1 *PRINT-LENGTH*) 6@µ(PµmÿQµmÿ@šj@ñhð´@c¿AšjAñhð´Ac¿b¿@b¿°ÑNIL NIL () RADIX D1 (L (0 N) F 1 *PRINT-BASE*) #Q@²@Hdœ¿kHñ¦Hdl$ñ”¿H c¿(34Q \INVALID.RADIX) NIL () SPACES D1 (L (1 FILE 0 N)) OAg 1HÈZdjð”¿`‡nÿÿð‘h€JYŸ@HÈØIñ”H ¿@djñ´HÉ »Hl lK¿kÙ°ê(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)) d@dlð²8dÊRlåjð²2¿@dÊRlåjð³¿@ÉÉ4@kH‘@ˆ@g bÈjð³@É @l lHih(103Q GETSTREAM) (122Q STREAM 110Q STREAM 100Q OUTPUT 57Q FDEV 52Q STREAM 33Q STREAM 13Q STREAM) () DEFPRINT D1 (L (1 FN 0 TYPE)) 1@d3 ” b`HµAš@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È@²#@3™k@ñ•@ ¿H@dið”¿nÿÿjØÍ¿(36Q \ILLEGAL.ARG 6 \GETSTREAM) (44Q STREAM 15Q STREAM 3 OUTPUT) () PRINT-CIRCLE-LOOKUP D1 (L (0 OBJECT) F 4 *PRINT-CIRCLE-NUMBER* F 5 *PRINT-CIRCLE-HASHTABLE* F 6 *READTABLE*) k@U 1Hdgð–¿hd gð²,VÊ To@»UºT¹KJI¿TkÔc¿i H3²VÊ Hoh o (150Q CL:ERROR 140Q VALUES 134Q CONCAT 124Q CHARACTER 104Q VALUES 71Q CL:PUTHASH 55Q CONCAT 45Q CHARACTER 24Q VALUES 4 GETHASH) (116Q READTABLEP 37Q READTABLEP 30Q T2 14Q T1) ( 145Q "Print-circle-lookup hashtable error!" 131Q "#" 52Q "=") PRINT-CIRCLE-LABEL-P D1 (L (0 OBJECT) F 1 *PRINT-CIRCLE-HASHTABLE*) @Q HgðµH3 ´H(4 GETHASH) (13Q T2) () PRINT-CIRCLE-SCAN D1 (L (0 OBJECT) F 4 *PRINT-ARRAY*) f@dlð² ¬@ @b¿¿°éhH ´H ið´ïT´ì@ ³å@ 1@d kó˜¿Hg@¹Hj»ºJKó´ÄIK¶ ¿KkÔ»°ð(135Q PRINT-CIRCLE-SCAN 115Q MAKE-ARRAY 101Q ARRAY-RANK 71Q ARRAY-TOTAL-SIZE 63Q PRINT-CIRCLE-ENTER 47Q ARRAY-ELEMENT-TYPE 41Q CL:ARRAYP 20Q PRINT-CIRCLE-SCAN 12Q PRINT-CIRCLE-ENTER) (111Q :DISPLACED-TO) () PRINT-CIRCLE-ENTER D1 (L (0 OBJECT) F 5 *PRINT-CIRCLE-HASHTABLE* F 6 THERE-ARE-CIRCLES) A@U AHµ@ºU¹JIghgð²@¼U»LKg¿icHgð‘io (76Q CL:ERROR 52Q CL:PUTHASH 26Q CL:PUTHASH 4 GETHASH) (63Q T2 47Q T2 33Q T1 23Q T1) ( 73Q "Print-circle-enter hashtable error!") \PRINDATUM D1 (L (2 CPL 1 STREAM 0 X) P 11Q *PRINT-ESCAPE* P 10Q *PRINT-LEVEL* F 12Q *READTABLE* F 13Q *PRINT-LENGTH* F 14Q *PRINT-CIRCLE-HASHTABLE* F 15Q *PRINT-LEVEL* F 16Q \THISFILELINELENGTH F 17Q *PRINT-BASE* F 20Q *PRINT-RADIX*) @dlð–¿@A dlð¢±Ê¿B£jb¿@W@ Z¸J¹H²AH ¿I–Al ¿H–I´‚±“Wµh»W² WÊ jðªjBñ³ëA WBñ²÷B»BkÔb¿Al( ¿Kµ5@AB¿@bd²3¿Al ¿W²ã@ ²ÝAo ¿@AB°kÔ[Wñ²ÇAi ŽžAo ¿@A ¿Al) hdkð¥dlð²Z¿`µMl& `µ<A@WZdœ¿kJñ¦Jdl$ñ”¿J iW ´WHI H¿I¿h¿°Äh¿°µdlð²R¿`µ1l& `µ A@HIAÉ`ð²`³i°h¿°àh¿°Ñ` H¿I¿dlð–¿@A lð•@A @di —¿@Aj qH`_²#Wd”BµjÙO¹@AjlI_µ‚±“WÊ jð³]W²AdÈlØWñ–¿A ¿AWÊ¼[É ºKLlJ¿AÉ ½Al Al{ H•HA ¿Al} AÉ ¾Al#lN¿@A ´þOd¿ OA O´èOb±ýg(1214Q \PRINDATUM 1170Q \PRINTADDR 1144Q \CKPOSBOUT 1135Q \LITPRIN 1126Q \CKPOSBOUT 1117Q \CKPOSBOUT 1111Q \PRINTADDR 1104Q \CKPOSSOUT 1073Q \LITPRIN 1014Q FRESHLINE 674Q TYPENAME 670Q PRINT-INSTANCE 660Q \INSTANCE-P 651Q \PRINSTACKP 637Q \PRINSTRING 611Q \CKPOSSOUT 606Q \CONVERT.FLOATING.NUMBER 527Q CONCAT 517Q ALLOCSTRING 445Q \CKPOSSOUT 442Q \CONVERTNUMBER 425Q \INVALID.RADIX 371Q CONCAT 361Q ALLOCSTRING 332Q \CKPOSBOUT 323Q \PRINDATUM 315Q \CKPOSSOUT 303Q \ELIDE.PRINT.TAIL 264Q \PRINDATUM 255Q \CKPOSSOUT 243Q PRINT-CIRCLE-LABEL-P 232Q \CKPOSBOUT 212Q \PRINDATUM 177Q \CKPOSBOUT 152Q \ELIDE.PRINT.ELEMENT 101Q \CKPOSBOUT 70Q \CKPOSSOUT 51Q \MVLIST 46Q PRINT-CIRCLE-LOOKUP 14Q \LITPRIN) (1150Q STREAM 1051Q STREAM 1033Q STREAM 1023Q READTABLEP 776Q STREAM 756Q READTABLEP 703Q \DEFPRINTFNS 622Q \\NUMSTR1.GLOBALRESOURCE 615Q \\NUMSTR.GLOBALRESOURCE 603Q \FLOATFORMAT 575Q \\NUMSTR.GLOBALRESOURCE 566Q \\NUMSTR1.GLOBALRESOURCE 555Q PRXFLG 547Q \PNAMEDEVICE 542Q STREAM 522Q \\NUMSTR1.GLOBALRESOURCE 510Q \\NUMSTR.GLOBALRESOURCE 473Q \\NUMSTR.GLOBALRESOURCE 464Q \\NUMSTR1.GLOBALRESOURCE 456Q \\NUMSTR1.GLOBALRESOURCE 451Q \\NUMSTR.GLOBALRESOURCE 364Q \\NUMSTR1.GLOBALRESOURCE 352Q \\NUMSTR.GLOBALRESOURCE 132Q READTABLEP) ( 1101Q " @ " 312Q " . " 252Q ". ") \ELIDE.PRINT.ELEMENT D1 (L (0 STREAM)) @HÉ ºHIlJ(3 \ELIDE.ELEMENT.CHAR) (12Q STREAM) () \ELIDE.ELEMENT.CHAR D1 (F 0 *READTABLE*) PÊ jð§PÊl&NIL (15Q READTABLEP 3 READTABLEP) () \ELIDE.PRINT.TAIL D1 (L (1 NOSPACEP 0 STREAM)) A³@É @l lH@ (32Q \SOUT 26Q \ELIDE.TAIL.STRING) (6 STREAM) () \ELIDE.TAIL.STRING D1 (F 0 *READTABLE*) PÊ jð¤ooNIL (3 READTABLEP) ( 22Q "--" 15Q "...") \CKPOSBOUT D1 (L (1 X 0 STREAM) F 1 \THISFILELINELENGTH) &Q²@dÈkØQñ–¿@ ¿@É @AlH(23Q FRESHLINE) (30Q STREAM 7 STREAM) () \CKPOSSOUT D1 (L (1 X 0 STREAM) F 7 \THISFILELINELENGTH) `W²AÈ@ÈØWñ”@ ¿AaHÈkÙ»HÉ¼KHÈØºHÊCjð‘h€i]¿KkØ[Jñ³M•LKÐÈ‚LKÂ¹@É ¾@IlN°Þh(30Q FRESHLINE) (121Q STREAM 15Q STREAM 7 STRINGP) () \CONVERTNUMBER D1 (L (5 NSB 4 NS 3 RDTBL 2 IGNORE 1 R 0 N)) @jð”o`j@ó¡@ƒj@ÙX¹DÈZkÙ»h¼Alð’CµDJmÿÔZIAÜ½l Mñ²&Ml0°'Ê jð²ãIlñ²ÝDKkÔ[lQ¿i¼°ÎMl ÙlAØ¿IAÛYjð²»H›DJmÿÔZl-¿Al ð’±ŒC¢±‡L’±‚@l ó¤A@ó³wAdlðš¿DJmÿÔZlx°Qlð™DJmÿÔZlo°CAlð™DJmÿÔZlb°4DJmÿÔZlr¿DJmÿÔZAl l0Ø¿l Aó³DJmÿÔZAl Ûl0Ø¿DJmÿÔZCÊ¿DJKE(432Q SUBSTRING 422Q RPLCHARCODE 401Q RPLCHARCODE 352Q RPLCHARCODE 344Q IMOD 327Q RPLCHARCODE 201Q RPLCHARCODE 153Q RPLCHARCODE 134Q RPLCHARCODE) (414Q READTABLEP 105Q READTABLEP 35Q STRINGP 32Q STRINGP) ( 7 "0") \LITPRIN D1 (L (1 STREAM 0 X) F 12Q \THISFILELINELENGTH F 13Q *READTABLE* F 14Q *PACKAGE* F 15Q *PRINT-ESCAPE* F 16Q *PRINT-CASE* F 17Q *PRINT-GENSYM*) W²{W!Wµ@HAId’ JW `@ÁÊ¶Yð“h¹°àIµW²Ùll: ZkHÊ¿°Æ`ðœkHÊ ºh¹°´@dW ”¿h¹°§dI ð‘klHÊ º°’W²@ÁÉÊAÈØWñ”A ¿j@Wgð´WÊjðhðs IÁÉ\Ê½IÁÊ jðhð^¿HkØXMñ³?N•LHÐÈ‚LHÂ»AJ²KlZó‘h€ilAKó‘h€i”Kl Ø€K_¿_É _¿OOlO°¼h(224Q FRESHLINE 171Q ALLOCSTRING 154Q FIND-EXTERNAL-SYMBOL 141Q FIND-EXACT-SYMBOL 125Q ALLOCSTRING 105Q RPLCHARCODE 74Q ALLOCSTRING 34Q \LITPRIN.INTERNAL 25Q PACKAGE-NAME-AS-SYMBOL) (234Q :DOWNCASE 113Q *KEYWORD-PACKAGE* 40Q *PACKAGE-FROM-INDEX*) () \LITPRIN.INTERNAL D1 (L (5 CHECKLENGTH 4 PKGSEPR 3 PKGNAME 2 STREAM 1 RDTBL 0 SYMBOL) F 37Q \THISFILELINELENGTH F 40Q *PRINT-CASE*) ¬@ÁÉÊAÊAÊ‡óPE¤Jjð³.@AEhð_mÿð™k_¿i_¿°jOñ™jOÙ_¿i»ˆOjð£i_¿E²,W>²(HOCµ‚±¥jDµ‚±•jBÈØØØØW>ñ”B ¿CµuDµkO²BÉ _¿BIlO¿K¢±ÁBÉ _¿BJlO¿j@BO0ÁÉ_4Ê_6¿O0ÁÊ jðhð_8¿O.kØ_.O6ñ²CBÉ _¿BJlOB ¿°’AB¿°‡È±ÿjA _¿jOñ¤O±ÿQjOÙ±ÿJO8—O4O.ÐÈ„O4O.Â_2Jð¥O2Ið²BÉ _¿BIlO¿BÉ _¿BO2lO±ÿvHkð².@ l.ð²%BÉ _ ¿BIlO ¿BÉ _"¿Bl.lO"O²AÊjðhð´ `É¼AÉ½j@iAÊjðhð´W@gðDO0ÁÉ_8Ê_:¿O0ÁÊ jðhð_<¿O.kØ_.O:ñ’±ºO<—O8O.ÐÈ„O8O.Â_6¿O²iLO6dlÿñ¨LO6Âð²6O6lÿñ²MÉ€œO6MÉ€ µjƒMO6Â^l@åjð³0O2§Nl$åjð³%BÉ _$¿BIlO$¿BÉ _&¿BO6lO&°2BO4²O6dlZó®¿lAO6ó¥O6l ØO6_,¿_*É _(¿O*O,lO(¿h_2¿±ÿ?h(1061Q GETHASH 546Q CHCON1 411Q \SYMBOL.ESCAPE.COUNT 372Q \LITPRIN.INTERNAL 362Q \SOUT 176Q FRESHLINE 52Q \SYMBOL.ESCAPE.COUNT) (1222Q STREAM 1141Q STREAM 1120Q STREAM 1054Q CHARTABLE 1043Q CHARTABLE 704Q :DOWNCASE 666Q READTABLEP 654Q READTABLEP 645Q ARRAYP 642Q UPPERCASEARRAY 626Q READTABLEP 600Q STREAM 557Q STREAM 515Q STREAM 474Q STREAM 400Q STRINGP 341Q STREAM 243Q STREAM 215Q STREAM 160Q STREAM 22Q READTABLEP 13Q READTABLEP) () \SYMBOL.ESCAPE.COUNT D1 (L (2 INEXACTOK 1 RDTBL 0 SYMBOL) F 16Q *READ-BASE*) ,j@jdiAÊ‡AÊAÊjðhð´ `ÉAÉY IÁÉ_Ê_¿IÁÊ jðhð_¿Mjð‘h½HkØXOñ’±„O–OHÐÈƒOHÂ_¿OžOdlÿñ©OOÂð²:Olÿñ²OÉ€OOÉ€ µ j„OOÂ_l@åjð³"L¨Ol$åjð³JkÔºM´OMð¤ONð—KkÔ»h¼°ƒB´üJKÕkó´õmþJjð²:@ÁÉÊdjð•¿M³êjkð—Ol.ð‘k@AÊ jð¢Wl ²àM³ÅmÿMœJdKÕkó–¿mþKÙJ(421Q \NUMERIC.PNAMEP 231Q GETHASH) (403Q READTABLEP 224Q CHARTABLE 212Q CHARTABLE 53Q READTABLEP 45Q ARRAYP 42Q UPPERCASEARRAY 26Q READTABLEP 17Q READTABLEP 10Q READTABLEP) () \NUMERIC.PNAMEP D1 (L (1 RADIX 0 SYMBOL) F 13Q *READTABLE* F 14Q *READ-BASE*) HgAµWÊ jð¢Wl lÙlAØ2j@B Ndlð²#¿NÉ_¿NÈkÙ]NÈØ_¿NÊCjð’h°!i°lð²6NÁÉ_Ê_¿NÁÊ jðhð_¿MkØ]Oñ²K¦J´‚±¹HgðhðN ^°šO–OMÐÈƒOMÂ_¿lAOñ²Ll0Oñ²7Ol-ð§Odl+ð–¿g±†l.ðœJ•L´hºj¹i°tOl/ð´^Hgð´fhOl9ñ³Mi»g°VOlzñ³?laOñ§Ol Ù_OlZñ³,OIñ³iºHgð¥Hgð‘i¼g°Hgð¦Hgð²ðhOl_ð¦Ol^ð´ôh¸±ÿ((211Q MKSTRING) (457Q FIRST 451Q LETTER 443Q LETTER 434Q FIRST 426Q LETTER 354Q DIGIT 333Q FIRST 274Q SIGN 201Q SIGN 12Q READTABLEP 2 FIRST) () \PRINSTACKP D1 (L (1 STREAM 0 X) F 3 \THISFILELINELENGTH F 4 *READTABLE*) ¥S²5@d ”¿l° lð›@ ÁÉÊlAÈlØØSñ”A ¿ATÊHÉ ºHIlJoA @A AÉ Al/lH@d –¿o° blð•@A ‡oA ¿AÉ Al>lH(221Q \SOUT 210Q \LITPRIN 174Q STKNAME 161Q RELSTKP 133Q \PRINTADDR 126Q \SOUT 64Q FRESHLINE 31Q STKNAME 20Q STKNAME 7 RELSTKP) (226Q STREAM 137Q STREAM 104Q STREAM 72Q READTABLEP 47Q STREAM) ( 215Q "*form*" 167Q "released" 122Q "