(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 09:33:48" ("compiled on " {DSK}sources>CLISPIFY.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 12:28:58" {DSK}local>lde>lispcore>sources>CLISPIFY.;2 136351 changes to%: (VARS CLISPIFYCOMS) previous date%: "19-Jun-86 14:57:01" {DSK}local>lde>lispcore>sources>CLISPIFY.;1) CLISPIFYFNSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 CLISPIFY) (19 :NORMAL) () CLISPIFYFNS :D8 (L (0 FNS) P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 5 X F 9 *PROCEED-CASES*) ê j 0@d’±Êd²¿g@hg±¯g µ‚±`²@lF`h@ µ@g ˜@ µlg@g°Ydj YHÙnu0ñ²I¸Mid¿oi ¿`WO gð´NZ–KµJ\[¿µ¨L [J°ñ(227 LAST 194 CLISPIFYFNSA0001 172 PRIN1 160 PRIN2 141 CLOCK 128 STKEVAL 109 FILEFNSLST 101 GETPROP 87 MISSPELLED? 56 EVALV 42 STKEVAL 5 CLOCK) (200 :NORMAL 181 SI::NLSETQ-PROCEED-CASE 123 INTERNAL 116 CLISPIFYFNS 96 FILE 79 FILELST 68 DWIMFLG 51 CLISPIFYFNS 37 INTERNAL 29 CLISPIFYFNS) ( 166 ", ") CLISPIFY :D8 (L (1 EDITCHAIN 0 X) P 13 CLISPISTATE P 12 LST P 11 TAIL P 10 SEG P 9 FORM P 8 SUBPARENT P 7 PARENT P 6 VARS P 5 EXPR P 4 DECLST P 3 CLTYP0 P 2 OPR0 P 1 CLISPIFYFN F 14 LASTAIL F 15 ATM F 16 FILEPKGFLG) íà @¢A²5Aµ@°<_¿WXA “H_¿WYµA ¾A °¹°î@ X¹H_½I¥g¹MI \O³`A¦@ @O ²O_@ XdHAgð³Agð²@dAð³dOž¿@_@ h@ M XIµ §Ii ¿IH W šIg I(233 MARKASCHANGED 219 /PUTD 211 DWIMUNSAVEDEF 203 \DEFINEDP 193 \CLISPIFYBLOCK/CLISPIFY2 186 CLISPIFY2A 177 \CLISPIFYBLOCK/CLISPIFY1 122 \CLISPIFYBLOCK/CLISPIFY1 110 TAILP 101 \CLISPIFYBLOCK/CLISPIFY2 88 GETLOCALDEC 65 EXPRCHECK 52 LAST 45 VARSBOUNDINEDITCHAIN 28 TAILP) (228 FNS 148 SELECTQ 137 COND 80 TYPE-IN) () \CLISPIFYBLOCK/CLISPIFY1 :D8 (L (3 BROADSCOPE) P 4 LST P 2 SEG P 1 PARENT I 5 SUBPARENT I 4 NOVALFLG I 2 CLTYP0 I 1 OPR0 I 0 TAIL F 6 FORM) á@VBEµ@b ¿Œ@ð©Ek@½Dgð˜@ b¿@µL¡HH²LH ¬H³õL @LAµMd3@ð²8Mmÿ l'ð²+@°;ið³æLµAg ²ÖAh¼°ÐAh ¿°Å@Diðµ D´@Dðhð »@½J«K@ð–A¤Bið²&@HðLH@ ¼J’LKƒLKh ¼@¸@b¿hº±ÿN(209 \NCONC2 194 \NCONC2 189 LDIFF 159 \CLISPIFYBLOCK/CLISPIFY2 136 \NCONC2 120 GETPROP 93 NTHCHARCODE 71 FLAST 59 \NCONC2 39 LAST 23 NLEFT) (115 UNARYOP 31 NOTLAST) () \CLISPIFYBLOCK/CLISPIFY2 :D8 (I 2 NEGFLG I 1 NOVALFLG I 0 FORM F 0 OPR0 F 1 CLTYP0) @@d²@hdd@g HgðµH´gH´i´gB b@ð¤@A@(60 \CLISPIFYBLOCK/CLISPIFY1 19 GETPROP) (53 NOTLAST 40 PROGN 28 PROGN 14 INFO) () \CLISPIFYBLOCK/CLISPIFY2D :D8 (I 0 FORM F 1 VARS F 2 NOFIXVARSLST) ƒ@Xd²yd3@ð´sHdg ³¿Hk X` ´PHg hð´A@X hð´4HQ hð´)HR hð´Hg hð´H` hð(126 MEMB 111 GETPROP 96 MEMB 85 MEMB 74 BOUNDP 61 GETPROP 48 MEMB 37 NTHCHAR 27 GETPROP) (121 GLOBALVARS 106 GLOBALVAR 56 UNARYOP 43 CLISPCHARS 22 CLISPTYPE) () \CLISPIFYBLOCK/CLISP3 :D8 (L (3 FLG 2 CLTYP 1 X 0 OPR) P 3 CLISPISTATE F 4 CLTYP0 F 5 NEGFLG F 6 PARENT F 7 TAIL F 8 SEG F 9 SUBPARENT F 10 OPR0) ¬@g 1B•`¦A A¹C“A±˜@gð˜@Ih±‡U²0`ž@dg ³¿@g Z›hc ¿ib¿Jb€@g ³-I³)@g lðšAA Ahd¹V˜VW ¿A ¿I@BHYgð’±«I3—jIó’±žW’±€TµH²f±gð©Tdgð“¿i°{¦°rWTð´kW²!Wg Tg ð´GIŽdg ¤µðh²´°-`³«Vi hð°Id3@ð—I ¨@B ²+hc¿I ºId3@ð²)I ² Cc hcA H™Tgð‘h€icIJ(406 \CLISPIFYBLOCK/CLISPIFY2C 392 CLISPNOEVAL 376 CLISP3A 364 \CLISPIFYBLOCK/CLISP3B 356 \DEFINEDP 338 CLISPNOEVAL 312 GETPROP 294 GETPROP 281 GETPROP 253 SHOULDNT 186 \CLISPIFYBLOCK/CLISPIFY1 176 \CLISPIFYBLOCK/CLISP4 169 \CLISPIFYBLOCK/CLISP4 149 \CLISPIFYBLOCK/CLISPIFY1 136 ARGTYPE 131 GETP 114 GETPROP 89 GETPROP 75 GETPROP 27 \CLISPIFYBLOCK/CLISPIFY2C 10 GETPROP) (415 BRACKET 328 CLISPIFYPACKFLG 307 CLISPWORD 289 CLISPWORD 276 CLISPWORD 240 IS 231 COND 193 - 126 LISPFN 109 UNARYOP 84 CLISPNEG 70 CLISPIFYISPROP 62 CLISPIFYENGLSHFLG 43 %' 20 CLISPFLG 5 BROADSCOPE) () CLISP3A :D8 (L (0 L) F 1 PARENT F 2 SEG) N@ bQdgð§dgð”¿@°*¿Qg HgðµH´gH´i’hc@(43 GETPROP 5 CLISPACKUP) (64 LABELS 52 LABELS 38 INFO 23 SETN 15 SELECTQ) () \CLISPIFYBLOCK/CLISP3B :D8 (L (1 CLTYP 0 OPR) F 0 CLTYP0 F 1 OPR0 F 2 LST F 3 TAIL) GQ´DPgðhð´9Agðhð´.R²AP µ"AŸAPd–3‘PPýñµS´PA hð(66 \CLISPIFYBLOCK/CLSTOPSCAN? 34 \CLISPIFYBLOCK/CLSTOPSCAN?) (19 BRACKET 8 BRACKET) () CLISPACKUP :D8 (L (0 L)) õ @H^˜N3´‚±Hdgð²O¿J`™Jgð² IJ ¿H_•O3´$Hd °IH_”O3’H€H X¿h\°P`›Hdgð²^¿Hdd3@ð²N¿gHÁÉ³`µ*`H ²)h¼Id—J ¿h¹h½HZµ‚±,@ið©H`°ÙH¼M²Ø°âg [²bHdKð²&¿JKð³Hg ²DIJ ¿h\Y°8HKð²/HKð³&IµL[dgð¨dgðH ¸h\±ÿtI¤LµH¹Hdgð²gð²HgŸHd¿ˆgð´nL²AH[3²9jKó²4Hgð—Hg°gg ´Kd²80K°d¼gLh]—NµM_^¿µçO Š ^M°égH¸@b±þè(264 LAST 258 PACK 63 DREVERSE 56 \APPEND2) (275 %: 230 %. 205 match 185 %: 166 %: 126 %: 94 |::1| 78 %: 41 %: 23 %:1) () \CLISPIFYBLOCK/CLISPIFYRPLAC :D8 (L (2 %:FLG 1 TYP 0 X) P 12 TAIL P 11 LST P 10 SUBPARENT P 9 PARENT P 2 CLTYP0 P 1 OPR0 F 13 SEG F 14 CLTYP0 F 15 PARENT) ‡ Wgdg Wt J²`²`Ÿgg ¦@ @ ¿Agð²@¾@_¿@°]@@@@ð²Ä@¾@@g µ-@d ª¿@ µ@g@ _¿A_¿B³:A@O ¼Hhðc¿K_¿LO¢±giO ±‚Nd´+g ]²ooM]–NMN‚NhdO\³¡hc¿Agð²!AOgLgO @LO ghd (388 CLISP3A 383 \NCONC2 367 \NCONC2 362 \CLISPIFYBLOCK/CLISPIFY1 348 \NCONC2 342 \CLISPIFYBLOCK/CLISPIFY1 304 \CLISPIFYBLOCK/CLISPIFYCROPS 285 SUBPAIR 266 GETPROP 246 CLISPIFY2A 210 CLISPIFY2A 204 LDIFF 184 NTH 179 PUTPROP 174 LENGTH 169 SMARTARGLIST 153 NARGS 144 SUBRP 134 GETPROP 113 \CLISPIFYBLOCK/CLISPIFYLOOKUP 67 \CLISPIFYBLOCK/CLISP4 60 \CLISPIFYBLOCK/CLISPIFY2C 53 GETPROP 17 GETPROP) (374 _ 335 with 329 of 318 replace 261 CROPS 234 _ 162 NARGS 129 NARGS 74 replace 48 CLISPTYPE 43 %: 37 CL%:FLG 30 CLISPFLG 12 CLISPTYPE 6 _) ( 279 (%:1 |::1|) 274 (A D)) \CLISPIFYBLOCK/CLISPIFYMAPS :D8 (L (1 OPR 0 IN-ON) F 4 FORM) TT"H´CHgð´9HX•H³,I²I´&Igð´IY”ITTT ð¡hHµTgð™gˆ„gZAgð² H³ÒHgJgh ³»J´`•g„gJh@hT [d³d ˜¿Kh I`•g„gJHAJ (259 \NCONC2 254 \NCONC2 249 \NCONC2 244 \NCONC2 239 \CLISPIFYBLOCK/CLMAPS2 231 \CLISPIFYBLOCK/CLMAPS2 207 \APPEND2 197 \CLISPIFYBLOCK/CLREMPARS 185 CLISPIFY2A 148 EDITFINDP 77 \CLISPIFYBLOCK/CLISPIFYLOOKUP) (225 BY 219 by 213 LCASEFLG 170 FOR 164 for 158 LCASEFLG 139 -- 133 SETQ 117 subset 110 X 100 Y 93 X 51 FUNCTION 22 FUNCTION) () \CLISPIFYBLOCK/CLMAPS1 :D8 (L (0 FN)) R@gð£@g@²0@ ³%@°dHhðµH3´i•µìi¿h’@‰gh@(31 \DEFINEDP) (73 X 17 LAMBDA 6 F/L) () \CLISPIFYBLOCK/CLMAPS2 :D8 (L (2 VAR 1 WORD 0 DEF) P 4 CLTYP0 P 3 OPR0) –@´‚±PAgð²,`•g„gb¿`•g„gBh¹@³@d –¿@h±Bhh±Agð³Agð³AgðªAgð¢±Ø@d’±ÐXdgð˜d¤Z°gð¢±®HZhð¢±£JY¸Idgð²¹`–g°g°¹`•g„gI Zdªd ’¿J¹Agð¨Agð²=H Z³1Jgð²&`•g„gb¿HJ J „H‚@ X@µAHdªd ’¿HI §@Bð³ÞA@@HIBh(373 \APPEND2 363 \CLISPIFYBLOCK/CLREMPARS 346 \CLISPIFYBLOCK/CLISPIFY1 335 \NCONC2 327 LDIFF 283 FLAST 254 \CLISPIFYBLOCK/CLREMPARS 243 CLISPIFY2A 71 FNTYP) (317 COLLECT 311 collect 305 LCASEFLG 297 LIST 274 join 266 JOIN 237 WHEN 231 when 225 LCASEFLG 216 UNLESS 209 unless 203 LCASEFLG 191 NOT 162 AND 145 COND 120 join 112 do 103 JOIN 94 DO 55 COLLECT 49 collect 43 LCASEFLG 35 WHEN 29 when 23 LCASEFLG 15 subset) () \CLISPIFYBLOCK/SHRIEKIFY :D8 (L (0 LOOKAT) P 5 SUBPARENT P 4 PARENT P 2 RESULTP P 1 CLTYP0 P 0 OPR0 F 6 FORM) Ýgdg B@[dgð§dgðŸgh ð³"hgð§KgðžKgh ð´ãV ghZ@giJ´Jgh Zdd3@ð²J ™J ´›gg ®Jg ’±ÿ|gg ®Jg ’±ÿ]J(213 EDITFINDP 201 GETPROP 182 EDITFINDP 170 GETPROP 153 BOUNDP 144 FNTYP 126 \NCONC2 109 \CLISPIFYBLOCK/SHRKFY 89 \CLISPIFYBLOCK/CLISP4 80 \CLISPIFYBLOCK/CLISPIFYLOOKUP 48 \CLISPIFYBLOCK/CLISPIFYLOOKUP 15 GETPROP) (208 !! 196 CLISPWORD 191 !! 177 ! 165 CLISPWORD 160 ! 119 > 103 STARTING 94 < 74 NCONC1 66 /NCONC1 58 NCONC1 42 NCONC 35 /NCONC 27 NCONC 10 CLISPTYPE 4 <) () \CLISPIFYBLOCK/SHRKFY :D8 (L (2 STAGEFLAG 1 WORKFLAG 0 LOOKAT) P 14 FORM F 15 RESULTP F 16 FORM F 17 CLISPIFYFN) OiÑ @Yµ(g¾@ºAgðªAdgð²8¿B²g°¼I[_¿g°ÑJ•g„g½B²[hb¿i_¿°Qgð²BŸg½hb¿i_¿°7J³.g°,Adgð²¿B—hb¿i_¿gŽgð¢±¨g½Jµ‚±Mgð¬Mdgð¢±:¿Ndgð¢±-¿I¢±WMIh ¿Igð³BIgð³9Igð³0Igð³'Igð³Igð³IgðªIgð¢±-W @W"±AB_¿±ÿkAgðªAdgð²!¿B•g„g½B¢±ÿ>hb¿i_¿±ÿ3gð¢±ÿ)Jµ'Igð³Igð³Igð¨Idgð›hIb¿b±þMgð³IgðªIgð¢±þÜWhh O¢±yJ’±sJ¢±nWMhd ±^gð¢±UK²oLdgð§dgð”_±>gð²O£i_¿g_±%Ldgð’±dgð’±dgð’±ûdgð’±ðgð•M_±ëM±ßLgð³'Lgð³Lgð³LgðªLdgð²#¿O¢±±J’±«J¢±¦WMhd ±–gð³Lgð¨Lgð²WMghgh ±bM±Ygð¢±UNdgð²d¿WIh ¿Igð³BIgð³9Igð³0Igð³'Igð³Igð³IgðªIgð¢±öW @W"±ègð¢±ßK²gLdgð¯dgð§dgð”_±Àgð³Lgð³Lgð©Ldgð˜¿h¸L_±•gð´g_±ƒ¸g_°xLgð³&Lgð³Lgð³Lgð©Ldgðœ¿Whh °gð¢±2Od3@ð²O ²O ¨W@h±WghOgh ±èMgðªMdgð²r¿Ogð³!Ogð³Ogð«Odgð²¿O¢±¬J’±¦J¢±¡WMhd±‘gð³Ogð©Ogð²}WMghgh°bgð²cOgð³ Ogð³OgðªOdgð—¿Whh°.gð³Ogð©Ogð²Wghgh ¿Ogð–WO±ŽOdgð²I¿Od3@ð²O ²O ©WM@h°[WMghOgh °;gð²9Mgð©Mdgðž¿WMI h°gðŸWI h ¿O•WO°-O²Adgð˜¿Whh°Agð²JŸWghd W(2378 \NCONC2 2320 \NCONC2 2313 \CLISPIFYBLOCK/CLISPIFY2C 2293 \CLISPIFYBLOCK/CLISPIFY2C 2256 \NCONC2 2251 \NCONC2 2215 BOUNDP 2205 FNTYP 2159 \NCONC2 1922 \NCONC2 1917 \NCONC2 1884 BOUNDP 1874 FNTYP 1337 \CLISPIFYBLOCK/SHRKFY2 1312 \CLISPIFYBLOCK/CLISPIFYLOOKUP 1269 \CLISPIFYBLOCK/CLISPIFYLOOKUP 1167 CLISPIFY2A 1149 CLISPIFY2A 1143 \NCONC2 1099 \NCONC2 1050 \NCONC2 878 DWIMIFY1A 794 \NCONC2 756 \NCONC2 704 \NCONC2 504 \NCONC2 474 \NCONC2 321 \CLISPIFYBLOCK/SHRKFY2 311 DWIMIFY1A 227 \NCONC2) (2369 ! 2357 APPEND 2341 NCONC1 2303 LISTIT 2281 !! 2272 ! 2263 CLISPIFY2CIT 2244 > 2234 < 2184 OPANGLE 2167 OFFANGLES 2150 > 2144 < 2134 /NCONC1 2125 NCONC1 2115 CONS 2100 /NCONC 2090 LIST 2080 NCONC 2070 APPEND 2060 LISTIT 2051 > 2045 < 2034 /NCONC1 2025 NCONC1 2015 CONS 1981 /NCONC 1971 LIST 1961 NCONC 1951 APPEND 1940 ! 1931 !! 1910 > 1901 < 1852 LISTIT 1842 OPANGLE 1832 /NCONC1 1824 NCONC1 1814 OPANGLE 1804 /NCONC1 1795 /NCONC 1785 NCONC1 1775 NCONC 1765 OPANGLE 1755 OFFANGLES 1742 OPANGLE 1730 CONS 1720 APPEND 1710 LIST 1699 /NCONC 1690 NCONC 1679 OFFANGLES 1669 OPANGLE 1656 APPEND 1646 OFFANGLES 1638 LIST 1628 CONS 1618 OPANGLE 1610 /NCONC1 1600 /NCONC 1590 NCONC1 1580 NCONC 1570 CONS 1560 OFFANGLES 1550 OPANGLE 1534 APPEND 1524 OPANGLE 1514 OFFANGLES 1507 CONS 1498 LIST 1486 OPANGLE 1474 /NCONC1 1464 /NCONC 1454 LIST 1444 NCONC1 1434 NCONC 1424 CONS 1411 APPEND 1399 OPANGLE 1389 OFFANGLES 1382 APPEND 1364 ! 1355 !! 1319 CLISPIFY2CIT 1306 NCONC1 1296 /NCONC1 1287 NCONC1 1277 CLISPIFY2CIT 1263 NCONC 1252 /NCONC 1242 NCONC 1230 /NCONC1 1223 /NCONC 1214 NCONC1 1205 NCONC 1196 LIST 1187 CONS 1178 APPEND 1157 ADDITON 1128 ! 1118 !! 1105 ADDITON 1090 > 1084 < 1074 /NCONC1 1066 NCONC1 1057 CONS 1037 /NCONC 1028 QUOTE 1019 LIST 1010 NCONC 1001 APPEND 991 ADDITON 980 ADDITON 972 QUOTE 956 /NCONC1 947 /NCONC 938 NCONC1 929 NCONC 917 APPEND 909 LIST 901 CONS 886 ITSALIST 863 QUOTE 855 /NCONC1 846 /NCONC 837 NCONC1 828 NCONC 819 LIST 810 CONS 801 APPEND 780 ELEMENTAL 768 LISTIT 746 > 740 < 729 /NCONC1 721 NCONC1 712 CONS 671 /NCONC 662 QUOTE 653 LIST 644 NCONC 635 APPEND 617 QUOTE 607 /NCONC1 596 /NCONC 585 NCONC1 574 NCONC 562 APPEND 547 APPEND 535 CONS 527 LIST 512 ITSALIST 459 /NCONC1 451 NCONC1 442 CONS 423 /NCONC 414 NCONC 405 APPEND 396 LIST 382 STARTING 360 LISTIT 354 !! 343 /NCONC1 334 NCONC1 296 QUOTE 288 /NCONC1 279 /NCONC 270 NCONC1 261 NCONC 252 LIST 243 CONS 234 APPEND 204 ELEMENTAL 191 ! 182 !! 168 LISTIT 158 LIST 152 ! 133 APPEND 124 ! 105 LISTIT 95 CONS 76 ! 70 !! 61 ITSALIST 45 !! 33 /NCONC 24 NCONC 14 ELEMENTAL) () \CLISPIFYBLOCK/SHRKFY2 :D8 (L (2 STAGEFLAG 1 WORKFLAG 0 LOOKAT) P 0 RESULTP) ghX@ABH(18 \CLISPIFYBLOCK/SHRKFY) (7 TEMPATOM) () \CLISPIFYBLOCK/CLISPIFYLOOKUP :D8 (L (4 CLASSDEF 3 CLASS 2 VAR2 1 VAR1 0 WORD) F 1 DECLST) uC@g b¿DCg b¿C²Qž@ABQhCD °@g µCg µ@XDgð²ddDðž¿A£B”DH(78 GETPROP 65 GETPROP 52 CLISPLOOKUP0 31 GETPROP 15 GETPROP) (89 ARITH 73 LISPFN 60 LISPFN 26 CLISPCLASSDEF 10 CLISPCLASS) () \CLISPIFYBLOCK/CLSTOPSCAN? :D8 (L (1 CLTYP 0 CLTYPX)) "@´Ad²d—d3’¿A€@d—d3’¿@€ýñhðNIL NIL () \CLISPIFYBLOCK/WHILEDOUNTIL :D8 (L (0 $FORM)) ¦€@¹I¡@I_—O3¢±ŒI¸IZYd²æ[gð²ÚK \gð²ÆLHð²¾Kgi³®KL ¾gKN´ gNK ½@J HMI IY±ÿd(157 \NCONC2 152 \NCONC2 147 \CLISPIFYBLOCK/WHILEDOUNTIL 137 LDIFF 128 \CLISPIFYBLOCK/WHILEDO1 98 LDIFF 86 EDITFINDP 52 LAST) (116 DO 104 WHILE 80 RETURN 61 GO 41 COND) () \CLISPIFYBLOCK/WHILEDO1 :D8 (L (0 X)) !@d ¯@ið™@h g@h(20 \APPEND2) (26 COND) () LOWERCASE :D8 (P 2 X P 1 TEM P 0 FN I 0 FLG) ›` `¦h¿@•g„g¸gg ¿o°,dJgJg YkHIkHµÕgggkH¿gggkH(151 /PUT 126 /PUT 97 /PUT 79 GETPROP 49 RPAQ) (142 AND 137 CLISPINFIX 132 AND 117 OR 112 CLISPINFIX 107 OR 74 CLMAPS 68 CLMAPS 44 FLG 39 LCASEFLG 33 U-CASE 27 L-CASE 19 CHCONLST 12 CHCONLST 4 LCASEFLG) ( 55 (MAPC MAP MAPCAR MAPLIST MAPCONC MAPCON)) CLDISABLEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEM) hdPhoh(24 DWIMIFY0) (11 NOFIXVARSLST0 5 NOFIXFNSLST0) ( 19 (BODY $$VAL)) CLDISABLE :D8 (P 5 X P 4 SI::*RESETFORMS* P 3 BRACKET P 2 OP1 P 1 FLG P 0 TEM I 0 OP) @@ Z@g [@gð³@gð©@dgð–¿gŒgð´gXµ o°ag X²îg`g`hg ¿$°·d@M ‘i¹JM ‘i¹µäo°dM@M µæ@` ²tg@` ¿g` ¿i¹@dgð¿g ¿°0gðœg ¿°@dgðœ¿g ¿ƒ’KµI´@ ¿K ¿gK X²ÝH ¿°Ô(380 CLDISABLE 369 MEMB 357 CLDISABLE 348 CLDISABLE 331 CLDISABLE 308 CLDISABLE 288 CLDISABLE 265 /SETATOMVAL 260 MAKEBITTABLE 244 /SETATOMVAL 239 REMOVE 221 MEMB 205 /SETATOMVAL 200 REMOVE 195 GETTOPVAL 167 /REMPROP 157 /REMPROP 138 SI::RESETUNWIND 133 \MVLIST 128 CLDISABLEA0001 87 GETPROP 20 GETP 8 L-CASE) (363 SEPARATOR 326 !! 318 ! 303 - 296 +- 283 +- 275 - 255 CLISPCHARS 250 CLISPCHARRAY 234 CLISPCHARS 228 CLISPCHARS 216 CLISPCHARS 123 SI::RESETUNWIND 111 NOFIXVARSLST0 106 NOFIXVARSLST0 100 NOFIXFNSLST0 95 NOFIXFNSLST0 82 I.S.OPR 67 sum 59 + 53 join 45 > 36 ! 27 < 15 CLISPBRACKET) ( 180 (I.S.OPRLST CLISPFORWORDSPLST CLISPINFIXSPLST) 75 (CLISPTYPE UNARYOP CLISPCLASS CLISPCLASSDEF CLISPNEG CLISPINFIX BROADSCOPE CLISPFORM I.S.OPR CLISPWORD CLMAPS SETFN CLISPBRACKET)) (PRETTYCOMPRINT CLISPIFYCOMS) (RPAQQ CLISPIFYCOMS ((FNS CLISPIFYFNS CLISPIFY CLISPIFY1 CLISPIFY2 CLISPIFY2A CLISPIFY2B CLISPIFY2C CLISPIFY2D CLISP3 CLISP3A CLISP3B CLISPACKUP CLISP3C CLISP4 CLISPCOND CLISPCOND1 CLISPAND CLISPAND1 CLISPIFYNOT CLISPIFYMATCHUP CLREMPARS CLISPIFYCROPS0 CLISPIFYCROPS CLISPIFYCROPS1 CLISPIFYRPLAC CLISPIFYMAPS CLMAPS1 CLMAPS2 CLSTOPSCAN? CLISPIFYLOOKUP LOWERCASE SHRIEKIFY SHRKFY SHRKFY2 WHILEDOUNTIL WHILEDO1 CLDISABLE) (INITVARS (FUNNYATOMLST) (CLREMPARSFLG) (CL%:FLG T) (CLISPIFYPACKFLG) (CLISPIFYENGLSHFLG) (CLISPIFYUSERFN)) (VARS CAR/CDRSTRING) (USERMACROS CL) (PROP CLISPFORM ADD1 SUB1 NEQ) (PROP CLISPBRACKET CONS LIST APPEND NCONC NCONC1 /NCONC /NCONC1) (PROP CLISPTYPE ~EQUAL ~MEMBER ~MEMB) (PROP CLMAPS MAPC MAP MAPCAR MAPLIST MAPCONC MAPCON SUBSET) (BLOCKS (CLISPIFYBLOCK CLISPIFYFNS CLISPIFY CLISPIFY1 CLISPIFY2 CLISPIFY2A CLISPIFY2B CLISPIFY2C CLISPIFY2D CLISP3 CLISP3A CLISP3B CLISPACKUP CLISP3C CLISP4 CLISPCOND CLISPCOND1 CLISPAND CLISPAND1 CLISPIFYNOT CLISPIFYMATCHUP CLREMPARS CLISPIFYCROPS0 CLISPIFYCROPS CLISPIFYCROPS1 CLISPIFYRPLAC CLISPIFYMAPS CLMAPS1 CLMAPS2 SHRIEKIFY SHRKFY SHRKFY2 CLISPIFYLOOKUP CLSTOPSCAN? WHILEDOUNTIL WHILEDO1 (ENTRIES CLISPIFYFNS CLISPIFY CLISPACKUP CLISPIFYMATCHUP CLISPIFY2A CLISP3A) (SPECVARS EXPR VARS DWIMIFYFLG DWIMIFYING DWIMIFY0CHANGE) (LOCALFREEVARS DECLST CLTYP0 OPR0 LST SEG TAIL FORM PARENT SUBPARENT NOVALFLG NEGFLG RESULTP SAFEFLAG VARS CLISPISTATE TYPE-IN? SIDES CLISPIFYFN) (GLOBALVARS CAR/CDRSTRING CL%:FLG CLISPARRAY CLISPCHARRAY CLISPCHARS CLISPFLG CLISPIFYENGLSHFLG CLISPIFYPACKFLG CLISPIFYSTATS CLISPIFYUSERFN CLISPISNOISEWORDS CLISPISVERBS CLISPTRANFLG CLREMPARSFLG COMMENTFLG DWIMFLG FILELST FUNNYATOMLST GLOBALVARS LCASEFLG) (RETFNS CLISPIFY2B) (NOLINKFNS CLISPIFYUSERFN)) (NIL LOWERCASE ( GLOBALVARS CHCONLST LCASEFLG)) (NIL CLDISABLE (GLOBALVARS CLISPCHARS CLISPCHARRAY NOFIXFNSLST0 NOFIXVARSLST0)) (NIL (GLOBALVARS CLISPISNOISEWORDS CLISPISVERBS CLISPISWORDSPLST))) (P (LOWERCASE T)) (DECLARE%: DOEVAL@COMPILE DONTCOPY (RECORDS MATCHUP)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA CLISPIFYFNS) (NLAML) (LAMA))))) (RPAQ? FUNNYATOMLST) (RPAQ? CLREMPARSFLG) (RPAQ? CL%:FLG T) (RPAQ? CLISPIFYPACKFLG) (RPAQ? CLISPIFYENGLSHFLG) (RPAQ? CLISPIFYUSERFN) (RPAQQ CAR/CDRSTRING "CAR/21-") (ADDTOVAR EDITMACROS (CL NIL (BIND (IF (NULL (CDR L)) ((IF (MEMB (%## 1) LAMBDASPLST) ((MARK %#3) 3 UP ) ((E (PROGN (SETQQ COM CL) (PRINT (QUOTE can't) T T) (ERROR!)))))) NIL) (IF (TAILP (SETQ %#1 (%##)) ( %## !0 (E (SETQ %#2 L) T))) ((I %: (CLISPIFY %#1 %#2)) (LO 1)) ((COMS (CONS (QUOTE %:) (CLISPIFY %#1 %#2)) (AND (LISTP (%## 1)) 1)))) (IF %#3 ((\ %#3)) NIL)))) (ADDTOVAR EDITCOMSA CL) (PUTPROPS ADD1 CLISPFORM (IPLUS * 1)) (PUTPROPS SUB1 CLISPFORM (IPLUS * -1)) (PUTPROPS NEQ CLISPFORM (NOT (EQ . *))) (PUTPROPS CONS CLISPBRACKET <) (PUTPROPS LIST CLISPBRACKET <) (PUTPROPS APPEND CLISPBRACKET <) (PUTPROPS NCONC CLISPBRACKET <) (PUTPROPS NCONC1 CLISPBRACKET <) (PUTPROPS /NCONC CLISPBRACKET <) (PUTPROPS /NCONC1 CLISPBRACKET <) (PUTPROPS ~EQUAL CLISPTYPE NIL) (PUTPROPS ~MEMBER CLISPTYPE NIL) (PUTPROPS ~MEMB CLISPTYPE NIL) (PUTPROPS MAPC CLMAPS (in . do)) (PUTPROPS MAP CLMAPS (on . do)) (PUTPROPS MAPCAR CLMAPS (in . collect)) (PUTPROPS MAPLIST CLMAPS (on . collect)) (PUTPROPS MAPCONC CLMAPS (in . join)) (PUTPROPS MAPCON CLMAPS (on . join)) (PUTPROPS SUBSET CLMAPS (in . subset)) (LOWERCASE T) (PUTPROPS CLISPIFY COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1990)) NIL