(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "14-Jun-2021 23:16:31" ("compiled on " |{DSK}kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.;1|) "14-Jun-2021 22:45:51" "COMPILE-FILEd" |in| "FULL 14-Jun-2021 ..." |dated| "14-Jun-2021 22:46:04") (FILECREATED "16-May-90 13:33:00" |{DSK}local>lde>lispcore>sources>CMLMISCIO.;2| 4328 |changes| |to:| (VARS CMLMISCIOCOMS) |previous| |date:| " 3-Feb-88 10:31:05" |{DSK}local>lde>lispcore>sources>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:WRITE-STRING WRITE-STRING* CL:Y-OR-N-P CL:YES-OR-NO-P) (* |;;| "Arrange to use the proper compiler" ) (PROP FILETYPE CMLMISCIO))) CL:WRITE-STRING :D8 (L (0 |-args-|) F 9 *STANDARD-OUTPUT*) p ekaqlHWlaHlLdK$jHl_OdN(h_IJMO IagLkaLl\agOkaOl_(63 WRITE-STRING*) (92 :END 71 :START) () WRITE-STRING* :D8 (L (0 |-args-|) P 9 \\THISFILELINELENGTH F 14 *STANDARD-OUTPUT*) #ekaQlHWlalHjlalHhlaI I^ ^LM\jKjKMeKL`LM[LKJg  OjOOJOJ Idj- )igNgh YoKL lDIdj KIdj LIdj  OO#OOOOOO Ok_I(277 \\OUTCHAR 240 %ARRAY-OFFSET 222 %ARRAY-OFFSET 205 %ARRAY-BASE 184 ASSERT-FAIL 169 CHECK-TYPE-FAIL 148 %ARRAY-TYPE-NUMBER 133 FRESHLINE 97 \\GETSTREAM 56 CL:STRINGP 48 CL:LENGTH) (162 STRING 156 STRING 120 STREAM 92 OUTPUT) ( 177 "Start (~D) or end (~D) argument out of bounds.") 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*) &ekHhkaqHl2 OdOOITglWIJ9a_OOh__Ok_O&_dnLk\hl4 LKjg]ӾlaNNdlzl ՀNlalYlYdlzl ՁlY5M_laOOdlzl ՁOlalNlNdlzl ՁlN9M_laOOdlzl ՁOlalYlYdlzl ՁlYWo 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*) ekHhkaAHl2 OdN&OI[W g lWIJ9a_OOh__Ok_O&_dnLk\hl4 LKW ]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") (PUTPROPS CMLMISCIO FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLMISCIO COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990)) NIL