(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Nov-93 12:07:09" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLREAD.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED " 8-Jun-90 14:17:52" |{PELE:MV:ENVOS}SOURCES>CMLREAD.;3| 15466 changes to%: ( FNS CL:READ-FROM-STRING) previous date%: "16-May-90 14:23:07" |{PELE:MV:ENVOS}SOURCES>CMLREAD.;2|) (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)))) (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*) |ekHñ’WkaalHñ‘i‚laºlHñ‘h‚la»lHñ‘h‚la¼Ig ½J³L³MÉ É<¾MdkN’KM _Òlð´Olÿålÿðhð´lOÑ(96 READCCODE 59 \GETSTREAM) (79 FDEV 72 STREAM 54 INPUT) () CL:UNREAD-CHAR :D8 (L (0 -args-) F 7 *STANDARD-INPUT*) ¯elHñ’W‚lag QIdÊ0jð²e¿I ´|IÉ ÉHºIdhlJá²¿IÉ ÉH»IhlKánÿ°É ÉH¼IhlLlÿð´+I ¿°!É,g']Ã´ MÉ¾IhlNh(137 \BACKFILEPTR 48 \BACKFILEPTR 24 \GETSTREAM) (162 EXTERNALFORMAT 154 EXTERNALFORMAT 147 EXTERNALFORMAT 117 FDEV 110 STREAM 90 FDEV 83 STREAM 63 FDEV 56 STREAM 34 STREAM 19 INPUT) () CL:PEEK-CHAR :D8 (L (0 -args-) P 50 \INTERRUPTABLE P 49 \INTERRUPTABLE P 48 \RefillBufferFn F 51 *STANDARD-INPUT*) »3ekHñ‘hkañðð.lHñ’Wf‚laºlHñ‘i‚la»lHñ‘h‚la¼Jg g0Iµ‚±“O^Khð_0¿_.dÊ0jð¢±Í¿O.O0 h_¿_d¢±ßlÿð²RO. ¿O.É ÉH½O.d _lÿð¢OO.d jð“¿lÿ„ _lM¿Oá_¿O.O0 _³"h±ŠO.É ÉH¾O.hlNá_¿Onÿð²O. ¿OáO.O0 äO. ¿°JO.É ÉH_¿O.hlOáOä°)É,g'_Ã´OÉ_¿O.O0hlOO.Ê_,¿_*dl ð¢±H¿O,djð•¿l ±Llð¢±01O.dÊ0jð²z¿O. h_¿_lÿð²DO.É ÉH_¿O.d _lÿð¢OO.d jð“¿lÿ„ _lO¿O. _¿O°O.É ÉH_¿O.hlOánÿð²-O. °'É,g'_ Ã´O É_"¿O.hlO"¿O.i O.dÊ0jð²5¿O. ²QO.É ÉH_$¿O.hlO$lÿð²1O. °'É,g'_&Ã´O&É_(¿O.hlO(¿l ð“l °l °l °l ðšO,kð’l „l O*µL_2Òlð´EO2lÿålÿðhð´9lO2Ñið²0O^ µ K²ÖO^ _4Òlð´O4lÿålÿðhð´lO4ÑIdÃ¢±™¿IÓKhð_8¿_6¿O^dÊ0jð¢±Ó¿O^O8 h_B¿_@d¢±ålÿð²UO^ ¿O^É ÉH_:¿O^d _@lÿð¢O@O^d jð“¿lÿ„ _BlO:¿OBá_B¿O^O8 _@³%h±O^É ÉH_<¿O^hlO<á_B¿OBnÿð²O^ ¿O@áO^O8 äO^ ¿°JO^É ÉH_>¿O^hlO>áO@ä°)É,g'_DÃ´ODÉ_F¿O^O8hlOFO^Ê_\¿_Zdl ð¢±H¿O\djð•¿l ±Llð¢±02O^dÊ0jð²z¿O^ h_N¿_Llÿð²DO^É ÉH_H¿O^d _Llÿð¢OLO^d jð“¿lÿ„ _NlOH¿O^ _L¿ON°O^É ÉH_J¿O^hlOJánÿð²-O^ °'É,g'_PÃ´OPÉ_R¿O^hlOR¿O^i O^dÊ0jð²5¿O^ ²QO^É ÉH_T¿O^hlOTlÿð²1O^ °'É,g'_VÃ´OVÉ_X¿O^hlOX¿l ð“l °l °l °l ðšO\kð’l „l OZdO6ð‘I¢±ýO^ ±ý} (1464 \ILLEGAL.ARG 1456 READCCODE 1364 \BACKFILEPTR 1323 \BACKFILEPTR 1300 \PEEKBIN 1197 \NSIN.24BITENCODING.ERROR 1003 \BACKFILEPTR 995 \PEEKBIN 932 \PEEKBIN 909 \NSIN.24BITENCODING.ERROR 841 \PEEKBIN 759 \EOF.ACTION 747 SKIPSEPRCODES 632 \BACKFILEPTR 591 \BACKFILEPTR 568 \PEEKBIN 465 \NSIN.24BITENCODING.ERROR 271 \BACKFILEPTR 263 \PEEKBIN 203 \PEEKBIN 181 \NSIN.24BITENCODING.ERROR 115 \PEEKBIN 65 \GETSTREAM) (1390 EXTERNALFORMAT 1381 EXTERNALFORMAT 1373 EXTERNALFORMAT 1339 FDEV 1332 STREAM 1308 STREAM 1278 EXTERNALFORMAT 1269 EXTERNALFORMAT 1261 EXTERNALFORMAT 1229 FDEV 1222 STREAM 1163 FDEV 1156 STREAM 1127 STREAM 1063 EXTERNALFORMAT 1054 EXTERNALFORMAT 1046 EXTERNALFORMAT 1020 FDEV 1013 STREAM 954 FDEV 947 STREAM 875 FDEV 868 STREAM 822 STREAM 804 CHARACTER 793 CHARACTER 658 EXTERNALFORMAT 649 EXTERNALFORMAT 641 EXTERNALFORMAT 607 FDEV 600 STREAM 576 STREAM 546 EXTERNALFORMAT 537 EXTERNALFORMAT 529 EXTERNALFORMAT 497 FDEV 490 STREAM 431 FDEV 424 STREAM 395 STREAM 331 EXTERNALFORMAT 322 EXTERNALFORMAT 314 EXTERNALFORMAT 288 FDEV 281 STREAM 225 FDEV 218 STREAM 149 FDEV 142 STREAM 96 STREAM 70 \PEEKREFILL 60 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 RESPEC)) (/DECLAREDATATYPE (QUOTE READER-ENVIRONMENT) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE (( READER-ENVIRONMENT 0 POINTER) (READER-ENVIRONMENT 2 POINTER) (READER-ENVIRONMENT 4 POINTER) ( READER-ENVIRONMENT 6 POINTER))) (QUOTE 8)) expand-WITH-READER-ENVIRONMENT :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@!H¹HºgogoJhgIoh#:NIL (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)) (PUTPROPS CMLREAD FILETYPE CL:COMPILE-FILE) (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)))) (PROP FILETYPE CMLREAD) ( DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:WRITE-BYTE CL:READ-BYTE CL:READ-FROM-STRING CL:CLEAR-INPUT CL:READ-CHAR-NO-HANG CL:LISTEN CL:PEEK-CHAR CL:UNREAD-CHAR CL:READ-CHAR CL:READ-LINE CL:COPY-READTABLE))))) (PUTPROPS CMLREAD COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990)) #:NIL