(FILECREATED "12-Sep-86 19:13:36" ("compiled on " {ERIS}SOURCES>DWIMIFY.;38) "29-Aug-86 22:21:56" brecompiled changes: WTFIX1 in "Xerox Lisp 29-Aug-86 ..." dated "29-Aug-86 22:55:03") (FILECREATED "12-Sep-86 18:58:39" {ERIS}SOURCES>DWIMIFY.;38 346951 changes to: (FNS WTFIX1) previous date: "29-Jul-86 03:36:42" {ERIS}SOURCES>DWIMIFY.;37) \FORBLOCK/CLISPFORVARS D1 (L (0 PTRS) P 0 CLISPCONTEXT F 11Q VARS F 12Q I.S.TYPE F 13Q MAKEPROGFLG F 14Q LEFT.ARROWS.BITTABLE F 15Q I.V. F 16Q INITVARS F 17Q UNDOLST F 20Q FIRSTI.V. F 21Q LEFT.ARROW F 22Q IVINITFLG) ö g@½@[\¿LdMð’±šlð²PLdgð¦dgð²¿LgLLh¿Ld°É¿`¢±çWL ¢±ÜLKhid Y¢±ÎI±ËLd¢±¾dgð’±¶dgð’±dgð¥dgð¿LLi±“¿Ldgð©gð²L³LgLL±ÿC`²AL_µh°lð²+WO ²!i²#LMKð ¿Ld²4d³/d°'O°ÅLKð›MLð–Li W¢±fLW ‚ ¿L\±þÚ¿h¤h½K€K\dMð²¿O²@gð©W¦Occ ¿N dgð¥dgð’¿i¿h™iZc¿L\°$Ldgð¥dgð’¿i¿h´iZc¿LºLYd²3dlð²,Wc¿O³I_¿@gð—@O&¿J’±·IN^±¯dgð¥dgð“¿i°)dgð¦dgð²¿Ig¿IgIh¿i¿h²nic¿IWc¿O³6I_¿@dgð³%dgð•¿ic$°gð›@Oih…g ¿J—IWc¿„IN¾LIW"IhLWc…Ih ¿L±þºLgLL¿L½@gLc@h@¿LKð¢±þKd¢±þ†dgð³%dgð³dgð³dgð®dgð¨dgð¢±þQ¿i±þN(1233Q /RPLNODE 1211Q CLISPFORERR 1133Q SHOULDNT 547Q DREVERSE 466Q CLISPFORERR 462Q CLISPFORERR 445Q \FORBLOCK/CLISPFORVARS1 376Q \FORBLOCK/CLISPFORVARS1 360Q STRPOSL 243Q DWIMIFY2 147Q DWIMIFY2 132Q STRPOSL) (1352Q SAVESETQQ 1344Q SAVESETQ 1336Q old 1327Q OLD 1320Q SETQQ 1311Q SETQ 1242Q I.S.TYPE 1223Q DO 1130Q CLISPFORVARS 1107Q AS 1074Q FOR 1065Q BIND 1010Q QUOTE 1000Q SETQ 770Q SAVESETQQ 762Q SETQQ 750Q SAVESETQ 742Q SETQ 707Q AS 623Q old 615Q OLD 563Q old 555Q OLD 527Q BIND 325Q CLISPFLG 305Q SETQ 267Q ¬ 257Q _ 226Q SAVESETQ 220Q SETQ 207Q SAVESETQQ 176Q SETQQ 117Q CLISPFLG 67Q SETQ 57Q ¬ 51Q _ 2 FOR/BIND) () \FORBLOCK/CLISPFOR0 D1 (P 57Q VARS P 50Q I.S.OPRSLST P 33Q UNDOLST P 22Q TERMINATEFLG P 21Q MAKEPROGFLG P 20Q INITVARS P 17Q PROGVARS P 16Q IVINITFLG P 15Q FIRSTI.V. P 14Q I.V. P 13Q I.S.TYPE1 P 7 I.S.PTRS P 6 LASTPTR P 5 I.S.TYPE P 4 DWIMIFYCHANGE P 3 VARS P 2 DUMMYVARS I 0 EXP F 63Q DWIMESSGAG F 64Q VARS F 65Q DWIMIFYFLG F 66Q NOFIXFNSLST F 67Q NOFIXVARSLST F 70Q HISTENTRY F 71Q LISPXHIST) –3@o`oWh ôð!Ð.Wj«Wl¿Wn¿H_dlð’±›±$¢± ONgð¢±`²"OHð²ONd¡_THð¨HOTH¿ONg gð’±ßNµ;ORµ*ONd³>_dgð³Y¿Ngð²cNdNð²5°?HN¸h_R¿±ÿq³ÅNHh ¿°»_g _Nµ‚±ÿ`±Ng¿Ogð¢±ÈgHh^±ËOg _RµOdg ²×¿@ ±+³OR¨hHh^±›OHh^±‘M³O_¿gH]h^±}Odgð² ¿HMð²O_¿MHH¿Nh±XOgð²9Hgð§Hgð²*O8³&O_¿gH]h¾gO_g¿O_8±MHg±Odgð³%dgð³dgð³dgð®dgð¨dgð¢±gð›gH_8h±»Odgð²"¿OBµOD_™OHg¿gH_>h±’gð²$O>µO@µOD_™OHg¿gH_Bh°iOdgð²%¿O>µO@µOB_™OHg¿gH_Dh°=gð² OBµOD_™OHg¿gH_@h°Ogð™gH_Fh…g ^O_²O<ONg¿ONh _¿Hd’±ƒ¿@Wpô¢±xgi ¿i ¿@i °Îgð²RO$³OBµODµO.µO@_$¿O8³ O<³O³O>©OB¦OD£O@´i __¿h_B_D_>_@_F¿gH_¨OB¥OD¢O@–i _¿O _µûMd²1d³+g _gð²Og gð’M€Mh€_¿O.³xO0³tM³Wf¨o@ ¿¿±ñO@³ZOB’±OD’±ŠWf³JO$³FOg ³9oi ¿02@°dhk_`¿Obµ O`h_d‚O`&_b¿µãOdid¿Ogð¢±Hgg X¢±:OH_X¿gOX _ _¿KO [±,O>³ÃO<³¿O³ºO ³¶O"³²OH³®OL³ªOJ³¦Ogð³Ogð©Odgð²¿O,³‰OD²OgOgh ’±ÿqOB²HOdgð•¿g°ngð”g°dOgð¨Odgðœ¿gOB °Hgð§Ogð²5g°6OD²,Odgð•¿g°$gð›gOD °Ogð“g…g OBµODOOO:h¸OF¢±FHOOBµODOFhOO:h ±"Oµ°`g Xµ g ¿Hgð–H H¸oOd—¿gO€OµOhHd• dgð” h_ ¿gO¨gO_¿gghh_2¿O<²wO_¿h_B_D_>_@_F¿Odgðš¿O_>¿°Jdgðš¿O_F¿°9dgðš¿O_B¿°(dgðš¿O_D¿°dgð™¿O_@¿„gð¦O_µ I_*¿OBµOD¢±OBµOD_gð¨Odgð™¿OBµOD°gð¨Ogð²;O_²3Odlð“_*°%gð§OgðžO_*O …g ³OD™O_*O ‹O*OhO_¿OO*ð²O.gO*hh _.¿°?O&gOOB²i_"¿O*go°O.gO*hh _.¿O*hh _&¿O(gO*OF²!OOBµODhO*dhOFh±ugO*h±hO>²OO_µ0OO> ¿i_¿O@¢±OFd3²¿jOFó¢±g±ªOO>h°Ñ²rggi OF hh_F¿gOggOhggOhgO OO@hhigO OO@hhhhh°+O>3 ² O@3 ²O@O>ýñšo_F¿g‚g_¿O³O gOkhh _ ¿O@ hO_¿O.Od®O OOhh _.¿OF¦O>£O@²=O(gOO>¬O@©OFd3²¿gO OOFµkhhh _(¿O<“OµYOHµ?O"§O.²O0´gO2_4¿gghh_2¿O0 _0²igO0d²T¿gO0°L _d gð²/¿O°/__¿O_¿O_¿IY’±ü‡o ±ü|O2 _2¿±ÿ}O2hh_0¿O. _.µ#O, _,µ O.²VgO.°Fd²¿gO,°d—¿gO.€O2_.¿°Ígghh_,¿O.šgO.O,h†gO,hO_¿gOO:´7g02O: °!d_ZOZ _`šObµuO`_d_b¿µàOdhO OLd’ gO&OJd’ OghO0O(gghhO4 X¿gWr _¿O6°) _bO`°‹d_\O\¿O\O\¿O\Oµ µâ@H @g¿°ð(6213Q CLISPTRAN 6137Q LAST 6122Q MEMB 6106Q \NCONC2 6103Q \NCONC2 6100Q \NCONC2 6074Q \NCONC2 6071Q \NCONC2 6066Q \NCONC2 6063Q \NCONC2 6060Q \NCONC2 6055Q \NCONC2 6052Q \NCONC2 6017Q \FORBLOCK/CLISPFOR3 6003Q \FORBLOCK/CLISPFOR3 5741Q LDIFF 5720Q DREVERSE 5540Q \FORBLOCK/CLISPFOR2 5527Q \FORBLOCK/CLISPFOR2 5500Q \NCONC2 5470Q CLISPFORERR 5406Q FLAST 5400Q \FORBLOCK/CLISPFOR3 5347Q \FORBLOCK/CLISPFOR2 5262Q \NCONC2 5231Q CLISPLOOKUP 5155Q \NCONC2 5136Q CLISPLOOKUP 5111Q WARNUSER 5104Q GETDUMMYVAR 5076Q \NCONC2 4742Q CLISPLOOKUP 4714Q CLISPLOOKUP 4634Q WARNUSER 4627Q GETDUMMYVAR 4532Q \FORBLOCK/CLISPFORINITVAR 4466Q SUBPAIR 4414Q \NCONC2 4376Q \NCONC2 4355Q SUBST 4315Q \NCONC2 4251Q \FORBLOCK/CLISPFORINITVAR 4233Q SHOULDNT 4224Q \FORBLOCK/CLISPFORINITVAR 3615Q \FORBLOCK/CLISPFOR4 3605Q \APPEND2 3572Q SUBPAIR 3567Q DWIMIFY1 3564Q COPY 3516Q EVAL 3477Q SHOULDNT 3466Q GETPROP 3447Q \NCONC2 3442Q \FORBLOCK/CLISPFORF/L 3431Q SUBST 3374Q \FORBLOCK/CLISPFORF/L 3353Q SHOULDNT 3330Q CLISPLOOKUP 3243Q CLISPLOOKUP 3151Q EDITFINDP 3022Q \APPEND2 3011Q \APPEND2 3002Q MEMB 2756Q GETPROP 2732Q PRINT 2672Q RETDWIM2 2654Q PRIN1 2642Q \FORBLOCK/CLISPFOR4 2637Q GETPROP 2573Q ERROR! 2567Q ERRORMESS1 2517Q GETPROP 2474Q GETPROP 2447Q \FORBLOCK/CLISPFOR1 2437Q GETDUMMYVAR 2377Q \FORBLOCK/CLISPFOR1 2340Q \APPEND2 2333Q \FORBLOCK/CLISPFORVARS 2315Q \APPEND2 2312Q \FORBLOCK/CLISPFORVARS 2246Q \FORBLOCK/CLISPFOR0A 2224Q \NCONC2 2215Q ERROR! 2211Q ERRORMESS1 2165Q ERROR! 2161Q ERRORMESS 1464Q GETDUMMYVAR 1372Q \NCONC2 1367Q READLINE 1361Q PEEKC 1354Q PRIN1 1321Q \NCONC2 1310Q CLISPFORERR 1257Q SHOULDNT 1214Q CLISPFORERR 1150Q CLISPFORERR 1074Q CLISPFORERR 1023Q CLISPFORERR 553Q /RPLNODE 435Q \FORBLOCK/\DURATIONTRAN 426Q GETP 410Q GETPROP 352Q CLISPFORERR 323Q GETPROP 305Q \NCONC2 262Q \FORBLOCK/CLISPFOR0A 166Q GETP 154Q /RPLNODE 20Q \APPEND2) (6220Q * 6115Q SIDE 6040Q $$LP 6035Q GO 6024Q $$ITERATE 6006Q $$LP 5710Q DECLARE 5677Q PROG 5661Q COND 5646Q COND 5627Q $$ITERATE 5624Q GO 5603Q OR 5567Q OR 5553Q COND 5413Q RETURN 5370Q OR 5356Q COND 5332Q $$OUT 5327Q GO 5316Q $$OUT 5224Q + 5177Q SETQ 5062Q SETQ 5046Q GT 5042Q LT 4735Q GT 4707Q LT 4676Q MINUSP 4673Q COND 4662Q ZEROP 4657Q OR 4651Q AND 4623Q SETQ 4620Q BY 4574Q LT 4474Q CDR 4424Q SETQ 4364Q NLISTP 4346Q VAR 4327Q SETQ 4303Q NLISTP 4230Q CLISPFOR0 4204Q SETQQ 4174Q SETQ 4141Q old 4131Q OLD 4111Q old 4101Q OLD 4034Q AS 4015Q TO 3774Q ON 3753Q IN 3732Q BY 3711Q FROM 3644Q $$VAL 3641Q RETURN 3630Q $$VAL 3621Q $$VAL 3577Q PROGN 3537Q PROGN 3506Q = 3474Q CLISPFOR0 3463Q I.S.OPR 3350Q CLISPFOR0 3344Q MAP 3337Q do 3321Q MAPCON 3314Q join 3307Q MAPLIST 3301Q collect 3265Q MAPC 3257Q do 3250Q DO 3234Q MAPCONC 3226Q join 3216Q JOIN 3207Q MAPCAR 3202Q collect 3175Q SUBSET 3167Q subset 3142Q & 3135Q SETQ 3114Q do 3104Q join 3074Q collect 2775Q BIND 2753Q I.S.OPR 2750Q fcollect 2740Q collect 2634Q I.S.OPR 2522Q MODIFIER 2514Q I.S.OPR 2503Q FORWORD 2471Q CLISPWORD 2354Q ON 2346Q IN 2323Q FOR 2300Q AS 2272Q BIND 2123Q MODIFIER 2101Q FIRST 2074Q first 2052Q EACHTIME 2045Q eachtime 2025Q FINALLY 2016Q finally 1773Q WHEN 1766Q when 1746Q UNLESS 1737Q unless 1714Q REPEATUNTIL 1707Q repeatuntil 1667Q REPEATWHILE 1660Q repeatwhile 1635Q UNTIL 1630Q until 1610Q WHILE 1601Q while 1556Q DECLARE 1551Q declare 1536Q BIND 1530Q bind 1510Q AS 1377Q as 1350Q ... 1305Q TWICE 1254Q CLISPFOR0 1242Q BY 1235Q by 1220Q TO 1211Q BOTH 1167Q to 1154Q ON 1145Q BOTH 1116Q on 1100Q IN 1071Q BOTH 1043Q in 1027Q FROM 1020Q BOTH 775Q from 756Q FOR 751Q for 741Q by 733Q to 725Q on 716Q in 707Q from 700Q for 667Q BOTH 647Q FOR 637Q I.S.TYPE 626Q I.S.TYPE 607Q suchthat 600Q SUCHTHAT 570Q thereis 524Q do 505Q I.S.TYPE 423Q \DURATIONTRAN 405Q I.S.OPR 370Q ORIGINAL 360Q original 347Q MISSING 320Q CLISPWORD 234Q ORIGINAL 223Q original 171Q MODIFIER 163Q I.S.OPR 113Q LCASEFLG 103Q FORWORD 47Q NOFIXVARSLST0 41Q NOFIXFNSLST0 7 CLISPDUMMYFORVARS) ( 5465Q "too many concurrent loops " 5034Q (BY -1) 4352Q (CAR (OR (LISTP VAR) (GO $$OUT))) 3526Q (BODY I.V.) 2650Q "Possible non-terminating iterative statement: " 2563Q "No DO, COLLECT, or JOIN in:" 2205Q "No operator in:" 13Q (I.V. BODY $$VAL) 4 ($$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6)) \FORBLOCK/CLISPFOR2 D1 (L (1 FLG 0 LST)) t@ b°hdHdgðŸ¿HA³Md °Hdgð²¿HAšd °2H°*dgð¥dgðœ¿Hd °dgð¥dgð˜¿Hdµ™@(124Q NEGATE 70Q NEGATE 42Q NEGATE 3 DREVERSE) (140Q REPEATUNTIL 132Q UNTIL 107Q REPEATWHILE 101Q WHILE 50Q UNLESS 22Q WHEN) () \FORBLOCK/CLISPFORINITVAR D1 (L (0 VAR) I 1 EXP F 0 PROGVARS F 1 INITVARS) AhPcQg@Phh c(33Q \NCONC2 2 GETDUMMYVAR) (16Q SETQ) () \FORBLOCK/CLISPDSUBST D1 (L (0 X) F 2 BODY F 3 I.V.) Y @°%dYdgð•¿IR°gð“ISˆI•I ¿µÜ@` X´#@g gð@h`¿@ ƒH h(125Q \FORBLOCK/CLISPDSUBST 120Q DWIMIFY1 113Q PUTHASH 75Q GETP 62Q GETHASH 46Q \FORBLOCK/CLISPDSUBST) (110Q CLISPARRAY 101Q CHANGETRAN 72Q CLISPWORD 57Q CLISPARRAY 27Q I.V. 14Q BODY) () \FORBLOCK/\CLISPKEYWORDPROCESS D1 (L (1 WORDLST 0 FORM)) E@d A›A@ @@¡@AHšH@Y§HX°õI²AI @I I @(100Q \NCONC2 72Q LDIFF 65Q SET 17Q SET) NIL () \FORBLOCK/CLISPFORF/L D1 (L (2 DECLARELST 1 VAR) I 0 EXP) GggAB²7g@B °d[K X–IµHZY¿µçJ@ˆ YH°ï@h(71Q LAST 42Q LDIFF 23Q DREVERSE) (14Q DECLARE 5 LAMBDA 2 FUNCTION) () \FORBLOCK/CLISPFOR4 D1 (L (0 X) F 1 MAKEPROGFLG F 2 TERMINATEFLG) V@dgð³dgð³dgð«dgð¥dgð—¿icdcgð³%@°dHdgð–¿ic¿h†´H ¤µâh(114Q \FORBLOCK/CLISPFOR4) (74Q $$VAL 54Q PROG 37Q RETEVAL 31Q RETFROM 23Q ERROR! 14Q RETURN 5 GO) () \FORBLOCK/CLISPFORVARS1 D1 (L (1 FLG 0 L) F 1 LEFT.ARROW.BITTABLE) /@X¡hQH ²Hdlðœ@hAi @ … ¿H°Ø(50Q \FORBLOCK/CLISPFORVARS1 43Q TAILP 37Q DWIMIFY2 15Q STRPOSL) NIL () \FORBLOCK/CLISPFOR3 D1 (L (0 LST)) 30@ °dXµHhY–JµI[Z¿µæK ZI°ó(54Q LAST 11Q DREVERSE) NIL () \FORBLOCK/CLISPFOR1 D1 (L (1 FLG 0 PTRS) P 6 BODY F 13Q UNDOLST F 14Q I.S.TYPE F 15Q I.V. F 16Q MAKEPROGFLG F 17Q I.S.OPRSLST F 20Q FIRSTI.V. F 21Q DUMMYVARS F 22Q I.S.TYPE1) #@@’ @dgð³dgðdgð§dgð¡d¢¿°wdgð¥dgð•¿A³°egðš@c¿°UHgð©Hdgðš¿W³'ic¿°!g \gð²$Lg gð²HZdIð²¿HIg¿Hµí@Ið¢±ËJd³{¿@gð³a@gð³X@gð³O@gð³FJg [²ghgg' lð’±ÿlOo ¿±ÿ_d_ g _–O_µµéLµO‚_lð²íOO ð³åO O ¿°Û(653Q /RPLACA 574Q GETPROP 556Q ERROR 535Q EVAL 526Q GETDEF 465Q SUBPAIR 260Q ERROR 213Q \CanonicalizeTimerUnits 156Q CONSTANTEXPRESSIONP 150Q ERROR 126Q ERROR 70Q \FORBLOCK/\CLISPKEYWORDPROCESS 56Q ERRORX 52Q SETERRORN) (571Q CLISPWORD 531Q NEW 523Q NOERROR 517Q RESOURCES 507Q LCASEFLG 474Q WITH-RESOURCES 377Q LAMBDA 371Q QUOTE 340Q BODY 334Q until 321Q LAMBDA 232Q QUOTE 224Q MILLISECONDS 106Q \ForDurationOfBox 16Q DURATIONCLISPWORDS) ( 553Q "is not a timer RESOURCE" 446Q (BODY FORDURATION OLDTIMER TIMERUNITSLST) 431Q (\TimerUnit) 407Q (DECLARE (LOCALVARS \TimerUnit)) 403Q (\TimerUnit) 331Q (DECLARE (LOCALVARS \DurationLimit)) 325Q (\DurationLimit) 303Q ((QUOTE SECONDS)) 276Q (SETUPTIMER.DATE FORDURATION OLDTIMER) 254Q "Both 'untilDate' and 'forDuration' specified" 205Q "No duration interval" 144Q "Can't specify timerUnits for 'untilDate'" 122Q "Both 'usingTimer' and 'resourceName' specified" 10Q (TIMEREXPIRED? \DurationLimit . TIMERUNITSLST) 4 (SETUPTIMER FORDURATION OLDTIMER . TIMERUNITSLST)) \DWIMIFYBLOCK/CLBINARYMINUS? D1 (L (1 MINUSTAIL 0 $TAIL) F 0 TAIL F 1 P