(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 11:40:32" ("compiled on " {DSK}sources>COMMON.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 14:58:17" {DSK}local>lde>lispcore>sources>COMMON.;2 14305 changes to%: ( VARS COMMONCOMS) previous date%: "30-Mar-87 16:57:29" {DSK}local>lde>lispcore>sources>COMMON.;1) (RPAQQ COMMONCOMS ((COMS (* ; "BQUOTE") (FNS READBQUOTE READBQUOTECOMMA \UNCOMMA \BQUOTE.BREAKRESET) ( VARIABLES SI::*BACKQUOTE-LEVEL*) (FUNCTIONS SI::BQUOTE-EXPANDER SI::BQUOTE-PROCESS-LIST SI::BQUOTE-CONS SI::BQUOTE-APPEND SI::BQUOTE-NCONC SI::COMMA-ERROR-EXPANDER BQUOTE SI::BQUOTE) (P (CL:SETF ( CL:MACRO-FUNCTION (QUOTE \,)) (QUOTE SI::COMMA-ERROR-EXPANDER)) (CL:SETF (CL:MACRO-FUNCTION (QUOTE \,@ )) (QUOTE SI::COMMA-ERROR-EXPANDER)) (CL:SETF (CL:MACRO-FUNCTION (QUOTE \,.)) (QUOTE SI::COMMA-ERROR-EXPANDER))) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (\INBQUOTE)) (ADDVARS ( BREAKRESETFORMS (\BQUOTE.BREAKRESET))))) (COMS (* ; "Pretty printing of quote and friends") (FNS QUOTE.WRAPPER BQUOTE.WRAPPER FUNCTION.WRAPPER) (PROP PRETTYWRAPPER BQUOTE SI::BQUOTE CL:FUNCTION QUOTE \, . %,.\,@)) (PROP FILETYPE COMMON) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA))))) READBQUOTE :D8 (P 0 \INBQUOTE I 0 FILE) ig@ihi h(17 CL:READ) (8 BQUOTE) () READBQUOTECOMMA :D8 (P 0 CH I 0 FILE F 1 *READTABLE* F 2 \INBQUOTE) Q jR?@ dl@@ gl.@ gg@ihi h@ Hg Hg gg@ (130 PACK* 125 READ 107 SYNTAXP 95 SYNTAXP 81 PEEKCCODE 71 CL:READ 50 READCCODE 32 READCCODE 20 SKIPSEPRCODES) (119 %, 113 %, 102 SEPR 90 BREAK 62 \, 56 \,. 38 \,@ 5 READTABLEP) () \UNCOMMA :D8 (I 0 X) @ddg%dgdgdgdg:@ @dgggggHhH@ @ Hd@I@@HI(120 \UNCOMMA 113 \UNCOMMA 57 \UNCOMMA) (96 \,@ 90 \,. 83 %,. 76 \, 68 %, 46 %,! 38 ., 29 %,@ 20 %,. 11 %,) () \BQUOTE.BREAKRESET :D8 (L (0 FLG) F 0 \INBQUOTE) P@cNIL NIL () (CL:PROCLAIM (QUOTE (CL:SPECIAL SI::*BACKQUOTE-LEVEL*))) (OR (BOUNDP (QUOTE SI::*BACKQUOTE-LEVEL*)) (CL:SETQ SI::*BACKQUOTE-LEVEL* 0)) SI::BQUOTE-EXPANDER :D8 (L (1 SI::LEVEL 0 SI::FORM) P 0 SI::*BACKQUOTE-LEVEL*) A@dddi3 g@hYgIdg@Ak A g@Idgo@ go@ @ (129 SI::BQUOTE-PROCESS-LIST 122 CL:ERROR 101 CL:ERROR 66 SI::BQUOTE-EXPANDER 60 SI::BQUOTE-EXPANDER) (107 \,. 85 \,@ 72 \, 45 BQUOTE 36 SI::BQUOTE 24 QUOTE) ( 114 ",. in illegal context: ,.~S" 93 ",@ in illegal context: ,@~S") SI::BQUOTE-PROCESS-LIST :D8 (L (0 LIST) F 3 SI::*BACKQUOTE-LEVEL*) @ddvdiq3mg@h@HdgIgoI HdgoI #Hddi3 gHhI HZdgHI gHI JgHI HS I (214 SI::BQUOTE-CONS 209 SI::BQUOTE-PROCESS-LIST 203 SI::BQUOTE-EXPANDER 195 SI::BQUOTE-NCONC 190 SI::BQUOTE-PROCESS-LIST 172 SI::BQUOTE-APPEND 167 SI::BQUOTE-PROCESS-LIST 150 SI::BQUOTE-CONS 145 SI::BQUOTE-PROCESS-LIST 123 SI::BQUOTE-CONS 118 SI::BQUOTE-PROCESS-LIST 87 CL:ERROR 64 CL:ERROR) (179 \,. 156 \,@ 133 \, 108 QUOTE 72 \,. 50 \,@ 39 \, 21 QUOTE) ( 80 ",. in illegal context: ,.~S" 57 ",@ in illegal context: ,@~S") SI::BQUOTE-CONS :D8 (L (1 SI::BCDR 0 SI::BCAR)) @@ X'A YHIZd!di3gJhA g@hg@Ah[gKdgg@Agg@A(17 CONSTANTEXPRESSIONP 8 CONSTANTEXPRESSIONP) (119 LIST 111 LIST 100 LIST* 92 LIST* 83 CONS 69 CONS 56 LIST 43 QUOTE) () SI::BQUOTE-APPEND :D8 (L (1 SI::TAIL 0 SI::HEAD) F 1 SI::*BACKQUOTE-LEVEL*) @jQAgAhAjQ@g@h@Hdg@@A gg@Ah Hdg%g@ @ A h gHgg@AdgAgg@Ag@Ah(139 CL:APPEND 132 SI::BQUOTE-APPEND 125 LAST 119 CL:BUTLAST 94 \APPEND2 70 SI::BQUOTE-CONS 65 SI::BQUOTE-APPEND) (205 CL:APPEND 194 CL:APPEND 187 CL:APPEND 173 CL:APPEND 162 CL:APPEND 154 NCONC 146 CL:APPEND 112 LIST* 103 LIST* 84 LIST* 76 LIST 48 CONS 30 CL:APPEND 12 CL:APPEND) () SI::BQUOTE-NCONC :D8 (L (1 SI::TAIL 0 SI::HEAD) F 1 SI::*BACKQUOTE-LEVEL*) @jQAgAhAjQ@g@h@Hdg@@A gHgHdg@A gg@Adg Agg@Ag@Ah(140 \APPEND2 104 SI::BQUOTE-APPEND 70 SI::BQUOTE-CONS 65 SI::BQUOTE-NCONC) (168 NCONC 157 NCONC 150 NCONC 129 NCONC 118 NCONC 110 NCONC 94 CL:APPEND 85 LIST* 76 LIST 48 CONS 30 NCONC 12 NCONC) () SI::COMMA-ERROR-EXPANDER :D8 (L (1 SI::ENV 0 SI::FORM)) So@Hdgo/go!HgooHo @ (80 CL:ERROR 71 ECASE-FAIL) (46 \,. 31 \,@ 16 \,) ( 66 (\, \,@ \,.) 60 (CL:FIRST SI::FORM) 54 ",." 38 ",@" 24 "," 4 "Tried to evaluate ~A~S outside of a backquote scope.~%%Probably a missing backquote or too many commas.") expand-BQUOTE :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ j (13 SI::BQUOTE-EXPANDER 7 \UNCOMMA) NIL () (SETF-MACRO-FUNCTION (QUOTE BQUOTE) (QUOTE expand-BQUOTE)) SI::expand-BQUOTE :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ j (13 SI::BQUOTE-EXPANDER 7 \UNCOMMA) NIL () (SETF-MACRO-FUNCTION (QUOTE SI::BQUOTE) (QUOTE SI::expand-BQUOTE)) (SETF-MACRO-FUNCTION (QUOTE \,) (QUOTE SI::COMMA-ERROR-EXPANDER)) (SETF-MACRO-FUNCTION (QUOTE \,@) (QUOTE SI::COMMA-ERROR-EXPANDER)) (SETF-MACRO-FUNCTION (QUOTE \,.) (QUOTE SI::COMMA-ERROR-EXPANDER)) (RPAQQ \INBQUOTE NIL) (ADDTOVAR BREAKRESETFORMS (\BQUOTE.BREAKRESET)) QUOTE.WRAPPER :D8 (P 0 SYN I 1 FILE I 0 E) 'g HH go(22 LAST 9 GETSYNTAX) (28 READQUOTE 4 %') ( 36 "'") BQUOTE.WRAPPER :D8 (I 1 FILE I 0 E) Rgg  ;@dgodgodgogo(20 MEMB 14 GETSYNTAX) (71 \,@ 58 \,. 44 \, 30 BQUOTE 9 %` 4 READBQUOTE) ( 79 ",@" 65 ",." 51 "," 37 "`") FUNCTION.WRAPPER :D8 (I 1 FILE I 0 E F 0 *READTABLE*) Pl#oNIL (10 READTABLEP 5 READTABLEP) ( 23 "#'") (PUTPROPS BQUOTE PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS SI::BQUOTE PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS CL:FUNCTION PRETTYWRAPPER FUNCTION.WRAPPER) (PUTPROPS QUOTE PRETTYWRAPPER QUOTE.WRAPPER) (PUTPROPS \, PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS \,. PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS \,@ PRETTYWRAPPER BQUOTE.WRAPPER) (PUTPROPS COMMON FILETYPE COMPILE-FILE) (PUTPROPS COMMON COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990)) NIL