(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Nov-93 00:10:02" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLPRINT.;1 ) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 14:35:18" "{Pele:mv:envos}Sources>CLTL2>CMLPRINT.;2" 16374 previous date%: " 8-Jul-92 17:21:55" "{Pele:mv:envos}Sources>CLTL2>CMLPRINT.;1") (RPAQQ CMLPRINTCOMS ((FNS WRITE CL:WRITE-CHAR CL:PRIN1 CL:PRINT CL:TERPRI CL:FRESH-LINE CL:FINISH-OUTPUT CL:FORCE-OUTPUT CL:CLEAR-OUTPUT CL:PPRINT CL:PRINC) (FUNCTIONS \WRITE1) (FNS CL:WRITE-TO-STRING CL:PRIN1-TO-STRING CL:PRINC-TO-STRING) (FNS WRITE-STRING*) (FUNCTIONS CL:WRITE-STRING CL:WRITE-LINE) ( INITVARS (XCL:*PRINT-STRUCTURE*)) (VARIABLES CL:*PRINT-READABLY*) (PROP FILETYPE CMLPRINT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:WRITE-TO-STRING CL:PRINC CL:PPRINT CL:PRINT CL:PRIN1 CL:WRITE-CHAR WRITE))))) CL::WRITEA0001 :D8 (L (1 CL::O 0 CL::S)) A@ (6 XP::WRITE+) #:NIL () WRITE :D8 (L (0 -args-) P 52 THERE-ARE-CIRCLES P 51 *PRINT-CIRCLE-HASHTABLE* P 50 *PRINT-CIRCLE-NUMBER* P 49 CL:*PRINT-READABLY* P 48 XP:*PRINT-MISER-WIDTH* P 47 XP:*PRINT-LINES* P 46 XP:*PRINT-RIGHT-MARGIN* P 45 XP:*PRINT-PPRINT-DISPATCH* P 44 *PRINT-CIRCLE* P 43 *PRINT-PRETTY* P 42 *PRINT-ARRAY* P 41 *PRINT-GENSYM* P 40 *PRINT-CASE* P 39 *PRINT-LENGTH* P 38 *PRINT-LEVEL* P 37 *PRINT-BASE* P 36 *PRINT-RADIX* P 35 *PRINT-ESCAPE* F 53 *STANDARD-OUTPUT* F 54 *PRINT-ESCAPE* F 55 XP:*PRINT-LINES* F 56 *PRINT-RADIX* F 57 *PRINT-BASE* F 58 *PRINT-LEVEL* F 59 *PRINT-LENGTH* F 60 XP:*PRINT-RIGHT-MARGIN* F 61 *PRINT-CASE* F 62 *PRINT-GENSYM* F 63 *PRINT-CIRCLE-HASHTABLE* F 64 CL:*PRINT-READABLY* F 65 *PRINT-ARRAY* F 66 *PRINT-PRETTY* F 67 *PRINT-CIRCLE* F 68 XP:*PRINT-MISER-WIDTH* F 69 XP:*PRINT-PPRINT-DISPATCH*) 5eka0"HlKJWjHlNdMWl#Hl__OdOWp$Hl__OdOWr%Hl__OdOWt&Hl__OdOWv'Hl_ _O dOWz(Hl_$_"O$dO"W|)Hl_(_&O(dO&W*Hl_,_*O,dO*W+Hl_0_.O0dO.W,Hl_4_2O4dO2W-Hl_8_6O8dO6Wx.Hl_<_:OO@dO>W0Hl_D_BODdOBW1Lg \ObOVL IL Kdagl[HkaJagNkaLNl^:agOkaMOl_8agOkaLOl_7agOkaKOl_6agOkaJOl_5agO kaIO l_ 4agO$kaHO$l_$3agO(kaGO(l_(2agO,kaFO,l_,1agO0kaEO0l_00agO4kaDO4l_4/agO8kaCO8l_8.agOU!i1A@ӻZ(JKlIA@I(IJlK@(29 XP::WRITE-CHAR+ 21 XP::XP-STRUCTURE-P 10 \GETSTREAM) (83 STREAM 73 CHARACTER 54 STREAM 46 CHARACTER 5 OUTPUT) () CL:PRIN1 :D8 (L (1 OUTPUT-STREAM 0 OBJECT)) @gAgi (18 WRITE) (11 :ESCAPE 5 :STREAM) () CL::PRINTA0001 :D8 (L (1 CL::O 0 CL::S)) A@ (6 XP::WRITE+) #:NIL () CL:PRINT :D8 (L (0 -args-) P 3 *PRINT-ESCAPE* F 4 *STANDARD-OUTPUT* F 5 *PRINT-PRETTY* F 6 CL:*PRINT-READABLY*) yekalHTlag ZUAV>d (gJ iIJ oJ &gJI J IJ kJ I(117 SPACES 109 CL:PRIN1 101 TERPRI 93 XP::MAYBE-INITIATE-XP-PRINTING 78 XP::WRITE-CHAR++ 66 XP::BASIC-WRITE 54 XP::PPRINT-NEWLINE+ 41 XP::XP-STRUCTURE-P 28 \GETSTREAM) (86 CL::PRINTA0001 48 :UNCONDITIONAL 23 OUTPUT) ( 72 #\Space) CL:TERPRI :D8 (I 0 STREAM F 0 *PRINT-PRETTY* F 1 *STANDARD-OUTPUT*) !P@ g@ @Q (30 TERPRI 20 XP::PPRINT-NEWLINE+ 8 XP::XP-STRUCTURE-P) (14 :UNCONDITIONAL) () CL:FRESH-LINE :D8 (I 0 STREAM F 0 *PRINT-PRETTY*) @@g bP*d "@id j@ g@ ih@ (61 FRESHLINE 51 XP::PPRINT-NEWLINE+ 38 XP::LP<-BP 31 XP::ATTEMPT-TO-OUTPUT 21 XP::XP-STRUCTURE-P 10 \GETSTREAM) (45 :FRESH 5 OUTPUT) () CL:FINISH-OUTPUT :D8 (I 0 STREAM) '@g bd @id @i h(35 FORCEOUTPUT 27 XP::ATTEMPT-TO-OUTPUT 18 XP::XP-STRUCTURE-P 10 \GETSTREAM) (5 OUTPUT) () CL:FORCE-OUTPUT :D8 (I 0 STREAM) &@g bd @id @ h(34 FORCEOUTPUT 27 XP::ATTEMPT-TO-OUTPUT 18 XP::XP-STRUCTURE-P 10 \GETSTREAM) (5 OUTPUT) () CL:CLEAR-OUTPUT :D8 (P 0 XP::*LOCATING-CIRCULARITIES* I 0 STREAM) #@g b j@id h(31 XP::ATTEMPT-TO-OUTPUT 17 XP::XP-STRUCTURE-P 10 \GETSTREAM) (5 OUTPUT) () CL:PPRINT :D8 (L (0 -args-) F 3 *STANDARD-OUTPUT*) 7ekalHSlaZ IgJgigi $(49 WRITE 24 TERPRI) (42 :PRETTY 36 :ESCAPE 30 :STREAM) () CL:PRINC :D8 (L (1 OUTPUT-STREAM 0 OBJECT)) @gAgh (18 WRITE) (11 :ESCAPE 5 :STREAM) () \WRITE1 :D8 (L (1 STREAM 0 OBJECT) P 0 \THISFILELINELENGTH) @Ag j (20 \PRINDATUM 14 \GETSTREAM) (9 OUTPUT) () CL::WRITE-TO-STRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CL::S F 1 OBJECT F 2 A3612) !QgP P hc$(23 \MVLIST 18 CL:GET-OUTPUT-STREAM-STRING 11 WRITE) (5 :STREAM) () CL::WRITE-TO-STRINGA0002 :D8 (F 0 CL::S F 1 A3612) PgQ (11 CL:CLOSE) (5 :ABORT) () CL:WRITE-TO-STRING :D8 (L (0 -args-) P 43 A3612 P 42 CL::S P 41 *PRINT-GENSYM* P 40 *PRINT-ARRAY* P 39 *PRINT-CASE* P 38 *PRINT-LENGTH* P 37 *PRINT-LEVEL* P 36 *PRINT-PRETTY* P 35 *PRINT-CIRCLE* P 34 *PRINT-BASE* P 33 *PRINT-RADIX* P 32 *PRINT-ESCAPE* P 1 OBJECT F 44 *PRINT-ESCAPE* F 45 *PRINT-RADIX* F 46 *PRINT-BASE* F 47 XP:*PRINT-LINES* F 48 *PRINT-CIRCLE* F 49 *PRINT-PRETTY* F 50 XP:*PRINT-RIGHT-MARGIN* F 51 *PRINT-LEVEL* F 52 *PRINT-LENGTH* F 53 XP:*PRINT-MISER-WIDTH* F 54 XP:*PRINT-PPRINT-DISPATCH* F 55 *PRINT-CASE* F 56 *PRINT-ARRAY* F 57 CL:*PRINT-READABLY* F 58 *PRINT-GENSYM*) ',ekaHlKJWX HlMdLWZ!Hl_OdNW\"Hl__OdOW`#Hl__OdOWb$Hl__OdOWf%Hl__OdOWh&Hl_"_ O"dO Wn'Hl_&_$O&dO$Wp(Hl_*_(O*dO(Wt)Hl_._,O.dO,WlHl_2_0O2dO0WdHl_6_4O6dO4W^Hl_:_8O:dO8WjHl_>_dO<WrOHi+g OTgOV $Kdagl[ekagagMkakMl]YagOkaiOl_UagOkahOl_SagOkagOl_RagOkafOl_QagOkaeOl_PagO"kadO"l_"OagO&kacO&l_&NagO*kabO*l_*MagO.kaaO.l_.LagO2ka^O2l_2IagO6ka[O6l_6FagO:kaXO:l_:CagO>kaUO>l_>@I (804 \PRINDATUM.TO.STRING 409 CL:CLOSE 395 \MVLIST 390 CL::WRITE-TO-STRINGA0001 376 MAKE-FILL-POINTER-OUTPUT-STREAM 364 HANDLE-PRINT-READABLY) (778 :READABLY 752 :MISER-WIDTH 726 :LINES 700 :RIGHT-MARGIN 674 :PPRINT-DISPATCH 648 :GENSYM 622 :ARRAY 596 :CASE 570 :LENGTH 544 :LEVEL 518 :PRETTY 492 :CIRCLE 466 :BASE 443 :RADIX 422 :ESCAPE 402 :ABORT 385 CL::WRITE-TO-STRINGA0002) () CL::PRIN1-TO-STRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CL::S F 1 OBJECT F 2 A3613) !QgP P hc$(23 \MVLIST 18 CL:GET-OUTPUT-STREAM-STRING 11 WRITE) (5 :STREAM) () CL::PRIN1-TO-STRINGA0002 :D8 (F 0 CL::S F 1 A3613) PgQ (11 CL:CLOSE) (5 :ABORT) () CL:PRIN1-TO-STRING :D8 (P 2 A3613 P 1 CL::S P 0 *PRINT-ESCAPE* I 0 OBJECT F 3 CL:*PRINT-READABLY* F 4 *PRINT-PRETTY*) AiS@ T+ig IgJ $@ (62 \PRINDATUM.TO.STRING 51 CL:CLOSE 39 \MVLIST 34 CL::PRIN1-TO-STRINGA0001 20 MAKE-FILL-POINTER-OUTPUT-STREAM 11 CL:WRITE-TO-STRING) (45 :ABORT 29 CL::PRIN1-TO-STRINGA0002) () CL::PRINC-TO-STRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CL::S F 1 OBJECT F 2 A3614) !QgP P hc$(23 \MVLIST 18 CL:GET-OUTPUT-STREAM-STRING 11 WRITE) (5 :STREAM) () CL::PRINC-TO-STRINGA0002 :D8 (F 0 CL::S F 1 A3614) PgQ (11 CL:CLOSE) (5 :ABORT) () CL:PRINC-TO-STRING :D8 (P 2 A3614 P 1 CL::S P 0 *PRINT-ESCAPE* I 0 OBJECT F 3 CL:*PRINT-READABLY* F 4 *PRINT-PRETTY*) @S@ T+ig IgJ $@ (61 \PRINDATUM.TO.STRING 50 CL:CLOSE 38 \MVLIST 33 CL::PRINC-TO-STRINGA0001 19 MAKE-FILL-POINTER-OUTPUT-STREAM 10 CL:WRITE-TO-STRING) (44 :ABORT 28 CL::PRINC-TO-STRINGA0002) () WRITE-STRING* :D8 (P 10 END P 9 OFFSET P 8 BASE P 7 FATP P 6 \THISFILELINELENGTH P 5 CHARS-TO-PRINT P 4 CHECK-TYPE3615 P 0 STRING-LENGTH I 3 END I 2 START I 1 STREAM I 0 STRING F 11 *STANDARD-OUTPUT* F 12 CL:*PRINT-READABLY* F 13 *PRINT-PRETTY*) 6 AWbWg@g WA @ABC @@ 1Bjb@L OCHbjB[BHVBCQCHLCBMjNMANA @j0@ ,igLgh boBC @lD@j@ @B@j@ @C@j@ @ OO)AOOOOO»Z(JKlIOk_(248 %%ARRAY-OFFSET 229 %%ARRAY-OFFSET 211 %%ARRAY-BASE 189 ASSERT-FAIL 172 CHECK-TYPE-FAIL 151 %%ARRAY-TYPE-NUMBER 136 FRESHLINE 74 CL:STRINGP 55 CL:LENGTH 47 XP::WRITE-STRING+ 37 XP::XP-STRUCTURE-P 26 CL::CHECK-READABLY) (289 STREAM 165 STRING 159 STRING 124 STREAM 21 WRITE-STRING* 13 XCL::PRINTING-READABLY) ( 182 "Start (~D) or end (~D) argument out of bounds.") CL:WRITE-STRING :D8 (L (0 -args-) F 9 *STANDARD-OUTPUT*)  ekaqlHWlaHlLdK3jHl_OdN7I _IJg MO IagLkaLl\agOkaOl_(78 WRITE-STRING* 70 \GETSTREAM 55 CL:LENGTH) (107 :END 86 :START 65 OUTPUT) () CL:WRITE-LINE :D8 (L (0 -args-) F 9 *STANDARD-OUTPUT* F 10 CL:*PRINT-READABLY* F 11 *PRINT-PRETTY*) ekaqlHWlaHlLdK]jHl_OdNah_Jg ZWgIg WOJ GIJMO gJ @agLkaLl\agOkaOl_IJMO J I(184 CL:TERPRI 177 WRITE-STRING* 120 XP::PPRINT-NEWLINE+ 108 XP::WRITE-STRING+ 96 XP::XP-STRUCTURE-P 85 CL::CHECK-READABLY 64 \GETSTREAM) (149 :END 128 :START 114 :UNCONDITIONAL 80 CL:WRITE-LINE 72 XCL::PRINTING-READABLY 59 OUTPUT) () (RPAQ? XCL:*PRINT-STRUCTURE*) (CL:PROCLAIM (QUOTE (CL:SPECIAL CL:*PRINT-READABLY*))) (OR (BOUNDP (QUOTE CL:*PRINT-READABLY*)) (CL:SETQ CL:*PRINT-READABLY* #:NIL)) (PUTPROPS CMLPRINT FILETYPE :FAKE-COMPILE-FILE) (PUTPROPS CMLPRINT COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991 1992 1993)) #:NIL