(FILECREATED "27-Jan-85 00:32:42" ("compiled on " {ERIS}SOURCES>CLISPIFY.;8) "19-Jan-85 19:21:43" brecompiled changes: CLISPIFYFNS CLISPIFY CLISPIFY1 CLISPIFY2A CLISPIFY2B CLISP3A CLISPACKUP CLISPIFYMATCHUP in "INTERLISP-D 19-Jan-85 ..." dated "19-Jan-85 19:32:28") (FILECREATED "27-Jan-85 00:31:00" {ERIS}SOURCES>CLISPIFY.;8 103840 changes to: (FNS CLISPIFYFNS CLISPIFY CLISPIFY2A CLISP3A CLISPACKUP CLISPIFYMATCHUP CLISPIFY1 CLISPIFY2B) previous date: "28-Sep-84 15:52:43" {ERIS}SOURCES>CLISPIFY.;7) CLISPIFYFNSA0001 D1 (NAME ERRORSET F 0 X) P h(3 CLISPIFY) NIL () CLISPIFYFNS D1 (L (0 FNS) P 5 X) ¢j 0@d’±†dž¿g@hg°rg µh`ž@lF`h@ µ@g–@ µGg@g°:dj YHÙnu0ñ²I¸Mid¿oi ¿oi Z–KµJ\[¿µÇL [J°ó(233Q LAST 207Q CLISPIFYFNSA0001 176Q PRIN1 165Q PRIN2 144Q CLOCK 131Q STKEVAL 114Q FILEFNSLST 76Q MISSPELLED? 52Q EVALV 41Q STKEVAL 3 CLOCK) (126Q INTERNAL 121Q CLISPIFYFNS 105Q FILE 70Q FILELST 60Q DWIMFLG 47Q CLISPIFYFNS 36Q INTERNAL 30Q CLISPIFYFNS) ( 203Q (CLISPIFYFNSA0001) 172Q ", ") CLISPIFY D1 (L (1 EDITCHAIN 0 X) P 15Q CLISPISTATE P 14Q LST P 13Q TAIL P 12Q SEG P 11Q FORM P 10Q SUBPARENT P 7 PARENT P 6 VARS P 5 EXPR P 4 DECLST P 3 CLTYP0 P 2 OPR0 P 1 CLISPIFYFN F 16Q LASTAIL F 17Q ATM) Æà @¢A².Aµ@°3_¿WXA “H_¿WYµ A ¾A Ž¹°ó@ X¹H_½I£g¹MI \O³QA¤@ @O žO_@ XdHAgð³Agð²@dAð³dOœ¿@_@ h@ M XIµ ¥Ii ¿IH `–Ig I(302Q MARKASCHANGED 267Q /PUTD 261Q DWIMUNSAVEDEF 253Q \DEFINEDP 243Q \CLISPIFYBLOCK/CLISPIFY2 236Q CLISPIFY2A 227Q \CLISPIFYBLOCK/CLISPIFY1 146Q \CLISPIFYBLOCK/CLISPIFY1 135Q TAILP 126Q \CLISPIFYBLOCK/CLISPIFY2 113Q GETLOCALDEC 70Q EXPRCHECK 56Q LAST 51Q VARSBOUNDINEDITCHAIN 32Q TAILP) (277Q FNS 272Q FILEPKGFLG 174Q SELECTQ 163Q COND 105Q TYPE-IN) () \CLISPIFYBLOCK/CLISPIFY1 D1 (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µMlð²,Mmÿ)l'ð²#@°1ið³êLµAg²àAh¼°ÚAh ¿°Ñ@Diðµ D´@Dðhð »@½J«K@ð–A¤Bið² @Hð©LH@ ¼J’LKƒLKh ¼@¸@b¿hº±ÿf(263Q \NCONC2 246Q \NCONC2 243Q LDIFF 207Q \CLISPIFYBLOCK/CLISPIFY2 162Q \NCONC2 75Q FLAST 63Q \NCONC2 41Q LAST 25Q NLEFT) (143Q UNARYOP 33Q NOTLAST) () \CLISPIFYBLOCK/CLISPIFY2 D1 (I 2 NEGFLG I 1 NOVALFLG I 0 FORM F 0 OPR0 F 1 CLTYP0) 6@d²2dlð²$¿P²Q²@d`²¿g µ‡gi¿@ µ°ú(57Q CLISPIFY2B 52Q RETEVAL 40Q STKPOS) (46Q FORM 35Q CLISPIFY2B 26Q CLISPCHARS) () CLISPIFY2A D1 (L (1 FLG) P 1 SEG I 0 FORM) @ XI—A“dd¢HHh(6 \CLISPIFYBLOCK/CLISPIFY2) NIL () CLISPIFY2B D1 (P 17Q FORM P 13Q SUBPARENT P 12Q PARENT P 11Q CLTYP0 P 10Q OPR0 I 0 FORM F 20Q VARS F 21Q NOVALFLG F 22Q CLTYP0 F 23Q NEGFLG F 24Q OPR0 F 25Q TAIL F 26Q PARENT F 27Q SUBPARENT F 30Q LAMBDASPLST) \ €@µ8W$—@gXµIµ‚±C@W$gð²í`™Hd¡¹W*c$¿°Ø”@ @dgð•¿@ dgð˜¿o dgð˜¿o dgð¦dgð²¿@@@@ð¢±mÿh dgð²*¿@Xd¥d¡¢±z@d’±r¿H h dgð¦dgð²6`¢±Q@d¥d¡¢±?@@@ ð¢±0@kÙh dgð«dgð¥dgð™¿@gidgð«dgð¥dgð™¿@gidgð’±dgð’±dgð’±ÿdgð²¿@dgð¢±ì¿g@dgð²;¿gg¢±¢@d¢±Éh¼»K[ªL`²g°LKKL ¼°ägdgð¦dgð²^¿gg¢±\W"¢±VW,W. @dgðž¿@ `²Åg°Ãgð²$@’±)g@h@ `²g°›dgð²}¿@@ @_d_@i X@´I0@°;dOd²OhddW"µg _¿Oµ Oh_‚O&_¿]´MµÅOYgHI@ i dgð²¿@hddg X@H dgð²/¿@Ÿ@g–@ g@hhW"W&hc&¿dgð—¿@ dgð²L¿@W c @²@@g@hb¿¿@gX¢±+@dgð’±!¿ooH dgð²B¿`¢±gg¢±ùg@@Xd²d¥d¡µ gHhhW"W&dgð¦dgð²4¿@Yhð´W(@IhgXIY¡HHII dgð¦dgð²;¿@l ¢±ÿ>@dgð¥dgð’¿i¿h¢±ÿ%@ @@hgdgð¦dgð²>¿@l ¢±þø@Xgð¨Hgð¢±þå@Xgð¨Hgð¢±þÐ@gigð’±ì@d`ðšbdh@`’±Ð@g^gð³N•gNª@dW0¢±þ„¿@ ’±þz@gYœ`˜Id¡ƒ€@@d£¿h°Y@W c ¿@°G0@°9d_d©W c ¿O°W c ¿OO _¿Oµ Oh_‚O&_¿µÈO@ h@g´@hgH ‘igH ´ W"µg @gXµ-@gX²U@d²P¿W&¬W(©W$¦H`²>H@HggZ²Ð@@@@Hdg ð²HggµH@J@gXž@gHb±ú(@gXµ@gXd¢±É¿@HHggY²àgI Zµ3Hg²n@gI µigZHIJIh gigð²8`²HgžW"«@ @ Xµ @h@gð¢±ýZgHgi@kJ@gI µigZH@ IJIh gi²@gY@ð–Ih @gµ‚±üz@gX˜HH µs@dlð² ³@dg› ¦@h@@i ³H`•@ µ?@dlð• °²&@dgð³gð³@d`›h`±ø°@’±ÿ @(3516Q PUTHASH 3450Q FGETD 3432Q CLISPIFYUSERFN 3420Q CLISPNOEVAL 3411Q \CLISPIFYBLOCK/CLISPIFY1 3402Q \CLISPIFYBLOCK/CLISPIFY2D 3365Q \DEFINEDP 3346Q \CLISPIFYBLOCK/CLISPIFYMAPS 3311Q \CLISPIFYBLOCK/CLISPIFYCROPS0 3265Q \CLISPIFYBLOCK/CLISP3 3254Q \APPEND2 3241Q \CLISPIFYBLOCK/CLISPIFY2 3231Q \CLISPIFYBLOCK/CLISPIFY1 3216Q MEMB 3175Q \CLISPIFYBLOCK/CLISP3 3150Q \CLISPIFYBLOCK/CLISPIFY2C 3136Q \CLISPIFYBLOCK/SHRIEKIFY 3101Q \CLISPIFYBLOCK/CLISP3 3071Q \APPEND2 3054Q \CLISPIFYBLOCK/CLISPIFY1 3041Q MEMB 3014Q MEMB 2775Q \CLISPIFYBLOCK/CLISPIFYRPLAC 2724Q LSUBST 2702Q \CLISPIFYBLOCK/CLISP3 2656Q \CLISPIFYBLOCK/CLISPIFYLOOKUP 2621Q \CLISPIFYBLOCK/CLISP3 2533Q \CLISPIFYBLOCK/CLISPIFY1 2516Q MEMB 2504Q MEMB 2462Q \CLISPIFYBLOCK/WHILEDOUNTIL 2420Q \CLISPIFYBLOCK/CLISPIFY1 2260Q \CLISPIFYBLOCK/CLISPIFY2D 2201Q \CLISPIFYBLOCK/CLISPIFY1 2146Q \CLISPIFYBLOCK/CLISPIFYRPLAC 2062Q EQLENGTH 2035Q \CLISPIFYBLOCK/CLISPIFYCROPS 2015Q \CLISPIFYBLOCK/CLISP4 1754Q EQLENGTH 1727Q \NCONC2 1723Q \CLISPIFYBLOCK/CLISPIFY1 1703Q \CLISPIFYBLOCK/CLISPIFYCROPS 1630Q \CLISPIFYBLOCK/CLISPIFY2 1521Q \CLISPIFYBLOCK/CLISPIFYCROPS0 1516Q SUBPAIR 1400Q \CLISPIFYBLOCK/CLISPIFYNOT 1362Q \CLISPIFYBLOCK/CLISPIFY2 1333Q \CLISPIFYBLOCK/CLISPIFYNOT 1276Q \CLISPIFYBLOCK/CLISPIFY2C 1270Q \CLISPIFYBLOCK/CLISPIFY1 1242Q \NCONC2 1237Q \NCONC2 1234Q CLISPIFY2A 1227Q LAST 1152Q \CLISPIFYBLOCK/CLISPIFY1 1077Q CLISPIFY2A 1061Q \CLISPIFYBLOCK/CLISP4 1041Q SHOULDNT 1024Q \CLISPIFYBLOCK/CLISPCOND 754Q \CLISPIFYBLOCK/CLISPAND 737Q \CLISPIFYBLOCK/CLISP4 661Q \NCONC2 656Q \CLISPIFYBLOCK/CLISPCOND 500Q \CLISPIFYBLOCK/CLISPIFYRPLAC 444Q \CLISPIFYBLOCK/CLISPIFYRPLAC 410Q \CLISPIFYBLOCK/CLISPIFYCROPS0 370Q \CLISPIFYBLOCK/CLISPIFYLOOKUP 307Q \CLISPIFYBLOCK/CLISPIFYCROPS0 302Q MINUS 230Q \CLISPIFYBLOCK/CLISPIFYCROPS0 214Q \CLISPIFYBLOCK/CLISPIFYLOOKUP 157Q \CLISPIFYBLOCK/CLISPIFYCROPS0 140Q \CLISPIFYBLOCK/CLISPIFYCROPS0 121Q \CLISPIFYBLOCK/CLISPIFY2C 103Q \CLISPIFYBLOCK/CLISPIFY1) (3513Q CLISPARRAY 3505Q CLISPARRAY 3475Q NLAMBDA 3465Q LAMBDA 3425Q CLISPIFYUSERFN 3375Q CLISPWORD 3334Q CLMAPS 3317Q ACCESSFN 3275Q ACCESSFN 3261Q BRACKET 3226Q BRACKET 3212Q SEPARATOR 3171Q BRACKET 3165Q < 3155Q < 3121Q CLISPTYPE 3113Q CLISPFLG 3105Q SHRIEKIFY 3075Q BRACKET 3051Q BRACKET 3035Q SEPARATOR 3025Q UNARYOP 3010Q CLISPIFY 3001Q CLISPBRACKET 2771Q ACCESSFN 2750Q SETFN 2737Q CLISPBRACKET 2720Q * 2710Q CLISPFORM 2671Q CLISPINFIX 2665Q LISPFN 2651Q CLISPCLASSDEF 2625Q CLISPTYPE 2615Q CLISPTYPE 2604Q CLISPCHARS 2554Q CLISPINFIX 2543Q CLISPCLASS 2527Q NOTLAST 2512Q PROGN 2500Q LABELS 2470Q CLISPWORD 2300Q LCASEFLG 2271Q CLISPWORD 2236Q BINDS 2225Q BINDS 2220Q INFO 2206Q CLISPCHARS 2165Q CLISPTRANFLG 2152Q ASSEMBLE 2142Q replace 2131Q with 2123Q WITH 2104Q of 2076Q OF 2050Q REPLACE 2042Q replace 2032Q fetch 1776Q OF 1770Q of 1742Q FETCH 1734Q fetch 1700Q match 1643Q MATCH 1635Q match 1611Q QUOTE 1557Q SETQ 1547Q CLISPTYPE 1544Q _ 1535Q CLISPFLG 1526Q SETQQ 1474Q GETPROPLIST 1460Q CROPS 1437Q PROG1 1405Q SETQ 1367Q NOT 1337Q EQ 1323Q CLISPTYPE 1303Q NULL 1264Q NOTLAST 1250Q PROGN 1221Q SELECTQ 1146Q NOTLAST 1046Q SELECTQ 1034Q if 1027Q LCASEFLG 1007Q NOT 771Q OR 764Q if 757Q LCASEFLG 745Q AND 715Q CLISPWORD 712Q IF 703Q OR 675Q AND 667Q IF 643Q if 636Q LCASEFLG 607Q CLISPWORD 604Q IF 575Q COND 564Q CLISP: 553Q DECLARATIONS: 540Q * 527Q DECLARE 516Q GO 505Q CLISP: 474Q ::1 465Q /RPLACD 457Q FRPLACD 451Q RPLACD 440Q :1 431Q /RPLACA 423Q FRPLACA 415Q RPLACA 330Q CL:FLG 322Q FNTH 314Q NTH 235Q NLEFT 172Q FLAST 164Q LAST 145Q CDR 126Q CAR 112Q FUNCTION 52Q LCASEFLG 42Q CLISPWORD 16Q CLISPWORD) ( 1512Q (:1 ::1) 1506Q (A D) 154Q (::1) 135Q (:1)) \CLISPIFYBLOCK/CLISPIFY2C D1 (L (1 X) I 2 SUBPARENT I 0 FORM) =Aµ0@hdd@gHgðµH´ gH´i´gB b@ð¤@A@(56Q \CLISPIFYBLOCK/CLISPIFY1) (51Q NOTLAST 36Q PROGN 24Q PROGN 14Q INFO) () \CLISPIFYBLOCK/CLISPIFY2D D1 (I 0 FORM F 1 VARS) `@Xd²Vlð´PHdgk X` ´@ bQdgð¥dgð”¿@° ¿QgHgðµH´ gH´i’hc@(3 CLISPACKUP) (60Q LABELS 46Q LABELS 36Q INFO 21Q SETN 13Q SELECTQ) () \CLISPIFYBLOCK/CLISP3B D1 (L (1 CLTYP 0 OPR) F 0 CLTYP0 F 1 OPR0 F 2 LST F 3 TAIL) =Q´:Pgðhð´1Agðhð´(R²AP µAAPdlñýñµ S´ PA hð(70Q \CLISPIFYBLOCK/CLSTOPSCAN? 34Q \CLISPIFYBLOCK/CLSTOPSCAN?) (17Q BRACKET 6 BRACKET) () CLISPACKUP D1 (L (0 L)) ›@QHdlñ’¿°rgð²;J`—Jgð²IJ ¿Hlñ³Hd ŽIHdlñ X¿h\°=Hd`—dgð²Llð²>gH ®`µ$`H ²%h¼Id•J ¿h¹h½HZµ‚±ÿ@ið§H`°ÝH¼M²Ü°äg[²SHdKð²¿JKð³Hg²;IJ ¿h\Y°1HKð²(HKð³IµL[dgð¦dgðH ¸h\°ŠI¤LµH¹Hdgð²gð²HgHd¿†gð´`L²;H[d¥d¡²+jKó²&Hgð”HgŒgg´3Hg´,HK °!Hgð´Hdgðšg¿Hdƒg¿h¼i±þþX¢±þí±þm(547Q MINUS 374Q \CLISPIFYBLOCK/CLISP3C 315Q \CLISPIFYBLOCK/CLISP3C 207Q \CLISPIFYBLOCK/CLISP3C 174Q STRPOSL 155Q GETPROPLIST 110Q \CLISPIFYBLOCK/CLISP3C 71Q \CLISPIFYBLOCK/CLISP3C 51Q \CLISPIFYBLOCK/CLISP3C) (610Q - 575Q + 570Q - 556Q +- 536Q - 527Q CLISPTYPE 524Q - 520Q + 512Q +- 452Q +- 435Q +- 426Q - 416Q + 365Q - 356Q + 305Q UNARYOP 254Q CLISPBRACKET 236Q FUNNYATOMLST 167Q CLISPCHARRAY 162Q FUNNYATOMLST 150Q CLISPTYPE 133Q ! 124Q CLISPCHARS 41Q ! 32Q CLISPCHARS 22Q ') () \CLISPIFYBLOCK/CLISP3CA0005 D1 (NAME ERRORSET F 0 PRXFLG F 1 L1) hc¿Q h(7 PACK) NIL () \CLISPIFYBLOCK/CLISP3C D1 (L (1 L2) I 0 L1 F 4 RESETVARSLST F 5 PRXFLG F 6 SEG) ƒA1@¡AAd@ð´@`²ggUTcZ»og Jc ¿KdTð•¿JcT ™TkKJ¿µ¹V”I ƒI ³I`³Id¥d¡¨@I¿@H@AdH¿(135Q FNTYP 130Q BOUNDP 120Q ERROR! 107Q NLEFT 100Q TAILP 53Q \CLISPIFYBLOCK/CLISP3CA0005) (143Q FUNNYATOMLST 50Q INTERNAL 31Q PRXFLG 24Q CLISPIFYPACKFLG) ( 45Q (\CLISPIFYBLOCK/CLISP3CA0005)) \CLISPIFYBLOCK/CLISP4A0007 D1 (NAME ERRORSET P 0 DWIMIFYFLG F 1 EXP F 2 SUBPARENT F 3 CLISPIFYFN F 4 FLG) #i¿gQRµdhddSg chh(32Q DWIMIFY0?) (26Q LINEAR 7 CLISPIFY 3 NOSPELLFLG) () \CLISPIFYBLOCK/CLISP4 D1 (P 3 FLG I 1 SUBPARENT I 0 EXP F 6 RESETVARSLST F 7 VARS) `´‚±@gð’± @gHgðµH´ gH´i’±é@`’±àAµU@°Rd!HHº¿Jlð´>J hð´5JWhð´,J@ð´J hð´k¹`JIY¡hŒJI g²=I¤µ¯h´‚±@g`Vc\½og L¿MdVð›¿Lc°IkØ°¨V ™VkML¿£¿gmÿJdZµgdd °g @ð‘K¨Jgi…Jhih(431Q RETFROM 422Q RETEVAL 405Q STKEVAL 375Q RETFROM 372Q APPLY 367Q STKARGS 354Q STKPOS 341Q ERROR! 331Q NLEFT 322Q TAILP 266Q \CLISPIFYBLOCK/CLISP4A0007 210Q NTHCHAR 176Q STRPOSL 157Q FGETD 130Q BOUNDP) (416Q FORM 402Q FORM 362Q CLISPIFY 345Q CLISPIFY2B 274Q NOSPELLFLG 263Q INTERNAL 245Q NOSPELLFLG 242Q NOSPELLFLG 213Q CLISPTYPE 170Q CLISPCHARRAY 67Q CLISPARRAY 51Q LABELS 37Q LABELS 27Q INFO 15Q SETQ 2 CLISPFLG) ( 260Q (\CLISPIFYBLOCK/CLISP4A0007)) \CLISPIFYBLOCK/CLISPCOND D1 (L (2 VAL 1 CPYFLG 0 CLAUSE) P 5 SUBPARENT P 4 PARENT P 1 OPR0 P 0 CLTYP0 F 6 SEG) igQB²@dið²¿`“g‚g@ @´`“g‚g@A Z@ [`“g‚gV™hc¿KJ ŽKd –¿KJ J(142Q \APPEND2 133Q \CLISPIFYBLOCK/CLREMPARS 125Q \NCONC2 76Q \CLISPIFYBLOCK/CLISPIFY2 67Q \CLISPIFYBLOCK/CLISPCOND1 40Q \CLISPIFYBLOCK/CLISPCOND1) (112Q ELSEIF 106Q elseif 102Q LCASEFLG 61Q THEN 55Q then 51Q LCASEFLG 33Q ELSE 27Q else 23Q LCASEFLG 2 COND) () \CLISPIFYBLOCK/CLISPCOND1 D1 (L (1 CPYFLG 0 L) F 1 NOVALFLG) Q@h@hð´ghQµg Xd³!d ²A²H @ ð•H HAžH @ ð”H H(114Q \APPEND2 106Q FLAST 102Q FLAST 70Q \APPEND2 61Q FLAST 54Q FLAST 42Q \CLISPIFYBLOCK/CLREMPARS 30Q \CLISPIFYBLOCK/CLISPIFY1) (24Q NOTLAST 15Q COND) () \CLISPIFYBLOCK/CLISPAND D1 (I 0 FORM) ; @ @d— “@° @d‡dYI ¤µöhµ@ X H (70Q \CLISPIFYBLOCK/CLISPCOND 63Q LDIFF 57Q FLAST 43Q \CLISPIFYBLOCK/CLISPAND1 22Q \CLISPIFYBLOCK/CLISPAND1 6 \CLISPIFYBLOCK/CLISP4) NIL () \CLISPIFYBLOCK/CLISPAND1 D1 (L (0 $FORM)) °@¢±¡@dgð’±”dgð’±‹dgð’±‚dgð³zdgð³sdgð³ldgð³edgð³^dgð”¿@dgð˜¿@b°£dgð•¿@dgð¥dgð—¿@b°ƒgð´*@ ´@Šd ´µói@lð²ù@ið(233Q \CLISPIFYBLOCK/CLISPAND1 227Q FLAST 216Q \CLISPIFYBLOCK/CLISPAND1 211Q FLAST) (202Q COND 165Q PRIN1 157Q PRINT 143Q SETQQ 124Q SETQ 111Q QUOTE 102Q /RPLACD 73Q /RPLACA 64Q FRPLACD 55Q FRPLACA 46Q RPLACD 35Q RPLACA 24Q LIST 13Q CONS) () \CLISPIFYBLOCK/CLISPIFYNOT D1 (I 0 FORM F 2 NEGFLG) > Rhðc@ XR `²"gg²ggYgdHhIigHh(63Q \CLISPIFYBLOCK/CLISP3 13Q CLISPIFY2B) (67Q NOT 51Q ~ 43Q CLISPTYPE 40Q ~ 32Q CLISPINFIX 27Q NOT 22Q CLISPFLG) () CLISPIFYMATCHUP D1 (L (3 ALST 2 $VARS 1 $LST 0 PAT)) ‹A´~@dB²+C µC@Ah b¿@b²]Ab°×Aô³ðhAð³è@d²¿Až@ABCb³Ðh@ggð–@b¿°›@d`•b¿°Agð³£hA³üCµi(115Q CLISPIFYMATCHUP 34Q \NCONC2 17Q FASSOC) (172Q CLISPISPROP 154Q CLISPISNOISEWORDS 135Q ISWORD 130Q CLISPCLASS) () \CLISPIFYBLOCK/CLREMPARS D1 (L (0 X)) I`´D@´@@´<@hð´4@lñhð´*@lñhð´@lñhð´@ ´`@ hð(104Q STRPOSL 72Q \DEFINEDP) (77Q CLISPCHARRAY 2 CLREMPARSFLG) () \CLISPIFYBLOCK/CLISPIFYCROPS0 D1 (L (0 CROPSLST) F 0 FORM) P P@P(14Q \CLISPIFYBLOCK/CLISPIFYCROPS 3 \CLISPIFYBLOCK/CLISP4) NIL () \CLISPIFYBLOCK/CLISPIFYCROPS D1 (L (3 Y 2 CROPFN 1 CROPSLST 0 X) P 6 CLTYP0 P 5 OPR0 P 3 SUBPARENT P 2 PARENT F 7 SEG F 10Q OPR0 F 11Q PARENT F 12Q FORM) ±WAAµCYµC³i`œ`˜gg³XW lð² I`³;Bgð¦Bgð²ÎoI °"Bgð¦Bgð²·IŒd¼oL ¤µòh²¢gg ¿ `˜g]g¾@ YW³(Ih¹`´9Id²x¿`dið²J¿I³"I°e`˜I`ð³ÓI Y´Ih¹hc¿C’±ÐBdgð¢±±¿gAgIgðžI…d³µùh°`²Ik`hðƒ ³¶Wgð²!ic¿Id`ð©¿`Ab¿IA Id`ð–d¿Iˆ¡I„¿hdA CB¿ic¿gdg ™hcHZI C³%W³!HZI gð›BIgA BIBµIIh(637Q \APPEND2 617Q CLISP3A 601Q CLISP3A 567Q \CLISPIFYBLOCK/CLISP3B 546Q \CLISPIFYBLOCK/CLISPIFYCROPS1 541Q \NCONC2 531Q SHOULDNT 501Q \NCONC2 476Q \APPEND2 431Q CLISPNOEVAL 307Q CLISP3A 212Q \CLISPIFYBLOCK/CLISPIFY2 165Q RETEVAL 144Q STRPOS 110Q STRPOS 45Q \CLISPIFYBLOCK/CLISPIFY2C) (632Q with 623Q match 563Q CLISPTYPE 557Q : 511Q CAR/CDRSTRING 464Q CAR/CDRSTRING 456Q CAR/CDRSTRING 440Q : 420Q CL:FLG 407Q CL:FLG 363Q ALL 353Q of 346Q fetch 335Q fetch 300Q CAR/CDRSTRING 271Q CL:FLG 243Q CL:FLG 227Q CL:FLG 204Q CLISPTYPE 200Q : 174Q CL:FLG 162Q FORM 157Q CLISPIFY2B 124Q replace 116Q fetch 75Q replace 67Q fetch 60Q CLISPCHARS 35Q CLISPTYPE 32Q : 26Q CL:FLG 22Q CLISPFLG) ( 140Q "." 104Q ".") \CLISPIFYBLOCK/CLISPIFYCROPS1 D1 (L (2 CROPFN 1 Y 0 $LST)) P@µAd²»hb¿Kgð²;J³#k°)[°ò»J™IgdH¸K•KH ¸H jIó‘I‚IkØgH¸hº±¸Kdgð²(¿J¦iºk¹±¦Imÿð¦IkØ¹±šmÿgdH¸k¹±Šd¥d¡²"J¥iºK¹°uKjñ•KIØ¹°kIgdH¸K¹°]J´ IgdH¸hºK¢K°ABgð’K°8Kd²20K°d¼gLh]—NµM_^¿µéO ˆ ^M°ígH¸@b±þü(366Q LAST 362Q PACK 70Q DREVERSE 63Q \APPEND2) (377Q : 330Q %. 301Q match 257Q : 236Q : 161Q : 123Q ::1 105Q : 46Q : 22Q :1) () \CLISPIFYBLOCK/CLISPIFYRPLAC D1 (L (2 :FLG 1 TYP 0 X) P 14Q TAIL P 13Q LST P 12Q SUBPARENT P 11Q PARENT P 2 CLTYP0 P 1 OPR0 F 15Q SEG F 16Q CLTYP0 F 17Q PARENT) * WgdgWt JŸ`›`—gg¤@ @ ¿Agð²@¾@_¿@°G@@@@ð²Ì@¾@@gµ!@d ¨¿@ µ@g@ _¿A_¿B³/A@O ¼Hhðc¿K_¿LO²ogiO °eNd´!g]²ooM]–NMN‚NhdO\³´hc¿Agð²AOgLgO @LO ghh (447Q CLISP3A 444Q \NCONC2 430Q \NCONC2 425Q \CLISPIFYBLOCK/CLISPIFY1 411Q \NCONC2 405Q \CLISPIFYBLOCK/CLISPIFY1 347Q \CLISPIFYBLOCK/CLISPIFYCROPS 326Q SUBPAIR 272Q CLISPIFY2A 234Q CLISPIFY2A 230Q LDIFF 206Q NTH 203Q PUTPROP 200Q LENGTH 175Q SMARTARGLIST 161Q NARGS 152Q SUBRP 123Q \CLISPIFYBLOCK/CLISPIFYLOOKUP 51Q \CLISPIFYBLOCK/CLISP4 44Q \CLISPIFYBLOCK/CLISPIFY2C) (435Q _ 400Q with 374Q of 363Q replace 306Q CROPS 260Q _ 170Q NARGS 141Q NARGS 56Q replace 36Q CLISPTYPE 33Q : 27Q CL:FLG 23Q CLISPFLG 10Q CLISPTYPE 4 _) ( 322Q (:1 ::1) 316Q (A D)) \CLISPIFYBLOCK/CLISPIFYMAPS D1 (L (1 OPR 0 IN-ON) F 4 FORM) ÒTT"H´=Hgð´5HX•H³(I²I´"Igð´IY”I«TTT ð¡hHµTgð—g†‚gZAgð²H³ÚHgJgh ³ÉJ´`“g‚gJh@hT [d«d •¿K I`“g‚gJHAJ (317Q \NCONC2 314Q \NCONC2 311Q \NCONC2 306Q \NCONC2 303Q \CLISPIFYBLOCK/CLMAPS2 275Q \CLISPIFYBLOCK/CLMAPS2 255Q \APPEND2 246Q \CLISPIFYBLOCK/CLREMPARS 235Q CLISPIFY2A 200Q EDITFINDP 107Q \CLISPIFYBLOCK/CLISPIFYLOOKUP) (271Q BY 265Q by 261Q LCASEFLG 220Q FOR 214Q for 210Q LCASEFLG 171Q -- 165Q SETQ 147Q subset 142Q X 132Q Y 125Q X 57Q FUNCTION 24Q FUNCTION) () \CLISPIFYBLOCK/CLMAPS1 D1 (L (0 FN)) >@gð£@g@²"@ ³@‡dlñ¥µ÷i¿h’@‡gh@(31Q \DEFINEDP) (65Q X 15Q LAMBDA 4 F/L) () \CLISPIFYBLOCK/CLMAPS2 D1 (L (2 VAR 1 WORD 0 DEF) P 4 CLTYP0 P 3 OPR0) K@´‚±EPAgð² `“g‚gb¿`“g‚gBh¹@³@d –¿@h±×Bhh±ÎAgð³Agð®Agð¨Agð¢±¬@d’±¤Xdgð—d£Zgð¢±‡HZhð²}JY¸Idgð²¹`”g°gŒ¹`“g‚gI Zd¨d ’¿J¹Agð¦Agð²/H Z³%Jgð²`“g‚gb¿HJ J „H‚@ X@µAHd¨d ’¿HI §@Bð³âA@@HIBh(452Q \APPEND2 442Q \CLISPIFYBLOCK/CLREMPARS 423Q \CLISPIFYBLOCK/CLISPIFY1 412Q \NCONC2 404Q LDIFF 342Q FLAST 313Q \CLISPIFYBLOCK/CLREMPARS 302Q CLISPIFY2A 67Q FNTYP) (374Q COLLECT 370Q collect 364Q LCASEFLG 356Q LIST 333Q join 325Q JOIN 276Q WHEN 272Q when 266Q LCASEFLG 260Q UNLESS 253Q unless 247Q LCASEFLG 235Q NOT 204Q AND 166Q COND 137Q join 131Q do 123Q JOIN 114Q DO 51Q COLLECT 45Q collect 41Q LCASEFLG 33Q WHEN 27Q when 23Q LCASEFLG 15Q subset) () \CLISPIFYBLOCK/SHRIEKIFY D1 (L (0 LOOKAT) P 5 SUBPARENT P 4 PARENT P 2 RESULTP P 1 CLTYP0 P 0 OPR0 F 6 FORM) –gdgB@[dgð¥dgðšg ð³hgð¥Kgð™Kg ð´ìV ghZ@giJ´Jgh Zdlðžd —J ´µgg¨Jg ³£gg¨Jg ³’J(220Q EDITFINDP 177Q EDITFINDP 156Q BOUNDP 147Q FNTYP 130Q \NCONC2 113Q \CLISPIFYBLOCK/SHRKFY 75Q \CLISPIFYBLOCK/CLISP4 66Q \CLISPIFYBLOCK/CLISPIFYLOOKUP 37Q \CLISPIFYBLOCK/CLISPIFYLOOKUP) (215Q !! 207Q CLISPWORD 204Q !! 174Q ! 166Q CLISPWORD 163Q ! 123Q > 107Q STARTING 100Q < 63Q NCONC1 55Q /NCONC1 47Q NCONC1 34Q NCONC 27Q /NCONC 21Q NCONC 6 CLISPTYPE 2 <) () \CLISPIFYBLOCK/SHRKFY D1 (L (2 STAGEFLAG 1 WORKFLAG 0 LOOKAT) P 16Q FORM F 17Q RESULTP F 20Q FORM F 21Q CLISPIFYFN) uiÑ @Yµ g¾@ºAgð¨Adgð²0¿B²g°¼I[_¿g°ÙJ“g‚g½B²Lhb¿i_¿°Bgð²Bg½hb¿i_¿°,J³%g°#Adgðž¿B—hb¿i_¿gŠgð¢±„g½JµqMgðªMdgð¢±Ó¿Ndgð¢±÷¿I¢±ÓWMIh ¿Igð³3Igð³,Igð³%Igð³Igð³Igð®Igð¨Igð¢±W @W"±AB_¿°ˆAgð¨Adgð²¿B“g‚g½B¢±ÿhhb¿i_¿±ÿ]gð¢±ÿUJµIgð³Igð¬Igð¦Idgð›hIb¿b±þŸgð®Igð¨Igð¢±ÿWhh O¢±úJ’±ôJ¢±ïWMhh ±ágð¢±ÚK²\Ldgð¥dgð”_±ÇgðžO£i_¿g_±³Ldgð’±¡dgð’±˜dgð’±dgð’±†gð•M_±ƒM±wLgð³Lgð³Lgð®Lgð¨Ldgð²!¿O¢±TJ’±NJ¢±IWMhh ±;gð¬Lgð¦Lgð²WMghgh ±M±gð¢± Ndgð²O¿WIh ¿Igð³3Igð³,Igð³%Igð³Igð³Igð®Igð¨Igð¢±¿W @W"±³gð¢±¬K²PLdgð«dgð¥dgð”_±“gð³LgðLgð§Ldgð—¿h¸L_°qgð´ g_°d¸g_°\Lgð³Lgð³LgðLgð§Ldgðš¿Whh °-gð¬Lgð¦Lgð²Wghgh ‡g_¿hX¿Ogð©Odgð²¿WOh I ±!gð˜WI ±Odgð³-dgð³&dgð³dgð³dgð¯dgð©gð¢±åOgð©Odgð²¿Og ð³)g_±Ãgð§Ogð²Og ð§g_±¤IKOi_O_¢±ÐMgðªMdgð¢±¿J²HAgð—g_±ig_±aAdgð²{¿Ogð³+Ogð³#Ogð³Ogð³Ogð©Odgð²,¿O—g_±Ogð¦Ogð—g_±g_±þgð¢±ôO¢O—g_±èg_±àgð²ZOgð³Ogð¯Ogð¨Odgð˜¿g_±³gð¨Odgð˜¿g_±gð¢±“O—g_±Šg_±‚Agð¨Adgð²a¿Ogð³Ogð©Odgð²!¿O—g_±OO—g_±Dg_± 3377Q < 3323Q OPANGLE 3305Q OFFANGLES 3270Q > 3264Q < 3254Q /NCONC1 3245Q NCONC1 3236Q CONS 3221Q /NCONC 3211Q LIST 3202Q NCONC 3172Q APPEND 3162Q LISTIT 3152Q > 3146Q < 3135Q /NCONC1 3126Q NCONC1 3117Q CONS 3061Q /NCONC 3051Q LIST 3041Q NCONC 3031Q APPEND 3020Q ! 3011Q !! 2772Q > 2763Q < 2711Q LISTIT 2701Q OPANGLE 2671Q /NCONC1 2663Q NCONC1 2653Q OPANGLE 2643Q /NCONC1 2634Q /NCONC 2624Q NCONC1 2614Q NCONC 2604Q OPANGLE 2574Q OFFANGLES 2561Q OPANGLE 2547Q CONS 2537Q APPEND 2527Q LIST 2516Q /NCONC 2507Q NCONC 2476Q OFFANGLES 2466Q OPANGLE 2453Q APPEND 2443Q OFFANGLES 2435Q LIST 2425Q CONS 2415Q OPANGLE 2407Q /NCONC1 2377Q /NCONC 2370Q NCONC1 2360Q NCONC 2350Q CONS 2340Q OFFANGLES 2330Q OPANGLE 2312Q APPEND 2302Q OPANGLE 2272Q OFFANGLES 2265Q CONS 2256Q LIST 2244Q OPANGLE 2232Q /NCONC1 2222Q /NCONC 2212Q LIST 2202Q NCONC1 2172Q NCONC 2162Q CONS 2151Q APPEND 2137Q OPANGLE 2127Q OFFANGLES 2122Q APPEND 2103Q ! 2074Q !! 2034Q CLISPIFY2CIT 2024Q NCONC1 2014Q /NCONC1 2005Q NCONC1 1775Q CLISPIFY2CIT 1764Q NCONC 1753Q /NCONC 1743Q NCONC 1731Q /NCONC1 1724Q /NCONC 1716Q NCONC1 1707Q NCONC 1700Q LIST 1671Q CONS 1662Q APPEND 1641Q ADDITON 1612Q ! 1602Q !! 1567Q ADDITON 1554Q > 1550Q < 1540Q /NCONC1 1532Q NCONC1 1524Q CONS 1504Q /NCONC 1475Q QUOTE 1467Q LIST 1460Q NCONC 1451Q APPEND 1441Q ADDITON 1431Q ADDITON 1423Q QUOTE 1406Q /NCONC1 1377Q /NCONC 1371Q NCONC1 1362Q NCONC 1350Q APPEND 1342Q LIST 1334Q CONS 1317Q ITSALIST 1274Q QUOTE 1266Q /NCONC1 1260Q /NCONC 1251Q NCONC1 1242Q NCONC 1233Q LIST 1224Q CONS 1215Q APPEND 1174Q ELEMENTAL 1162Q LISTIT 1140Q > 1134Q < 1123Q /NCONC1 1115Q NCONC1 1107Q CONS 1042Q /NCONC 1033Q QUOTE 1025Q LIST 1016Q NCONC 1007Q APPEND 767Q QUOTE 757Q /NCONC1 746Q /NCONC 735Q NCONC1 724Q NCONC 712Q APPEND 676Q APPEND 664Q CONS 656Q LIST 641Q ITSALIST 562Q /NCONC1 554Q NCONC1 546Q CONS 525Q /NCONC 516Q NCONC 510Q APPEND 501Q LIST 465Q STARTING 441Q LISTIT 435Q !! 424Q /NCONC1 415Q NCONC1 356Q QUOTE 350Q /NCONC1 342Q /NCONC 333Q NCONC1 324Q NCONC 315Q LIST 306Q CONS 277Q APPEND 245Q ELEMENTAL 232Q ! 223Q !! 213Q LISTIT 203Q LIST 177Q ! 157Q APPEND 150Q ! 127Q LISTIT 117Q CONS 76Q ! 72Q !! 63Q ITSALIST 45Q !! 33Q /NCONC 24Q NCONC 14Q ELEMENTAL) () \CLISPIFYBLOCK/SHRKFY2 D1 (L (2 STAGEFLAG 1 WORKFLAG 0 LOOKAT) P 0 RESULTP) ghX@ABH(16Q \CLISPIFYBLOCK/SHRKFY) (5 TEMPATOM) () \CLISPIFYBLOCK/CLISPIFYLOOKUP D1 (L (4 CLASSDEF 3 CLASS 2 VAR2 1 VAR1 0 WORD) F 1 DECLST) WC§@gb¿D§Cgb¿CQ›@ABQhCD Ž@gµ Cgµ@XDgð²ddDðž¿A£B”DH(45Q CLISPLOOKUP0) (73Q ARITH 61Q LISPFN 52Q LISPFN 22Q CLISPCLASSDEF 10Q CLISPCLASS) () \CLISPIFYBLOCK/CLSTOPSCAN? D1 (L (1 CLTYP 0 CLTYPX)) @´Ad²dlñ@dlñýñhðNIL NIL () \CLISPIFYBLOCK/WHILEDOUNTIL D1 (L (0 $FORM)) …p@¹Iµ@lñ”IY°óI¸IZYd²ç[gð²ÝK \gð²ÍLHð²ÅKgi³¹KL ¾gKN´gNK ½@J HMI (202Q \NCONC2 177Q \NCONC2 174Q \CLISPIFYBLOCK/WHILEDOUNTIL 164Q LDIFF 155Q \CLISPIFYBLOCK/WHILEDO1 125Q LDIFF 113Q EDITFINDP 57Q LAST) (143Q DO 131Q WHILE 107Q RETURN 66Q GO 46Q COND) () \CLISPIFYBLOCK/WHILEDO1 D1 (L (0 X)) @d ¬@ið–@ g@h(21Q \APPEND2) (25Q COND) () LOWERCASE D1 (P 2 X P 1 TEM P 0 FN I 0 FLG) p` `¤h¿@“g‚g¸gg ¿o°"dJgJgYkHIkHµßgggkH¿gggkH(154Q /PUT 133Q /PUT 106Q /PUT 41Q RPAQ) (145Q AND 142Q CLISPINFIX 137Q AND 124Q OR 121Q CLISPINFIX 116Q OR 65Q CLMAPS 61Q CLMAPS 36Q FLG 33Q LCASEFLG 27Q U-CASE 23Q L-CASE 15Q CHCONLST 10Q CHCONLST 2 LCASEFLG) ( 46Q (MAPC MAP MAPCAR MAPLIST MAPCONC MAPCON)) CLDISABLEA0001 D1 (NAME ERRORSET F 0 TEM) h¿Pho¿hh(21Q DWIMIFY0) (6 NOFIXVARSLST0 3 NOFIXFNSLST0) ( 16Q (BODY $$VAL)) CLDISABLE D1 (P 6 X P 5 MACROY P 4 MACROX P 3 BRACKET P 2 OP1 P 1 FLG P 0 TEM I 0 OP F 7 RESETVARSLST) L@@ Z@g[@gð@gð§@dgð”¿gˆgð´gXµo°ygX²õg`g`WcW½og L¿L\¿MdWð•¿LcW šWkML¿£¿°œd@N ‘i¹JN ‘i¹µèo°dN@N µì@` ²Rg@` ¿g` ¿i¹@dgð™¿g ¿°$gð˜g ¿°@dgð˜¿g ¿ƒ’KµI´@ ¿K ¿gK X²åH ¿°Þ(507Q CLDISABLE 476Q MEMB 466Q CLDISABLE 457Q CLDISABLE 440Q CLDISABLE 417Q CLDISABLE 401Q CLDISABLE 360Q /SETATOMVAL 355Q MAKEBITTABLE 343Q /SETATOMVAL 340Q REMOVE 324Q MEMB 310Q /SETATOMVAL 305Q REMOVE 302Q GETTOPVAL 251Q /REMPROP 241Q /REMPROP 223Q ERROR! 213Q NLEFT 203Q TAILP 142Q CLDISABLEA0001 6 L-CASE) (472Q SEPARATOR 435Q !! 427Q ! 414Q - 407Q +- 376Q +- 370Q - 352Q CLISPCHARS 347Q CLISPCHARRAY 335Q CLISPCHARS 331Q CLISPCHARS 321Q CLISPCHARS 161Q NOFIXVARSLST0 150Q NOFIXFNSLST0 137Q INTERNAL 113Q NOFIXVARSLST0 110Q NOFIXVARSLST0 104Q NOFIXFNSLST0 101Q NOFIXFNSLST0 72Q I.S.OPR 56Q sum 50Q + 44Q join 36Q > 27Q ! 21Q < 13Q CLISPBRACKET) ( 265Q (I.S.OPRLST CLISPFORWORDSPLST CLISPINFIXSPLST) 134Q (CLDISABLEA0001) 65Q (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 NIL) (CL:FLG T) ( CLISPIFYPACKFLG T) (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 FILEPKGFLG FUNNYATOMLST GLOBALVARS LCASEFLG NOFIXVARSLST NOSPELLFLG) (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 CLISPISTATE MATCHUP)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA CLISPIFYFNS) (NLAML) ( LAMA))))) (RPAQ? FUNNYATOMLST) (RPAQ? CLREMPARSFLG NIL) (RPAQ? CL:FLG T) (RPAQ? CLISPIFYPACKFLG T) (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 ("Xerox Corporation" 1984 1985)) NIL