(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Jun-2021 21:13:01" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.;1) "13-Jun-2021 14:44:27" "COMPILE-FILEd" in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 14:44:40") (FILECREATED "16-May-90 14:19:58" {DSK}local>lde>lispcore>sources>CMLPRINT.;2 9569 changes to%: ( VARS CMLPRINTCOMS) previous date%: "16-Feb-88 11:47:48" {DSK}local>lde>lispcore>sources>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) (FUNCTIONS CL:WRITE-LINE) (INITVARS (XCL:*PRINT-STRUCTURE*)) ( 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))))) WRITE :D8 (L (0 -args-) P 37 THERE-ARE-CIRCLES P 36 *PRINT-CIRCLE-HASHTABLE* P 35 *PRINT-CIRCLE-NUMBER* P 34 *PRINT-CIRCLE* P 33 *PRINT-PRETTY* P 32 *PRINT-ARRAY* P 31 *PRINT-GENSYM* P 30 *PRINT-CASE* P 29 *PRINT-LENGTH* P 28 *PRINT-LEVEL* P 27 *PRINT-BASE* P 26 *PRINT-RADIX* P 25 *PRINT-ESCAPE* F 38 *STANDARD-OUTPUT* F 39 *PRINT-ESCAPE* F 40 *PRINT-PRETTY* F 41 *PRINT-RADIX* F 42 *PRINT-BASE* F 43 *PRINT-LEVEL* F 44 *PRINT-LENGTH* F 45 *PRINT-CIRCLE* F 46 *PRINT-CASE* F 47 *PRINT-GENSYM* F 48 *PRINT-ARRAY* F 49 *PRINT-CIRCLE-HASHTABLE*) h& ekañ€Hl»ºKJó¢±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"Lg \OD•Wb¢±&IL ¿±9Kdagð¦lÔ[±þÕkØa±þ×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 I(612 \WRITE1 597 PRINT-CIRCLE-SCAN 588 CL:MAKE-HASH-TABLE 298 \WRITE1 281 \GETSTREAM) (562 :CIRCLE 536 :PRETTY 510 :ARRAY 484 :GENSYM 458 :CASE 432 :LENGTH 406 :LEVEL 380 :BASE 354 :RADIX 331 :ESCAPE 310 :STREAM 276 OUTPUT) () CL:WRITE-CHAR :D8 (L (1 OUTPUT-STREAM 0 CHARACTER)) Ag @Ó @(22 \OUTCHAR 10 \GETSTREAM) (16 CHARACTER 5 OUTPUT) () CL:PRIN1 :D8 (L (1 OUTPUT-STREAM 0 OBJECT)) @gAgi (18 WRITE) (11 :ESCAPE 5 :STREAM) () CL:PRINT :D8 (L (0 -args-) F 3 *STANDARD-OUTPUT*) *ekalHñ‘S‚laZ IJ kJ ¿(38 SPACES 31 CL:PRIN1 24 TERPRI) NIL () CL:TERPRI :D8 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µP (8 TERPRI) NIL () CL:FRESH-LINE :D8 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µP (8 FRESHLINE) NIL () CL:FINISH-OUTPUT :D8 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µPi h(9 FORCEOUTPUT) NIL () CL:FORCE-OUTPUT :D8 (I 0 OUTPUT-STREAM F 0 *STANDARD-OUTPUT*) @µP h(8 FORCEOUTPUT) NIL () CL:CLEAR-OUTPUT :D8 (L (0 OUTPUT-STREAM)) hNIL NIL () CL:PPRINT :D8 (L (0 -args-) F 3 *STANDARD-OUTPUT*) 7ekalHñ‘S‚laZ 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 1 \THISFILELINELENGTH P 0 FONTCHANGEFLG F 2 *PRINT-PRETTY* F 3 *PRINT-CIRCLE* F 4 *PRINT-CIRCLE-HASHTABLE* F 5 *PRINT-ESCAPE*) 7R²S’T³U²@A hddA @Ag j (52 \PRINDATUM 46 \GETSTREAM 30 PRINTDEF 20 POSITION) (41 OUTPUT) () CL:WRITE-TO-STRING :D8 (L (0 -args-) P 31 *PRINT-GENSYM* P 30 *PRINT-ARRAY* P 29 *PRINT-CASE* P 28 *PRINT-LENGTH* P 27 *PRINT-LEVEL* P 26 *PRINT-PRETTY* P 25 *PRINT-CIRCLE* P 24 *PRINT-BASE* P 23 *PRINT-RADIX* P 22 *PRINT-ESCAPE* F 32 *PRINT-ESCAPE* F 33 *PRINT-RADIX* F 34 *PRINT-BASE* F 35 *PRINT-CASE* F 36 *PRINT-CIRCLE* F 37 *PRINT-PRETTY* F 38 *PRINT-ARRAY* F 39 *PRINT-LEVEL* F 40 *PRINT-LENGTH* F 41 *PRINT-GENSYM*) û ekañPHl»ºKJó¢±çW@Hl½¼MdLó¢±ì¿WBHl_¿¾OdNó¢±í¿WDHl_¿_¿OdOó¢±î¿WHHl_¿_¿OdOó¢±ï¿WJHl_¿_¿OdOó¢±ð¿WNHl_¿_¿OdOó¢±ñ¿WPHl_"¿_ ¿O"dO ó¢±ò¿WFHl_&¿_$¿O&dO$ó¢±ó¿WLHl_*¿_(¿O*dO(ó¢±ô¿WRI Kdagð¦lÔ[±ÿkØa±ÿ 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Ô_*±þð(250 \PRINDATUM.TO.STRING) (485 :GENSYM 459 :ARRAY 433 :CASE 407 :LENGTH 381 :LEVEL 355 :PRETTY 329 :CIRCLE 303 :BASE 280 :RADIX 259 :ESCAPE) () CL:PRIN1-TO-STRING :D8 (P 0 *PRINT-ESCAPE* I 0 OBJECT) i@ (9 \PRINDATUM.TO.STRING) NIL () CL:PRINC-TO-STRING :D8 (P 0 *PRINT-ESCAPE* I 0 OBJECT) @ (8 \PRINDATUM.TO.STRING) NIL () CL:WRITE-LINE :D8 (L (0 -args-) F 9 *STANDARD-OUTPUT*) v ekaqlHñ’W‚laºHl¼»LdKó²*¿j½Hl_¿¾OdNó².¿h_¿IJMO J ¿agð•LkØa°ÎLlÔ\°Àagð–OkØa°ÉOlÔ_°¹(69 CL:TERPRI 63 WRITE-STRING*) (98 :END 77 :START) () (RPAQ? XCL:*PRINT-STRUCTURE*) (PUTPROPS CMLPRINT FILETYPE :FAKE-COMPILE-FILE) (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) (FUNCTIONS CL:WRITE-LINE) (INITVARS (XCL:*PRINT-STRUCTURE*)) ( PROP FILETYPE CMLPRINT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:WRITE-TO-STRING CL:PPRINT CL:PRINT WRITE))))) (PUTPROPS CMLPRINT COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990)) NIL