(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "14-Sep-2022 10:25:40" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>DWIM.;3) "13-Sep-2022 12:52:19" brecompiled exprs%: nothing in "FULL 13-Sep-2022 ..." dated "13-Sep-2022 12:52:24") (FILECREATED "14-Sep-2022 10:25:40" {DSK}kaplan>local>medley3.5>working-medley>sources>DWIM.;3 43925 :CHANGES-TO (VARS DWIMCOMS) :PREVIOUS-DATE "13-Sep-2022 09:16:44" {DSK}kaplan>local>medley3.5>working-medley>sources>DWIM.;2) VARSBOUNDINEDITCHAIN :D8 (L (0 EDITCHAIN)) (0@d XI HZYJ YH(33 LAST 12 \VARSBOUNDINEDITCHAIN/VARSBOUNDINFORM) NIL () \VARSBOUNDINEDITCHAIN/VARSBOUNDINFORM :D8 (L (0 FORM)) &@!Hd3@Hd`@ h g ZgJ+gJ"0@ddLKh]K&MHg Ygy@1IdgdgdgihK[L^dd3@MNgNLg Ydg𳦿NgKMNL@ $H` Y@I Y@Ibbh(273 MACROEXPANSION 261 GETLIS 248 CHECKTRAN 208 GETPROP 112 GETPROP 48 GETPROP 37 \APPEND2 31 ARGLIST) (256 COMPILERMACROPROPS 227 _ 217 FORWORD 203 CLISPWORD 188 _ 151 as 143 bind 135 for 120 FORWORD 107 CLISPWORD 65 BINDS 54 BINDS 43 INFO 22 LAMBDASPLST) () NEWFAULT1 :D8 (L (2 FAULTAPPLYFLG 1 FAULTARGS 0 FAULTX)) B@@@H3@dg XLBgHAig gH hd3@H H XBH@XB@dXH @AB @ABH @X(138 OLDFAULT1 128 WTFIX 118 \NEWFAULT1BLOCK//DWIMCHECKTRAN 89 \NEWFAULT1BLOCK//DWIMCHECKTRAN 84 GETD 76 \DEFINEDP 62 RETEVAL 50 RETAPPLY 25 \NEWFAULT1BLOCK//DWIMCHECKTRAN) (56 FAULTEVAL 44 INTERNAL 36 FAULTAPPLY) () \NEWFAULT1BLOCK//DWIMCHECKTRAN :D8 (L (0 X)) O`@` <`5@`+@``@d @d@ (75 /RPLNODE 60 CLISPTRAN 16 GETHASH) (49 %#CLISPARRAY 43 CLISPARRAY 32 CLISPTRANFLG 23 CLISPTRANFLG 11 CLISPARRAY 4 CLISPARRAY) () CLISPLOOKUP0 :D8 (L (4 LISPFN 3 DECLST) I 6 CLASSDEF I 5 CLASS I 2 VAR2 I 1 VAR1 I 0 WORD) yCEg FEg b A bB bC BEdg@ gEghD@g Eg @(115 GETPROP 102 GETPROP 70 GETTOPVAL 52 \CLISPLOOKUP0/CLISPLOOKUP1 44 \CLISPLOOKUP0/CLISPLOOKUP2 36 \CLISPLOOKUP0/CLISPLOOKUP2 27 GETPROP 13 SHOULDNT) (110 LISPFN 97 LISPFN 84 RECORDFIELD 76 RECORD 61 VALUE 22 CLISPCLASSDEF 8 CLISPLOOKUP0) () \CLISPLOOKUP0/CLISPLOOKUP1 :D8 (L (0 LST) F 2 CLASS F 3 WORD F 4 CLASSDEF F 5 VAR1 F 6 VAR2)  @I@X`Hd`HgRgHSHRgRg'H`tRgSH SH^@YHR@O@XUHVC@ X8H@g Xddl HR@TTH  @b+(209 NTH 183 \TYPEMASK.UFN 172 GETPROP 155 \CLISPLOOKUP0/CLISPLOOKUP1 113 RECORDFIELDNAMES) (167 CLISPCLASS 104 RECORDFIELD 95 CLISPRECORDTYPES 85 RECORDFIELD 77 RECORD 50 VALUE 41 = 28 CLISPTRANFLG 19 CLISPTRANFLG) () \CLISPLOOKUP0/CLISPLOOKUP2 :D8 (L (0 X)) (@d#dgdgg@NIL (32 _ 20 SETQQ 11 SETQ) () CLISPDEC :D8 (L (0 DECLST) P 5 FAULTFN) {@dddl @hbAH@H`0H Hd``d[g Y g Kg Kg g Hg  YKgI IgK g Z8H`nHg Ydl iIgH HXd`1dJLg YIJ YLgI аHh` oH hYHIH (373 /RPLNODE 359 ERROR 344 FIXSPELL 321 /PUT 306 NTH 292 GETPROP 257 /PUT 242 \TYPEMASK.UFN 232 GETPROP 207 GETPROP 193 /PUT 180 /PUT 164 NTH 158 GETPROP 145 GETPROP 135 GETPROP 122 GETPROP 110 /REMPROP 90 GETPROP 53 EVAL 14 \TYPEMASK.UFN) (339 DECLWORDS 315 LISPFN 287 CLISPCLASSDEF 274 DECLWORDS 250 LISPFN 227 CLISPCLASS 217 DECLWORDS 202 CLISPCLASS 187 CLISPINFIX 174 LISPFN 153 CLISPCLASS 140 CLISPCLASSDEF 130 CLISPCLASS 117 CLISPCLASSDEF 105 CLISPINFIX 85 LISPFN 75 CLISPARITHOPLST 64 CLISPARITHCLASSLST 41 CLISPRECORDTYPES) ( 352 "illegal declaration") CLISPDEC0 :D8 (L (1 FN 0 X)) @`g@A  @(24 /RPLNODE 18 \CLISPDECBLOCK/CLISPDEC1) (10 DECLARATIONS%: 5 COMMENTFLG) () \CLISPDECBLOCK/CLISPDEC1 :D8 (L (0 X) I 1 FAULTFN) @@[Kd3dgd`dgK h=`Kh/Kh`hKhddK` oK XI HZYJ YH(142 LAST 121 ERROR 107 FIXSPELL 101 DUNPACK 57 \CLISPDECBLOCK/CLISPDEC1) (96 SKORLST1 84 DECLWORDS 68 DECLWORDS 43 RECORDS 33 CLISPRECORDTYPES 22 =) ( 114 "illegal declaration") GETLOCALDEC :D8 (L (1 FN 0 EXPR) F 4 FAULTFN) @@`@1HHYHXdgIgI Id`dggIAT IdgdgihIZh[dg`KgKJ(126 CLISPDEC0 80 LAST) (188 DECLARATIONS%: 178 COMMENTFLG 169 CLISP%: 143 DECLARE%: 135 DECLARE 114 CLISP%: 103 DECLARATIONS%: 93 COMMENTFLG 65 ADV-PROG 52 BREAK1 14 LAMBDASPLST) () DWIM :D8 (P 0 X I 0 X) @-gg gh gh `bKgg gi gi @dHHH @ooi (144 ERROR 118 SET 97 /SETATOMVAL 86 /SETATOMVAL 75 /PUTD 70 GETD 44 /SETATOMVAL 33 /SETATOMVAL 22 /PUTD 17 GETD) (91 ADDSPELLFLG 80 DWIMFLG 65 NEWFAULT1 60 FAULT1 50 DWIMODELST 38 ADDSPELLFLG 27 DWIMFLG 12 OLDFAULT1 7 FAULT1) ( 138 "" 133 "not on DWIMODELST.") RETDWIM2 :D8 (I 3 M I 2 N I 1 $TAIL I 0 X) BlbCkb@ABC (21 RETDWIM3) NIL () RETDWIM3 :D8 (I 3 M1 I 2 N1 I 1 $TAIL I 0 X) X@@jCg@hBCk A@dAhBkC 'ABC Bj@ABkC @o(74 RETDWIM3 56 RETDWIM3 45 RETDWIM3 26 RETDWIM3) (13 &) ( 84 (--)) FIXATOM2 :D8 (L (0 X)) eHaNIL NIL () SPLIT89 :D8 (P 2 Z P 1 Y P 0 X I 1 POS I 0 N F 3 L F 4 SPLIT89FLG) f0S` XAdA @HYd@lgg@hI J@JZIHHI JZJcgJ(85 PACK 80 LDIFF 62 PACK 24 NLEFT 14 DUNPACK) (97 %: 48 A 42 B 9 SKORLST3) () WTFIXLOADEF :D8 (P 1 FAULTEM3 P 0 FAULTEM2 I 0 FAULTEM1 F 2 FAULTFN F 3 DWIMIFYFLG F 4 DWIMIFYING F 5 FASL.EXT)  hcSTg@dl @@@bXgU i gHg` i Xh@@l @d(`go@h` g.@b Y oIohg I&@@l Hg @Hg i(227 LOADFNS 214 LOAD 202 \TYPEMASK.UFN 188 FIXSPELL1 163 STRINGP 157 EVAL 138 ASKUSER 101 \TYPEMASK.UFN 87 FINDFILE 81 PACKFILENAME 58 FINDFILE 52 PACKFILENAME 30 \TYPEMASK.UFN) (222 SYSLOAD 209 SYSLOAD 182 MUSTAPPROVE 143 Y 133 DWIMKEYLST 119 Y 114 DWIMWAIT 76 COMPILE.EXT 71 EXTENSION 65 BODY 46 EXTENSION 19 BODY) ( 176 "" 170 "" 124 "Shall I load ") CLISP% :D8 (P 0 CLISPTEM I 0 CLISPX) e``Igm` X H X`!H@Hd HdH @g (98 EVAL 85 /RPLNODE 70 CLISPTRAN 44 RELSTK 38 BLIPVAL 32 STKNTH) (93 INTERNAL 52 CLISPTRANFLG 27 CLISPTRANFLG 20 EVAL 13 %#CLISPARRAY 7 CLISPARRAY) () DWIMLOADFNS? :D8 (P 1 TEM P 0 FN F 2 FAULTX F 3 FAULTAPPLYFLG F 4 DWIMIFYFLG F 5 SIDES F 6 DWIMIFYING F 7 TYPE-IN? F 8 LISPXHIST) bSRR`;TV5Hd3@/H &H YHid I YHIi hWgW c R(89 MEMB 71 LISPXPRINT 58 LOADFNS 52 LISPXPRINT 41 EDITLOADFNS? 33 \DEFINEDP) (82 SIDE 13 DWIMLOADFNSFLG) () CLISPERROR :D8 (P 2 IN P 1 AT P 0 TEM I 1 FLG I 0 TYPE F 3 TAIL F 4 PARENT F 5 DWIMESSGAG F 6 TYPE-IN? F 7 FAULTFN F 8 FAULTX) Uh8@gh)0VW ki @dl @@XdkoloHgHgHgHdgoi Hflo[HdgoJgo 109 -> 100 :%: 91 %: 14 ALREADYPRINTED) ( 421 "in " 394 "... " 372 "at " 338 " in " 284 " in " 257 " at " 226 "missing " 207 "car or cdr of non-list taken" 193 "can't parse this phrase" 176 "undefined field name" 162 "incorrect use of _" 145 "bad if statement" 126 "improper use of " 82 "missing operator" 70 "missing operand") COMPILEUSERFNA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 Y F 3 SI::NLSETQ-VALUE) i@R hcg(10 compilation) (19 :NORMAL) () COMPILEUSERFN :D8 (P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 TEM I 1 Y I 0 X F 5 OTHERVARS F 6 DWIMESSGAG F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) g hc A Ad8 X+`A A A dAg &A`Adgdgihh`{A `A` `Ad`Ag AVoi Ai `WioWJ gI(255 COMPILEUSERFNA0001 226 PRINT 219 PRIN1 202 GETPROP 169 GETHASH 152 COMPILEUSERFN1 100 GETPROP 80 CHECKTRAN 67 CHECKTRAN 61 COMPILEUSERFN1 41 CHECKTRAN 23 CHECKTRAN 9 BOUNDP) (261 :NORMAL 234 SI::NLSETQ-PROCEED-CASE 197 CLISPWORD 185 CLISPTRANFLG 176 CLISPTRANFLG 164 CLISPARRAY 157 CLISPARRAY 144 DWIMFLG 129 NLAMBDA 121 LAMBDA 110 LAMBDASPLST 95 CLISPWORD 49 DWIMFLG 4 OTHERVARS) ( 243 (CL:ERROR . SI::NLSETQHANDLER) 213 "unable to dwimify ") COMPILEUSERFN1 :D8 (P 2 FILEPKGFLG P 1 NOSPELLFLG P 0 FLG I 0 Y F 3 NOFIXFNSLST F 4 NOFIXVARSLST F 5 COREFLG F 6 FN F 7 NOSPELLFLG F 8 ARGS F 9 FILEPKGFLG F 10 OTHERVARS F 11 DEF) f UVUWHhWHST@VWW W S` `cT` `ch(89 TAILP 69 TAILP 57 DWIMIFY0 50 UNION) (96 NOFIXVARSLST0 84 NOFIXVARSLST0 75 NOFIXFNSLST0 64 NOFIXFNSLST0 38 NOFIXVARSLST0 31 NOFIXFNSLST0) () USEDFREE :D8 (I 0 A F 0 FREEVARS) @P c(6 \APPEND2) NIL () CLISPTRAN :D8 (I 1 TRAN I 0 X) I`6`A@`A@@ hddi h@A` (70 /PUTHASH 45 HASHARRAY 34 /RPLNODE) (65 CLISPARRAY 57 %#CLISPARRAY 50 CLISPARRAY 22 CLISPTRANFLG 11 %#CLISPARRAY 4 CLISPARRAY) () compilationA0001 :D8 (F 0 EXP) PNIL NIL () compilationA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 #:G0 F 1 SI::$POS$) 4gggPhhghgQgo (49 DEBUGGER) (38 :CONDITION 32 :STACK-POSITION 26 :ENVIRONMENT 14 QUOTE 9 CL:FUNCALL 4 :FORM) ( 43 (MAKE-CONDITION (QUOTE SI::BREAKPOINT) :FUNCTION (QUOTE compilation))) compilationA0003 :D8 (F 0 SI::$POS$) P (5 RELSTK) NIL () compilation :D8 (P 1 SI::$POS$ P 0 #:G0 I 0 EXP) 1gjg g I $(42 RELSTK 36 \MVLIST 31 compilationA0002 18 STKNTH) (26 compilationA0003 13 compilation 4 compilationA0001) () CLISPFORERR :D8 (P 0 TEM I 2 TYPE I 1 Y I 0 X F 1 DWIMESSGAG F 2 FAULTFN) QR ki oi B]gi PBdgo8go*Bdgog@i oi gi @@dCA;@A @AbHb@A Aki A i @id AAid (231 LISPXPRIN2 219 LISPXPRIN2 207 DWIMERRORRETURN 200 TERPRI 193 CLISPFORERR1 186 LISPXSPACES 176 CLISPFORERR1 158 TAILP 139 LISPXPRINT 127 LISPXPRIN1 115 LISPXPRIN1 48 LISPXPRINT 33 LISPXPRIN1 21 SPACES 13 FIXPRINTIN) (133 %: 103 WHAT 88 MISSING 72 TWICE 57 BOTH 42 %,) ( 121 " what ? (no i.v. specified)" 96 "missing operand" 79 "operator appears twice" 65 "can't use both of these operators together" 27 "error in iterative statement") CLISPFORERR1 :D8 (P 1 Z P 0 TEM I 1 Y I 0 X F 2 I.S. F 3 I.S.PTRS) [@Roi SdI@ hAX@hl id @bdHki h(85 LISPXSPACES 68 LISPXPRIN2 61 RETDWIM2 35 TAILP 17 LISPXPRIN1) NIL ( 11 " ... ") I.S.OPRA0001 :D8 (I 1 EXP I 0 TRAN F 0 UC F 1 LC) PA QA Ah` (28 /PUTHASH 14 MEMB 6 MEMB) (23 CLISPARRAY) () I.S.OPR :D8 (P 4 NEWFLG P 3 OLDPROP P 2 NEWPROP P 1 LC P 0 UC I 3 EVALFLG I 2 OTHERS I 1 FORM I 0 NAME F 5 DFNFLG F 6 FILEPKGFLG) @ A@dH Yg gh\AMB6HggIZ IgJ AgghC`oB l AgHggIAhZ Ig IgJ Ig dBfBg gOCJoB 6CA gAB gBABIg IgJ JK@LKHggg Uig@oi `/`g `H `HIh V@HHIgL @(427 MARKASCHANGED 405 /NCONC 389 /NCONC1 376 MAPHASH 353 LISPXPRINT 328 /REMPROP 295 /PUT 282 GETP 241 ERROR 214 GETPROP 195 /REMPROP 183 /PUT 170 GETP 158 /PUT 124 \TYPEMASK.UFN 114 ERROR 77 /PUT 64 /PUT 29 GETP 18 L-CASE 5 U-CASE) (421 I.S.OPRS 395 I.S.OPRLST 383 CLISPFORWORDSPLST 371 I.S.OPRA0001 366 CLISPARRAY 359 CLISPARRAY 339 i.s.opr 323 I.S.OPR 318 fcollect 311 COLLECT 289 I.S.OPR 277 I.S.OPR 264 = 254 = 220 FORWORD 209 CLISPWORD 190 I.S.OPR 177 CLISPWORD 165 CLISPWORD 146 FORWORD 141 CLISPWORD 132 MODIFIER 94 MODIFIER 84 MODIFIER 71 CLISPWORD 56 FORWORD 51 CLISPWORD 35 FORWORD 24 CLISPWORD) ( 345 (redefined) 235 "OTHERS must begin with an operator" 108 "OTHERS must be a list of operators and operands") (PRETTYCOMPRINT DWIMCOMS) (RPAQQ DWIMCOMS ((FNS DWIM NEWFAULT1 /DWIMCHECKTRAN) (INITVARS (DWIMWAIT 10) (LCASEFLG T)) (VARS DWIMODELST) (FNS RETDWIM2 RETDWIM3 FIXATOM2 SPLIT89 WTFIXLOADEF CLISP% ) (COMS (FNS VARSBOUNDINEDITCHAIN VARSBOUNDINFORM) (BLOCKS (VARSBOUNDINEDITCHAIN VARSBOUNDINEDITCHAIN VARSBOUNDINFORM))) (FNS DWIMLOADFNS?) (APPENDVARS (DWIMUSERFORMS (DWIMLOADFNS?))) (VARS ( DWIMLOADFNSFLG T)) (FNS CLISPLOOKUP0 CLISPLOOKUP1 CLISPLOOKUP2 CLISPERROR CLISPDEC CLISPDEC0 CLISPDEC1 GETLOCALDEC) (FNS COMPILEUSERFN COMPILEUSERFN1 USEDFREE CLISPTRAN compilation) (FNS CLISPFORERR CLISPFORERR1 I.S.OPR) (DECLARE%: EVAL@COMPILE DONTCOPY (ADDVARS (NLAML BREAK1))) (BLOCKS ( NEWFAULT1BLOCK NEWFAULT1 /DWIMCHECKTRAN (ENTRIES NEWFAULT1) (GLOBALVARS %#CLISPARRAY) (NOLINKFNS WTFIX )) (CLISPLOOKUP0 CLISPLOOKUP0 CLISPLOOKUP1 CLISPLOOKUP2 (GLOBALVARS DECLWORDS CLISPRECORDTYPES CLISPTRANFLG) (LOCALFREEVARS WORD CLASS CLASSDEF VAR1 VAR2)) (CLISPDECBLOCK CLISPDEC CLISPDEC0 CLISPDEC1 GETLOCALDEC (GLOBALVARS CLISPRECORDTYPES DECLWORDS CLISPARITHOPLST CLISPARITHCLASSLST COMMENTFLG SKORLST1) (ENTRIES CLISPDEC CLISPDEC0 GETLOCALDEC) (LOCALFREEVARS FAULTFN))) (GLOBALVARS DWIMODELST DWIMKEYLST DWIMWAIT LCASEFLG CLISPFORWORDSPLST I.S.OPRLST SKORLST3 DWIMLOADFNSFLG CLISPTRANFLG CLISPARRAY %#CLISPARRAY) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA USEDFREE CLISP% ) (NLAML) (LAMA FIXATOM2))))) (RPAQ? DWIMWAIT 10) (RPAQ? LCASEFLG T) (RPAQQ DWIMODELST ((C CAUTIOUS (APPROVEFLG . T)) (T TRUSTING (APPROVEFLG)))) (APPENDTOVAR DWIMUSERFORMS (DWIMLOADFNS?)) (RPAQQ DWIMLOADFNSFLG T) (PUTPROPS DWIM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1988 1990 1991 2021)) NIL