(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Jul-2022 23:31:31" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>CMLREAD.;15) "19-Jul-2022 18:31:42" "COMPILE-FILEd" in "FULL 19-Jul-2022 ..." dated "19-Jul-2022 18:31:48") (FILECREATED "19-Jul-2022 23:31:31" {DSK}kaplan>local>medley3.5>working-medley>sources>CMLREAD.;15 12803 :CHANGES-TO (FNS CL:PEEK-CHAR) :PREVIOUS-DATE "16-Aug-2021 23:42:49" {DSK}kaplan>local>medley3.5>working-medley>sources>CMLREAD.;14) (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 (* ;; "Crude means to aid reading and printing things in same reader environment. There are some fns and an INITRECORDS for this on ATBL to get it early in the loadup" ) (RECORDS READER-ENVIRONMENT) (FUNCTIONS WITH-READER-ENVIRONMENT) (ADDVARS (SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*)) (PROP INFO WITH-READER-ENVIRONMENT) (GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*) (INITVARS (*COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE _ (CL:FIND-PACKAGE "USER") REREADTABLE _ CMLRDTBL REBASE _ 10 REFORMAT _ :XCCS)))) (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$(236 CL:READ 226 CL:READ-PRESERVING-WHITESPACE 213 SETFILEPTR 200 OPENSTRINGSTREAM 195 MKSTRING 118 SUBSTRING 102 NCHARS) (250 FDEV 243 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))) (DATATYPE READER-ENVIRONMENT (REPACKAGE REREADTABLE REBASE REPACKAGEFORM REFORMAT REREADTABLEFORM)) (/DECLAREDATATYPE (QUOTE READER-ENVIRONMENT) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((READER-ENVIRONMENT 0 POINTER) (READER-ENVIRONMENT 2 POINTER) (READER-ENVIRONMENT 4 POINTER) (READER-ENVIRONMENT 6 POINTER) (READER-ENVIRONMENT 8 POINTER) (READER-ENVIRONMENT 10 POINTER))) (QUOTE 12)) expand-WITH-READER-ENVIRONMENT :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@!H¹HºgogoJhgIohNIL (42 \DTEST 25 LET 15 CL:LAMBDA) ( 48 ((QUOTE READER-ENVIRONMENT)) 30 ((*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))) 20 (E)) (SETF-MACRO-FUNCTION (QUOTE WITH-READER-ENVIRONMENT) (QUOTE expand-WITH-READER-ENVIRONMENT)) (ADDTOVAR SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*) (PUTPROPS WITH-READER-ENVIRONMENT INFO EVAL) (RPAQ? *COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE _ (CL:FIND-PACKAGE "USER") REREADTABLE _ CMLRDTBL REBASE _ 10 REFORMAT _ :XCCS)) (PUTPROPS CMLREAD FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLREAD COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1993 2021)) NIL