(FILECREATED "21-Jul-86 11:57:23" ("compiled on " {ERIS}LIBRARY>CMLPRINT.;22) "21-Jul-86 06:40:31" "COMPILE-FILEd" in "Xerox Lisp 21-Jul-86 ..." dated "21-Jul-86 06:54:28") (FILECREATED "25-Jun-86 16:02:38" {ERIS}LIBRARY>CMLPRINT.;22 8900 changes to: (VARS CMLPRINTCOMS) (FUNCTIONS WRITE-LINE) previous date: "17-Jun-86 14:32:00" {ERIS}LIBRARY>CMLPRINT.;21) (RPAQQ CMLPRINTCOMS ((FNS WRITE \WRITE1 WRITE-CHAR CL:PRIN1 CL:PRINT CL:TERPRI FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT PPRINT PRINC) (FNS WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING) (FUNCTIONS WRITE-LINE) (* WRITE-STRING is in CMLSTREAMS) (INITVARS (*PRINT-STRUCTURE* )) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WRITE-TO-STRING PRINC PPRINT CL:PRINT CL:PRIN1 WRITE-CHAR \WRITE1 WRITE))))) WRITE D1 (L (0 -args-) P 45Q THERE-ARE-CIRCLES P 44Q *PRINT-CIRCLE-HASHTABLE* P 43Q *PRINT-CIRCLE-NUMBER* P 42Q *PRINT-CIRCLE* P 41Q *PRINT-PRETTY* P 40Q *PRINT-ARRAY* P 37Q *PRINT-GENSYM* P 36Q *PRINT-CASE* P 35Q *PRINT-LENGTH* P 34Q *PRINT-LEVEL* P 33Q *PRINT-BASE* P 32Q *PRINT-RADIX* P 31Q *PRINT-ESCAPE* F 46Q *STANDARD-OUTPUT* F 47Q *PRINT-ESCAPE* F 50Q *PRINT-PRETTY* F 51Q *PRINT-RADIX* F 52Q *PRINT-BASE* F 53Q *PRINT-LEVEL* F 54Q *PRINT-LENGTH* F 55Q *PRINT-CIRCLE* F 56Q *PRINT-CASE* F 57Q *PRINT-GENSYM* F 60Q *PRINT-ARRAY* F 61Q *PRINT-CIRCLE-HASHTABLE*) @& ekañ€Hl»ºKdJó¢± ¿WL¼Hl¾½NdM󢱿WNHl_¿_¿OdOó¢± ¿WRHl_¿_¿OdOó¢± ¿WTHl_¿_¿OdOó¢± ¿WVHl_¿_¿OdO󢱿WXHl_ ¿_¿O dO󢱿W\Hl_$¿_"¿O$dO"󢱿W^Hl_(¿_&¿O(dO&󢱿W` Hl_,¿_*¿O,dO*󢱿WP!Hl_0¿_.¿O0dO.󢱿WZ"OD•Wb¢± IL Iagð–KkØa±þñKlÔ[±þßagð–NkØa±þíNlÔ^±þÛagð—OkØa±þðOlÔ_±þÛagð—OkØa±þñOlÔ_±þÜagð—OkØa±þòOlÔ_±þÝagð—OkØa±þóOlÔ_±þÞagð—O kØa±þôO lÔ_ ±þßagð—O$kØa±þõO$lÔ_$±þàagð—O(kØa±þöO(lÔ_(±þáagð—O,kØa±þ÷O,lÔ_,±þâagð—O0kØa±þøO0lÔ_0±þãk%I ¿OJ£h_H¿IL ±þã(1072Q \WRITE1 1055Q PRINT-CIRCLE-SCAN 1046Q MAKE-HASH-TABLE 436Q \WRITE1) (1016Q :CIRCLE 766Q :PRETTY 736Q :ARRAY 706Q :GENSYM 656Q :CASE 626Q :LENGTH 576Q :LEVEL 546Q :BASE 516Q :RADIX 471Q :ESCAPE 444Q :STREAM) () \WRITE1 D1 (L (1 STREAM 0 OBJECT) P 0 \THISFILELINELENGTH F 1 *PRINT-PRETTY*) Qš@hdddA @Ag j (33Q \PRINDATUM 27Q \GETSTREAM 13Q PRINTDEF) (24Q OUTPUT) () WRITE-CHAR D1 (L (0 -args-) F 5 *STANDARD-OUTPUT*) .eka1lHñ‘U‚lag I ¼[É ºKLlJI(34Q CHAR-INT 30Q \GETSTREAM) (41Q STREAM 25Q OUTPUT) () CL:PRIN1 D1 (L (0 -args-) F 3 *STANDARD-OUTPUT*) #ekalHñ‘S‚laºIgJgi (40Q WRITE) (33Q :ESCAPE 27Q :STREAM) () CL:PRINT D1 (L (0 -args-) F 3 *STANDARD-OUTPUT*) $ekalHñ‘S‚laZ IJ kJ ¿(40Q SPACES 33Q CL:PRIN1 26Q TERPRI) NIL () CL:TERPRI D1 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µP (6 TERPRI) NIL () FRESH-LINE D1 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µP (6 FRESHLINE) NIL () FINISH-OUTPUT D1 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µPi h(7 FORCEOUTPUT) NIL () FORCE-OUTPUT D1 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µP h(6 FORCEOUTPUT) NIL () CLEAR-OUTPUT D1 (L (0 OUTPUT-STREAM)) hNIL NIL () PPRINT D1 (L (0 -args-) F 3 *STANDARD-OUTPUT*) -ekalHñ‘S‚laZ IgJgigi (52Q VALUES 47Q WRITE 26Q TERPRI) (42Q :PRETTY 36Q :ESCAPE 32Q :STREAM) () PRINC D1 (L (0 -args-) F 3 *STANDARD-OUTPUT*) #ekalHñ‘S‚laºIgJgh (40Q WRITE) (33Q :ESCAPE 27Q :STREAM) () WRITE-TO-STRING D1 (L (0 -args-) P 37Q *PRINT-GENSYM* P 36Q *PRINT-ARRAY* P 35Q *PRINT-CASE* P 34Q *PRINT-LENGTH* P 33Q *PRINT-LEVEL* P 32Q *PRINT-PRETTY* P 31Q *PRINT-CIRCLE* P 30Q *PRINT-BASE* P 27Q *PRINT-RADIX* P 26Q *PRINT-ESCAPE* F 40Q *PRINT-ESCAPE* F 41Q *PRINT-RADIX* F 42Q *PRINT-BASE* F 43Q *PRINT-CASE* F 44Q *PRINT-CIRCLE* F 45Q *PRINT-PRETTY* F 46Q *PRINT-ARRAY* F 47Q *PRINT-LEVEL* F 50Q *PRINT-LENGTH* F 51Q *PRINT-GENSYM*) ç ekañPHl»ºKdJó¢±æ¿W@Hl½¼MdLó¢±è¿WBHl_¿¾OdNó¢±ç¿WDHl_¿_¿OdOó¢±æ¿WHHl_¿_¿OdOó¢±å¿WJHl_¿_¿OdOó¢±ä¿WNHl_¿_¿OdOó¢±ã¿WPHl_"¿_ ¿O"dO ó¢±â¿WFHl_&¿_$¿O&dO$ó¢±á¿WLHl_*¿_(¿O*dO(ó¢±à¿WRI agð–KkØa±ÿKlÔ[±ÿagð–MkØa±ÿMlÔ]±ÿagð—OkØa±ÿOlÔ_±ÿagð—OkØa±ÿOlÔ_±ÿagð—OkØa±ÿOlÔ_±ÿagð—OkØa±ÿOlÔ_±ÿagð—OkØa±ÿOlÔ_±ÿagð—O"kØa±ÿO"lÔ_"±ÿagð—O&kØa±ÿO&lÔ_&±ÿagð—O*kØa±ÿO*lÔ_*±ÿ(372Q \PRINDATUM.TO.STRING) (721Q :GENSYM 671Q :ARRAY 641Q :CASE 611Q :LENGTH 561Q :LEVEL 531Q :PRETTY 501Q :CIRCLE 451Q :BASE 424Q :RADIX 377Q :ESCAPE) () PRIN1-TO-STRING D1 (P 0 *PRINT-ESCAPE* I 0 OBJECT) i@ (7 \PRINDATUM.TO.STRING) NIL () PRINC-TO-STRING D1 (P 0 *PRINT-ESCAPE* I 0 OBJECT) @ (6 \PRINDATUM.TO.STRING) NIL () WRITE-LINE D1 (L (0 -args-) F 11Q *STANDARD-OUTPUT*) x ekaqlHñ’W‚laºHl¼»LdKó²0¿j½Hl_¿¾OdNó²2¿I _¿IJgMgO J ¿agð•LkØa°ÊLlÔ\°¼agð–OkØa°ÊOlÔ_°·(113Q CL:TERPRI 107Q WRITE-STRING 65Q CL:LENGTH) (144Q :END 121Q :START 101Q :END 75Q :START) () (RPAQ? *PRINT-STRUCTURE*) (PUTPROPS CMLPRINT COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP