(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8) (FILECREATED "25-Feb-2026 23:00:30" ("compiled on " {WMEDLEY}CMLREAD.;24) "25-Feb-2026 17:00:12" "COMPILE-FILEd" in "FULL 25-Feb-2026 ..." dated "25-Feb-2026 17:00:21") (FILECREATED "25-Feb-2026 11:51:19" {WMEDLEY}CMLREAD.;24 12180 :EDIT-BY rmk :CHANGES-TO (VARS CMLREADCOMS) (FUNCTIONS WITH-READER-ENVIRONMENT) :PREVIOUS-DATE "25-Feb-2026 09:25:29" {WMEDLEY}CMLREAD.;21) (RPAQQ CMLREADCOMS ((COMS (* ;; "Misc Common Lisp reader functions") (FNS CL:COPY-READTABLE) (FNS CL:READ-LINE CL:READ-CHAR CL:UNREAD-CHAR CL:PEEK-CHAR CL:LISTEN CL:READ-CHAR-NO-HANG CL:CLEAR-INPUT CL:READ-FROM-STRING CL:READ-BYTE CL:WRITE-BYTE) (* ; "must turn off packed version of CLISP infix") ( VARS (CLISPCHARS (LDIFFERENCE CLISPCHARS (QUOTE (- *)))) (CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) ( DWIMINMACROSFLG)) (VARIABLES *READ-DEFAULT-FLOAT-FORMAT*) (GLOBALVARS CMLRDTBL READ-LINE-RDTBL)) (COMS (FUNCTIONS WITH-READER-ENVIRONMENT) (PROP INFO WITH-READER-ENVIRONMENT) (ADDVARS (SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*)) (GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*) (INITVARS (*COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE â† (CL:FIND-PACKAGE "USER") REREADTABLE â† CMLRDTBL REBASE â† 10 REFORMAT â† :MCCS)))) (PROP FILETYPE CMLREAD) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:READ-BYTE CL:READ-FROM-STRING CL:CLEAR-INPUT CL:READ-CHAR-NO-HANG CL:PEEK-CHAR CL:UNREAD-CHAR CL:READ-CHAR CL:READ-LINE CL:COPY-READTABLE))))) CL:COPY-READTABLE :D8 (L (0 -args-) F 3 *READTABLE*) KekHñ‘SkalHñ‘h‚laºIµJ¥IµYJµ d I J(71 RESETREADTABLE 59 COPYREADTABLE 44 CMLRDTBL 35 CMLRDTBL) (65 READTABLEP 49 READTABLEP) () CL:READ-LINE :D8 (L (0 -args-)) ’ekHñ‘hkaalHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼Ig YJ³L³dÉ É<½IdkM’KI` ¾IÉ É<_¿IdkO–¿Ni$ Nh$(138 READCCODE 100 RSTRING 58 \GETSTREAM) (114 FDEV 107 STREAM 95 READ-LINE-RDTBL 78 FDEV 71 STREAM 53 INPUT) () CL:READ-CHAR :D8 (L (0 -args-) F 8 *STANDARD-INPUT*) pekHñ’WkaalHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼Ig ½J³L³MÉ É<¾MdkN’KM _Òlð´lOÑ(96 READCCODE 59 \GETSTREAM) (79 FDEV 72 STREAM 54 INPUT) () CL:UNREAD-CHAR :D8 (L (0 -args-) F 1 *STANDARD-INPUT*) elHñ‘Q‚lag h(28 \BACKCCODE 23 \GETSTREAM) (18 INPUT) () CL:PEEK-CHAR :D8 (L (0 -args-) P 10 \RefillBufferFn F 11 *STANDARD-INPUT*) ÁekHñ‘hkaqlHñ’W‚laºlHñ‘i‚la»lHñ‘h‚la¼Jg g IµOKhð µL]Òlð´*lMÑið²"O µ K²äO ^Òlð´lNÑIdÃ².¿IÓKhð_¿_¿OO dOð‘I²¤O °æ (190 \ILLEGAL.ARG 183 READCCODE 167 \PEEKCCODE.EOLC 119 \EOF.ACTION 107 SKIPSEPRCODES 80 \PEEKCCODE.EOLC 59 \GETSTREAM) (148 CHARACTER 139 CHARACTER 64 \PEEKREFILL 54 INPUT) () CL:LISTEN :D8 (L (0 STREAM)) @g i (16 READP 10 \GETSTREAM) (5 INPUT) () CL:READ-CHAR-NO-HANG :D8 (L (0 -args-)) XekHñ‘hka1lHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼Idi š¿IJKL ¡hJ–I K(83 \EOF.ACTION 72 EOFP 66 CL:READ-CHAR 55 READP) NIL () CL:CLEAR-INPUT :D8 (L (0 -args-) F 1 *STANDARD-INPUT*) ekHñ‘Qkag (26 CLEARBUF 21 \GETSTREAM) (16 INPUT) () CL:READ-FROM-STRING :D8 (L (0 -args-)) ekaálHñ‘h‚laºlHñ‘h‚la»Hl½¼MdLó²Q¿h¾Hl_¿_¿OdOó²R¿h_¿Hl_¿_¿OdOó²T¿h_¿O²cIkOI _¿dOñ’¿O°Magð•MkØa°§MlÔ]°™agð–OkØa°¥OlÔ_°”agð–OkØa°£OlÔ_°’I _¿N™ONà ¿O™OJKˆOJKOÉ ÉN_¿OkOâ$(237 CL:READ 227 CL:READ-PRESERVING-WHITESPACE 214 SETFILEPTR 200 OPENSTRINGSTREAM 195 MKSTRING 118 SUBSTRING 102 NCHARS) (251 FDEV 244 STREAM 171 :PRESERVE-WHITESPACE 147 :END 126 :START) () CL:READ-BYTE :D8 (L (0 -args-)) JekaAlHñ‘i‚laºlHñ‘h‚la»Ig ¼J³LÉ É<½LdkM’KL (41 \GETSTREAM) (58 FDEV 51 STREAM 36 INPUT) () CL:WRITE-BYTE :D8 (L (1 BINARY-OUTPUT-STREAM 0 INTEGER)) A@ @(6 BOUT) NIL () (RPAQ CLISPCHARS (LDIFFERENCE CLISPCHARS (QUOTE (- *)))) (RPAQ CLISPCHARRAY (MAKEBITTABLE CLISPCHARS)) (RPAQQ DWIMINMACROSFLG NIL) (CL:PROCLAIM (QUOTE (CL:SPECIAL *READ-DEFAULT-FLOAT-FORMAT*))) (OR (BOUNDP (QUOTE *READ-DEFAULT-FLOAT-FORMAT*)) (CL:SETQ *READ-DEFAULT-FLOAT-FORMAT* (QUOTE CL:SINGLE-FLOAT))) expand-WITH-READER-ENVIRONMENT :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@!H¹HºgooogoJhIhNIL (35 LET 15 CL:LAMBDA) ( 40 ((*PACKAGE* (ffetch (READER-ENVIRONMENT REPACKAGE) of E)) (*READTABLE* (ffetch (READER-ENVIRONMENT REREADTABLE) of E)) (*READ-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E)) (*PRINT-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E))) 30 (\DTEST E (QUOTE READER-ENVIRONMENT)) 25 (CL:WHEN (\GETSTREAM E (QUOTE INPUT) T) (SETQ E (READ-READER-ENVIRONMENT STREAM))) 20 (E)) (SETF-MACRO-FUNCTION (QUOTE WITH-READER-ENVIRONMENT) (QUOTE expand-WITH-READER-ENVIRONMENT)) (PUTPROPS WITH-READER-ENVIRONMENT INFO EVAL) (ADDTOVAR SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*) (RPAQ? *COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE â† (CL:FIND-PACKAGE "USER") REREADTABLE â† CMLRDTBL REBASE â† 10 REFORMAT â† :MCCS)) (PUTPROPS CMLREAD FILETYPE :FAKE-COMPILE-FILE) NIL