(FILECREATED "25-Jun-86 16:03:09" ("compiled on " {ERIS}LIBRARY>CMLPRINT.;22) "20-Jun-86 18:18:42" "COMPILE-FILEd" in "Xerox Lisp 20-Jun-86 ..." dated "20-Jun-86 18:35:11") (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 44Q THERE-ARE-CIRCLES P 43Q *PRINT-CIRCLE-HASHTABLE* P 42Q *PRINT-CIRCLE-NUMBER* P 41Q *PRINT-CIRCLE* P 40Q *PRINT-PRETTY* 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 45Q *STANDARD-OUTPUT* F 46Q *PRINT-ESCAPE* F 47Q *PRINT-RADIX* F 50Q *PRINT-PRETTY* F 51Q *PRINT-BASE* F 52Q *PRINT-LEVEL* F 53Q *PRINT-CIRCLE* F 54Q *PRINT-LENGTH* F 55Q *PRINT-CASE* F 56Q *PRINT-GENSYM* F 57Q *PRINT-CIRCLE-HASHTABLE*) 6% ekañ€Hl»ºKdJ󢱿WJ¼Hl¾½NdMó¢± ¿WLHl_¿_¿OdO󢱿WNHl_¿_¿OdO󢱿WRHl_¿_¿OdO󢱿WTHl_¿_¿OdO󢱿WXHl_ ¿_¿O dO󢱿WZHl_$¿_"¿O$dO"󢱿W\Hl_(¿_&¿O(dO&󢱿Hl_,¿_*¿O,dO*ó¢±ÿ¿WP Hl_0¿_.¿O0dO.ó¢±þ¿WV!OB•W^¢±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(lÔ_(±þëagð—O,kØa±þüO,lÔ_,±þçagð—O0kØa±þýO0lÔ_0±þèk$I ¿OH£h_F¿IL ±þè(1060Q \WRITE1 1043Q PRINT-CIRCLE-SCAN 1034Q MAKE-HASH-TABLE 431Q \WRITE1) (1004Q :CIRCLE 754Q :PRETTY 731Q :ARRAY 701Q :GENSYM 651Q :CASE 621Q :LENGTH 571Q :LEVEL 541Q :BASE 511Q :RADIX 464Q :ESCAPE 437Q :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 2 *STANDARD-OUTPUT*) #ekalHñ‘R‚lag I I(37Q \OUTCHAR 34Q CHAR-INT 30Q \GETSTREAM) (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 36Q *PRINT-GENSYM* 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 37Q *PRINT-ESCAPE* F 40Q *PRINT-RADIX* F 41Q *PRINT-BASE* F 42Q *PRINT-LENGTH* F 43Q *PRINT-CIRCLE* F 44Q *PRINT-CASE* F 45Q *PRINT-PRETTY* F 46Q *PRINT-LEVEL* F 47Q *PRINT-GENSYM*) Ý ekañPHl»ºKdJó¢±á¿W>Hl½¼MdLó¢±ã¿W@Hl_¿¾OdNó¢±â¿WBHl_¿_¿OdOó¢±á¿WFHl_¿_¿OdOó¢±à¿WJHl_¿_¿OdOó¢±ß¿WLHl_¿_¿OdOó¢±Þ¿WDHl_"¿_ ¿O"dO ó¢±Ý¿WHHl_&¿_$¿O&dO$ó¢±Ü¿Hl_*¿_(¿O*dO(ó¢±Û¿WNI 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&lÔ_&±ÿagð—O*kØa±ÿ O*lÔ_*±ÿ (365Q \PRINDATUM.TO.STRING) (707Q :GENSYM 664Q :ARRAY 634Q :CASE 604Q :LENGTH 554Q :LEVEL 524Q :PRETTY 474Q :CIRCLE 444Q :BASE 417Q :RADIX 372Q :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