(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 2-Nov-93 21:12:42" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>CMLMISCIO.;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:20:56" "{Pele:mv:envos}Sources>CLTL2>CMLMISCIO.;2" 6473 |previous| |date:| "25-Oct-91 22:41:18" "{Pele:mv:envos}Sources>CLTL2>CMLMISCIO.;1") (RPAQQ CMLMISCIOCOMS ((* |;;| "Random leftover IO functions") (* |;;| "[JDS 2/3/88: Removed FRESH-LINE from here, since it's also in CMLPRINT. AR #9601]") (FUNCTIONS CL:Y-OR-N-P CL:YES-OR-NO-P) (* |;;| "JRB - stuff that handles CL:*PRINT-READABLY*") (FUNCTIONS HANDLE-PRINT-READABLY CL::CHECK-READABLY) (FUNCTIONS CL:PRINT-UNREADABLE-OBJECT CL:WITH-STANDARD-IO-SYNTAX) (* |;;| "Arrange to use the proper compiler") (PROP FILETYPE CMLMISCIO))) CL::Y-OR-N-PA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 *QUERY-IO*) P (5 CL:READ-CHAR) NIL () CL::Y-OR-N-PA0001 :D8 (P 0 SI::*RESETFORMS*) /gi hhhg ¿$(40 SI::RESETUNWIND 35 \\MVLIST 30 CL::Y-OR-N-PA0001A0002 10 CONTROL) (25 SI::RESETUNWIND 4 CONTROL) () CL:Y-OR-N-P :D8 (L (0 |-args-|) F 14 *QUERY-IO*) &ekHñ‘hkaqHl2 OdOó²¿OºI²T¿gl¼»WIJ°9a_¿OµOh__¿OkÔ_°ÆO&_¿°òdýnLkØ\ñ¨hl4 ¿µêLK¿jg]Ó¾laNó©Ndlzó¤l Õ€NlalYóªlYdlzó¥l ÕlYð³5MÓ_¿laOóªOdlzó¥l ÕOlalNóªlNdlzó¥l ÕlNð²9MÓ_¿laOóªOdlzó¥l ÕOlalYóªlYdlzó¥l ÕlYðWo ±ÿT(289 CL:FORMAT 227 CL:FRESH-LINE 111 \\LISPERROR 41 CL:FRESH-LINE) (233 CHARACTER 177 CHARACTER 131 CHARACTER 124 CL::Y-OR-N-PA0001 47 CL:FORMAT) ( 284 "~&Please type either Y or N: ") CL:YES-OR-NO-P :D8 (L (0 |-args-|) F 11 *QUERY-IO*) ¹ekHñ‘hkaAHl2 OdNó²&¿OºI²[W ¿g l¼»WIJ°9a_¿OµOh__¿OkÔ_°ÀO&_¿°òdýnLkØ\ñ¨hl4 ¿µêLK¿W ]do ¿Mo ›Mo Wo °Æ(181 CL:FORMAT 168 CL::SIMPLE-STRING-EQUAL 156 CL::SIMPLE-STRING-EQUAL 143 CL::SIMPLE-STRING-EQUAL 131 CL:READ-LINE 117 \\LISPERROR 53 CL:SYMBOL-FUNCTION 42 CL:FRESH-LINE) (48 CL:FORMAT) ( 176 "Please type either YES or NO: " 163 "YES" 151 "NO" 138 "YES") HANDLE-PRINT-READABLY :D8 (F 0 *PRINT-ESCAPE* F 1 *PRINT-LEVEL* F 2 CL:*PRINT-READABLY* F 3 *PRINT-LENGTH* F 4 *PRINT-GENSYM* F 5 *PRINT-ARRAY* F 6 *PRINT-CIRCLE* F 7 XCL:*PRINT-STRUCTURE*) ichcdcicdc dcdcgcNIL (25 XCL::PRINTING-READABLY) () CL::CHECK-READABLYA0001 :D8 (F 0 XCL:*CURRENT-CONDITION*) Pg (10 TYPEP) (5 CL::PRINT-NOT-READABLE) () CL::CHECK-READABLYA0002 :D8 (L (0 STREAM)) o@ (10 CL:PRINC) NIL ( 4 "Print it anyway ") CL::CHECK-READABLYA0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 XCL::THING F 3 CL::WHERE F 4 A3374) *i@ggRgS cg(32 \\MVLIST 27 CL:ERROR) (39 :NORMAL 20 :WHERE 14 :THING 9 CL::PRINT-NOT-READABLE) () CL::CHECK-READABLY :D8 (P 1 *PROCEED-CASES* P 0 A3374 I 1 CL::WHERE I 0 XCL::THING F 2 CL:*PRINT-READABLY* F 3 *PROCEED-CASES*) XR´Ugggjgggggh SI dgð•¿H$jð´h(64 CL::CHECK-READABLYA0003 53 CONDITIONS::MAKE-RESTART) (71 :NORMAL 46 :INTERACTIVE-FN 41 CL::CHECK-READABLYA0002 36 :REPORT 31 CL::CHECK-READABLYA0001 26 :TEST 20 :SELECTOR 15 XCL::PRINT-IT-ANYWAY 10 :NAME) () CL::|expand-PRINT-UNREADABLE-OBJECT| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) c@HYºI[¼K½gM d¾gM d_¿H_¿Mo gOJhOLhOhgOhgoOhN´2gNgOoggOhOhhhO´=gOgoOhhgOgOoh hO´IgOgOgoOhhgoOhgOOhhhgoOho(348 CL:APPEND 242 CL:APPEND 80 CL:GENSYM 75 CL:GENSYM 70 CL:GENSYM 65 KEYWORD-TEST 43 FIND-KEYWORD 28 FIND-KEYWORD) (326 CL:WRITE-CHAR 305 \\PRINTADDR 289 WRITE-STRING* 269 CL:WRITE-CHAR 262 CL:WHEN 255 CL:WHEN 226 CL:SETQ 219 PROGN 199 CL:WRITE-CHAR 192 CL:WHEN 165 CL:TYPE-OF 160 WRITE 146 CL:SETQ 140 CL:WHEN 121 WRITE-STRING* 111 CL::CHECK-READABLY 88 LET 37 :IDENTITY 22 :TYPE) ( 342 (NIL) 331 #\> 294 "@ " 274 #\Space 233 (T) 204 #\Space 153 (T) 126 "#<" 60 (:IDENTITY :TYPE)) (SETF-MACRO-FUNCTION (QUOTE CL:PRINT-UNREADABLE-OBJECT) (QUOTE CL::|expand-PRINT-UNREADABLE-OBJECT|)) CL::|expand-WITH-STANDARD-IO-SYNTAX| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @goHNIL (9 LET) ( 14 ((*PACKAGE* (CL:FIND-PACKAGE "COMMON-LISP-USER")) (*PRINT-ARRAY* T) (*PRINT-BASE* 10) (*PRINT-CASE* :UPCASE) (*PRINT-CIRCLE* NIL) (*PRINT-ESCAPE* T) (*PRINT-GENSYM* T) (*PRINT-LENGTH* NIL) (*PRINT-LEVEL* NIL) (*PRINT-PRETTY* NIL) (*PRINT-RADIX* NIL) (CL:*PRINT-READABLY* T) (*READ-BASE* 10) (*READ-DEFAULT-FLOAT-FORMAT* (QUOTE CL:SINGLE-FLOAT)) (CL:*READ-EVAL* T) (*READ-SUPPRESS* NIL) (*READTABLE* (FIND-READTABLE "LISP")) (XP:*PRINT-LINES* NIL) (XP:*PRINT-MISER-WIDTH* NIL) (XP:*PRINT-PPRINT-DISPATCH* NIL) (XP:*PRINT-RIGHT-MARGIN* NIL) (XCL:*PRINT-STRUCTURE* T))) (SETF-MACRO-FUNCTION (QUOTE CL:WITH-STANDARD-IO-SYNTAX) (QUOTE CL::|expand-WITH-STANDARD-IO-SYNTAX|)) (PUTPROPS CMLMISCIO FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLMISCIO COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1993)) NIL