(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Feb-93 13:23:39" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>DEDIT.;4|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "29-Aug-91 13:42:59" |{PELE:MV:ENVOS}LIBRARY>DEDIT.;4| 110005 changes to%: (FNS SETUPDEDITW) (RECORDS STACK) (MACROS EDITBLOCKCALL CONTROLCODE OVERLAP SHIFTSELECTKEYS) previous date%: "27-Aug-91 13:00:13" |{PELE:MV:ENVOS}LIBRARY>DEDIT.;3|) DEDITITA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 EFN F 1 EARGS) PQ (6 APPLY) NIL () DEDITIT :D8 (P 0 SI::*RESETFORMS* I 2 EMODE I 1 EARGS I 0 EFN) /gB hhhg $(40 SI::RESETUNWIND 35 \MVLIST 30 DEDITITA0001 10 EDITMODE) (25 SI::RESETUNWIND 4 EDITMODE) () DEDITLA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 7 TMP P 6 LASTAIL P 5 UNFIND P 4 UNDOLST1 P 3 UNDOLST0 P 2 UNDOLST P 1 MARKLST P 0 EXPR I 0 SI::*CLEANUP-FORMS* F 9 ATM F 10 SI::*RESETFORMS* F 11 LISPXHIST F 12 L F 13 MESS F 14 COMS F 15 EDITMACROS F 16 TYPE F 17 EDITCHANGES)  gd gh WcW7gd goW WcWWWWW" W'jd` W` ` W Hgg ?WHWg _)`d_HgO _hOOZdhJZOHWg W Li`LJW JKg`JKhW NWWd3@Wg HIJHh_ggO WWgOh W(401 ERROR! 395 \NCONC2 373 PUTPROP 343 REMPROP 317 UNDOSAVE 270 DEDITL0 265 GETEDITW 256 BOUNDP 204 MEMB 173 GETPROP 153 GETPROP 133 LAST 125 TERPRI 114 PRIN1 101 TAB 84 NORMAL/EDITL 62 SETTOPVAL 43 GETTOPVAL 22 SETTOPVAL 10 GETTOPVAL) (385 EDIT 366 LASTVALUE 361 EDIT 338 EDIT-SAVE 303 \DEDITSELECTIONS 298 DUNDOEDITL 278 \DEDITSELECTIONS 251 TYPE 197 EDIT 183 LISPXHISTORY 168 EDIT-SAVE 148 LASTVALUE 143 EDIT 120 PROMPTWINDOW 109 PROMPTWINDOW 96 PROMPTWINDOW 49 EDITMACROS 37 EDITMACROS 16 \DEDITSELECTIONS 4 \DEDITSELECTIONS) ( 54 (TTY%: NIL (E (DEDITTTYFN ATM TYPE) T))) DEDITL :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 EDITCHANGES I 3 MESS I 2 ATM I 1 COMS I 0 L F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 DEDITLA0001) (8 SI::RESETUNWIND) () DEDITL0A0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 ACT F 3 SI::NLSETQ-VALUE) !i@Rd3@jRR hcg(21 EVAL) (30 :NORMAL) () DEDITL0A0001 :D8 (P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 5 SS P 4 ACT P 3 COM P 2 EDITHIST P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 9 UNDOLST1 F 10 ATM F 11 UNDOLST F 12 EDS F 13 EDITHISTORY F 14 *PROCEED-CASES*) i@@W [`KKW,WJhK ggWihhJ hc`WO gNWJ MW KMWcWc(139 REPPCHANGES 99 DEDITL0A0001A0002 73 LISPXPUT 46 \EDITBLOCK/EDITSAVE 14 DEDITSLCTLP) (125 \DEDITSELECTIONS 105 :NORMAL 86 SI::NLSETQ-PROCEED-CASE 59 EDITL2 54 *FIRSTPRINT* 22 \DEDITSELECTIONS) () DEDITL0 :D8 (P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 OLDENV P 1 ENV P 0 PM I 2 SEL I 1 EDS I 0 EXPR F 6 SI::*RESETFORMS* F 7 *PROCEED-CASES*) g` hhdVc A @ H@HAg ZAAgI A@h BB `WL gKI A (141 TOTOPW 133 EQUAL-READER-ENVIRONMENT 116 DEDITL0A0001 95 PUSHEDITCHAIN 86 SETUPDEDITW 76 PUTWINDOWPROP 61 GETWINDOWUSERPROP 37 DEDIT-MAKE-READER-ENV 31 GETMAP? 14 CURSOR) (122 :NORMAL 104 SI::NLSETQ-PROCEED-CASE 70 READER-ENVIRONMENT 56 READER-ENVIRONMENT 9 WAITINGCURSOR 4 SETCURSOR) () DEDITTTYFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 UNDOLST1 I 0 SI::*CLEANUP-FORMS* F 1 TE F 2 NAME F 3 TEM F 4 TYPE F 5 L) QRT U ch(16 DEDITL0 10 GETEDITW) NIL () DEDITTTYFN :D8 (P 7 I P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 TEM P 1 UNDOLST P 0 TE I 1 TYPE I 0 NAME F 8 L F 9 UNDOLST1 F 10 LISPXHIST F 11 LASTAIL) W !W!g $IgIWcJFHi i #WN_HO OcOic/Ogg Z Joi h(166 SHOULDNT 160 RETEVAL 147 EVALV 141 STKPOS 104 SUBSELOF 82 GETEDITCHAIN 77 TOPSELECTION 70 SUBSELOF 65 TOPSELECTION 35 SI::RESETUNWIND 30 \MVLIST 25 DEDITTTYFNA0001 6 LAST) (136 EDITL0 131 COMS 47 GROUPED 20 SI::RESETUNWIND) ( 154 (ERROR!)) DEDITAfter :D8 (P 1 TGT P 0 NU) 5 Id IHHII h(49 DEDITZAPCDR 44 PUSHSELECTION 39 DEDITCONS 25 DPCDRSEL 15 POPSELECTION 10 COPY 4 POPSELECTION) NIL () DEDITBefore :D8 (P 1 TGT P 0 SRC) 3IH I III h(47 PUSHSELECTION 42 SETPTRTO 37 DEDITCONS 26 DPCDRSEL 20 COPY 9 POPSELECTION 4 POPSELECTION) NIL () DEDITDelete :D8 (P 0 S) *H h Hd hH h(38 SETPTRTO 28 DPCDRSEL 21 PUSHINTOBUF 14 COPY 4 POPSELECTION) NIL () DEDITReplace :D8 (P 1 TGT P 0 SRC F 2 EDITEMBEDTOKEN) 'IdRoH h(35 DEDITZAPCAR 30 SUBST 9 TOPSELECTION 4 POPSELECTION) NIL ( 23 (PACK NIL)) DEDITSwitch :D8 (P 1 B P 0 A) <HI IH o HIIH h(56 DEDITZAPCAR 50 DEDITZAPCAR 38 CANT 27 DOMINATE? 19 DOMINATE? 9 NXTSELECTION 4 TOPSELECTION) NIL ( 33 "Switch into oneself") DEDITBI :D8 (P 2 C P 1 B P 0 A) VIH HI IHXo I IIh Hd J H h(82 PUSHSELECTION 76 DEDITZAPBOTH 70 COPYCONS 62 DEDITZAPCDR 51 DPCDRSEL 44 CANT 28 TAILOF 19 TAILOF 9 POPSELECTION 4 POPSELECTION) NIL ( 39 "Not brothers!") DEDITBO :D8 (P 0 TGT) Hh Hd h(22 SETPTRTO 14 DEDITMOVETAILDOWN 4 POPSELECTION) NIL () DEDITLI :D8 (P 0 A) Hd h(19 DEDITZAPBOTH 14 COPYCONS 4 TOPSELECTION) NIL () DEDITLO :D8 (P 0 A) Hd h(20 DEDITZAPNODE 15 THELIST 4 TOPSELECTION) NIL () DEDITRI :D8 (P 1 B P 0 A) ?Hdo Hi YdH Hh I h(59 PUSHSELECTION 53 DEDITZAPCDR 46 DEDITMOVETAILDOWN 35 GETMEBP 30 GETME4 22 CANT 4 POPSELECTION) NIL ( 17 "RI at end of tail has no effect") DEDITRO :D8 NIL h (10 DEDITMOVETAILDOWN 4 TOPSELECTION) NIL () DEDITUndo :D8 (P 2 FLG P 1 LST I 0 END F 3 UNDOLST) @S!HYJIIi @@IIdJIoo h(60 CANT 22 DUNDOEDITCOM) NIL ( 55 "Nothing saved" 46 "Undo blocked") UNDOCHOOSEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 I I 0 SI::*CLEANUP-FORMS* F 4 UNDOLST F 5 THRUP) `@T?d[oKo Kddi3 gKhhIHhZH&Jghdh HdIUooHdIdi dg dgjdndhHdI  (175 MENU 93 \APPEND2 35 PACK*) (146 DEFAULTMENUHELDFN 137 CLRPROMPT 82 **TOP** 52 QUOTE 4 |MENUTYPE#|) ( 116 "Undo One" 110 "Undo Thru" 30 " *" 22 "* ") UNDOCHOOSE :D8 (P 1 C P 0 SI::*RESETFORMS* I 0 THRUP F 2 DEFAULTCURSOR) HgR hhhg $I@I Ii h(68 DUNDOEDITCOM 59 DEDITUndo 40 SI::RESETUNWIND 35 \MVLIST 30 UNDOCHOOSEA0001 10 CURSOR) (25 SI::RESETUNWIND 4 CURSOR) () DEDITFindA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TGT) hPg h(16 EDIT4F) (11 N 5 UPFINDFLG) () DEDITFindA0001 :D8 (P 2 SI::*RESETFORMS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::NLSETQ-VALUE) 6i@g`hg $hcg(38 SI::RESETUNWIND 33 \MVLIST 28 DEDITFindA0001A0002) (51 :NORMAL 23 SI::RESETUNWIND 14 UPFINDFLG 9 UPFINDFLG) () DEDITFind :D8 (P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 UNFIND P 3 TGT P 2 L P 1 LASTAIL P 0 COM F 8 *PROCEED-CASES*) OgA Z[`WN gMJ Ko h(75 CANT 63 PUSHEDITCHAIN 45 DEDITFindA0001 23 TOPSELECTION 17 GETEDITCHAIN 12 POPSELECTION) (51 :NORMAL 33 SI::NLSETQ-PROCEED-CASE 4 Find) ( 70 "Not found") DEDITSwap :D8 NIL ``(20 TOPSELECTION 9 NXTSELECTION) (14 \DEDITSELECTIONS 4 \DEDITSELECTIONS) () DEDITCenterA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 A F 1 AW F 2 WO F 3 WH) "hQjRSPP lP h(30 SCROLLW) (5 \DEDITSELECTIONS) () DEDITCenter :D8 (P 4 SI::*RESETFORMS* P 3 WH P 2 WO P 1 AW P 0 A I 0 NOTIFVIS) q 1Ha`H YhI ZIg [@HJKJ *g`hg $h(105 SI::RESETUNWIND 100 \MVLIST 95 DEDITCenterA0001 67 OVERLAPSELBAND 54 GETWINDOWPROP 42 WYOFFSET 34 WFROMDS 29 ELT 9 GETME4 4 TOPSELECTION) (90 SI::RESETUNWIND 79 \DEDITSELECTIONS 74 \DEDITSELECTIONS 49 HEIGHT 20 \DEDITDSPS) () DEDITCopy :D8 NIL  h (17 PUSHINTOBUF 10 COPY 4 TOPSELECTION) NIL () DEDITReprint :D8 NIL i (15 REPP 10 GETME4 4 TOPSELECTION) NIL () DEDITEditCom :D8 (P 8 SCR P 7 TSM P 6 LASTP2 P 5 LASTP1 P 4 LASTAIL P 3 EDITCHANGES P 2 ATM P 1 TYPE P 0 TS I 0 C) x @bH _9`O g _6`O g H @ddh hO(107 PUSHEDITCHAIN 102 EDITL0 89 GETEDITCHAIN 82 GETWINDOWUSERPROP 72 ELT 53 GETWINDOWUSERPROP 43 ELT 24 GETME4 15 POPSELECTION 6 POPSELECTION) (77 DEDITCHANGES 62 \DEDITDSPS 48 DEDITWHOAMI 33 \DEDITDSPS) () DEDITARGSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 F F 3 SI::NLSETQ-VALUE) i@Ri hcg(11 SMARTARGLIST) (20 :NORMAL) () DEDITARGS :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 F F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) X@bdF@dd3@*`TioUI gHo h b(80 PUSHINTOBUF 72 COPY 48 DEDITARGSA0001 7 TOPSELECTION) (54 :NORMAL 29 SI::NLSETQ-PROCEED-CASE) ( 66 ((not a function)) 37 (CL:ERROR . SI::NLSETQHANDLER)) DEDITBreak :D8 (P 3 CARFORM P 2 AMP P 1 WHO P 0 A F 4 NOBREAKS F 5 BROKENFNS) 1H Zd`J g YHgHiIgHdh hd JbJJTo Ig=Igi IggKhhddh gIU o h(193 PROMPTPRINT 182 /SET 167 /PUTPROP 137 /PUTPROP 112 PROMPTPRINT 84 DEDITZAPCAR 72 BREAKINCOMMENT 41 GETWINDOWUSERPROP 31 ELT 13 GETME4 4 POPSELECTION) (173 BROKENFNS 150 AROUND 145 BRKINFO 131 BROKEN-IN 121 FNS 57 AROUND 48 BREAK1 36 DEDITWHOAMI 22 \DEDITDSPS) ( 188 "Break installed, but not recorded" 107 "Break installed inside a NOBREAKS") DEDITEvalA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 S F 3 SP F 4 SI::NLSETQ-VALUE) i@gRhdS hcg(20 ENVAPPLY) (29 :NORMAL 9 LISPXEVAL) () DEDITEval :D8 (P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 SP P 0 S F 5 *PROCEED-CASES*) Ylg Hd3@HI '`UK gJ gh I h(85 RELSTK 79 PUSHINTOBUF 54 DEDITEvalA0001 33 EVALV 17 STKNTH 4 POPSELECTION) (72 NOBIND 60 :NORMAL 43 SI::NLSETQ-PROCEED-CASE 12 DEDITL0) () DEDITExit :D8 (I 0 STOPFLG F 0 EDITHIST F 1 ATM) /PQ@ggQhhP g@hi (44 RETFROM 29 LISPXPUT) (35 DEDITL0 18 EDITL2 13 *PRINT*) () DEDITEditA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 A P 0 S I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 EDITOR F 5 DEFAULTCURSOR F 6 EDITEE) g`hU hSc!VdgduHHd3@H XdGd3@DHhdg Y4HhI Y)gT hhScHIg mo ]gPTdgdggT hhScgTH hkJXH h(252 SHOULDNT 245 DEDITZAPCAR 238 TOPSELECTION 224 COPY 199 EDITMODE 158 CANT 142 EDITDEF 120 EDITMODE 106 SELECT.ATOM.ASPECT 95 TYPESOF 71 POPSELECTION 62 DEDITDatatype 30 TOPSELECTION 18 SETCURSOR) (214 EDITE 193 EDITMODE 184 DISPLAY 176 TELETYPE 166 Form 137 ? 114 EDITMODE 90 ? 41 Def 9 WAITINGCURSOR 4 SETCURSOR) ( 153 "No editable aspect") DEDITEdit :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 EDITEE I 0 EDITOR F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 DEDITEditA0001) (8 SI::RESETUNWIND) () DEDITCEdit :D8 (P 1 V P 0 EW I 1 FN I 0 E) M @HlAYddh i HI I(73 SETUPDEDITW 68 COPY 60 BUFSELP 55 GETME4 50 NXTSELECTION 42 BUFSELP 37 GETME4 32 TOPSELECTION 9 GETEBUF 4 TOPEDITW) NIL () DEDIT.TTYinEdit :D8 (I 0 S) #g @g o (32 CANT 21 DEDITCEdit 9 DEFINEDP) (16 TTYINEDIT 4 TTYINEDIT) ( 27 "TTYIN not loaded") DEDITDatatypeA0002 :D8 (F 0 changedFlg) icNIL NIL () DEDITDatatypeA0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 obj F 3 source F 4 SI::NLSETQ-VALUE F 5 installSourceFn F 6 newObj) i@RSlURc hcgNIL (25 :NORMAL) () DEDITDatatype :D8 (P 9 *CONDITION-HANDLER-BINDINGS* P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 4 changedFlg P 3 installSourceFn P 2 source P 1 newObj P 0 DTMAC I 0 obj F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS*) @ `QH @ a@kMZWH[Jh@d g L9`WioW O gNI o (138 PROMPTPRINT 127 DEDITReprint 120 DEDITZAPCAR 114 TOPSELECTION 96 DEDITDatatypeA0003 62 EDITE 51 TYPENAME 23 INSPECT 5 TYPENAME) (102 :NORMAL 74 SI::NLSETQ-PROCEED-CASE 56 DEDITDatatypeA0002 10 DT.EDITMACROS) ( 133 "Error in datatype edit source" 83 (CL:ERROR . SI::NLSETQHANDLER)) SETPTRTO :D8 (P 2 TEM P 1 BK P 0 XM I 1 Y I 0 X) j0@ Xo Qd Y ZIIA 4A ,Ao @A@AA@ A @bA(98 DEDITZAPBOTH 90 RPLNODE2 73 CANT 58 DEDITZAPCDR 50 DEDITZAPCAR 35 GETLEFT 29 GETMEBP 21 CANT 8 GETME4) NIL ( 68 "Delete last list element" 16 "Already deleted!") DEDITCONS :D8 (I 2 BROTHER I 1 D I 0 A) #@AB o (30 DUMMYMAPENTRY 25 GETMEBP 20 CANT 8 GETME4) NIL ( 15 "Invalid target") DEDITZAPCAR :D8 (I 1 A I 0 M) @A@d (13 DEDITZAPBOTH) NIL () DEDITZAPCDR :D8 (I 1 D I 0 M) @ddA (14 DEDITZAPBOTH) NIL () DEDITZAPNODE :D8 (I 1 C I 0 M) @AA (9 DEDITZAPBOTH) NIL () DEDITZAPBOTH :D8 (P 2 E P 1 TEM P 0 V I 3 ENT I 2 D I 1 A I 0 CC F 3 EDITSMASHUSERFN F 4 CHANGESARRAY) 8@@db@ bS@dhlS@AB ?C 7B@&@!A@bA@ bA@ bo C WC bA@ABb@bB HCHd !Ch` Ch` S@C lS@AB G`C g IIIiI TC CJd JZ(303 DEDITZAPCLISP 284 DEDITZAPCHANGES 274 DEDITFZAP 256 GETWINDOWUSERPROP 246 ELT 226 DEDITFZAP 212 GETEDITCHAIN 202 PUTHASH 187 PUTHASH 169 DEDITFZAP 154 DOTTEDEND 129 LAST 116 DPCDRSEL 109 CANT 96 COPYOUTCONS 85 COPYOUTCONS 55 BUFSELP 44 DEDITFZAP 20 GETME4) (251 DEDITCHANGES 237 \DEDITDSPS 197 \DEDITMEHASH 182 \DEDITDPHASH 5 DEDITMAP) ( 104 "Alter top") DEDITFZAP :D8 (L (2 D 1 A 0 CC) F 2 UNDOLST1) 0@@BIAHh@AAH@@AdB @HIRcNIL NIL () DEDITZAPCLISP :D8 (I 0 CC F 0 CLISPTRANFLG) E@h%P#`@` @h` @@@d (66 SHOULDNT 60 /RPLNODE2 40 /PUTHASH 26 GETHASH) (35 CLISPARRAY 21 CLISPARRAY 13 CLISPARRAY) () DEDITZAPCHANGES :D8 (L (0 ME) F 1 CHANGESARRAY F 2 UNDOLST1 F 3 ATM) M@HHdQ hXi/gg@@Q QhhRc@SQ (74 PUTHASH 51 GETHASH 16 GETHASH) (39 /PUTHASH 34 LISPXHIST) () DEDITMOVETAILDOWN :D8 (I 1 NUTAIL I 0 C) @ @@A (26 DEDITZAPCDR 20 DEDITZAPCDR 11 LAST 6 THELIST) NIL () DUNDOEDITL :D8 (P 8 J P 6 TMP P 5 I P 3 X P 1 WAI P 0 UNDOLST1 I 2 ULST0 I 1 ULST I 0 SS F 9 LISPXHIST F 10 FILEPKGTYPES)  AJ[KdB=HA!L9ABB Wg@i@HhhW hK K]O+h"Ng ^NWNN L\_ ^OiO_(152 WHICHEDITW 137 MARKASCHANGED 117 GETWINDOWUSERPROP 84 DUNDOEDITCOM 73 UNDOSAVE 45 DEDITFZAP 25 SHOULDNT) (112 DEDITWHOAMI 54 DUNDOEDITL) () DUNDOEDITCOM :D8 (I 1 FLG I 0 X) c@ o @ A:@` @o` o` @h@ i(95 DEDITFZAP 90 COPYCONS 81 PRIN1 65 PRIN1 45 TERPRI 22 DUNDOEDITCOM1 13 CANT) (76 PROMPTWINDOW 60 PROMPTWINDOW 40 PROMPTWINDOW 34 \DEDITSELECTIONS) ( 71 " undone." 55 "Already" 8 "Garbage on DEDIT UNDO list") DUNDOEDITCOM1 :D8 (P 1 X P 0 X I 0 C) J@AdHdgHdI gH HH h(64 DEDITZAPNODE 54 \EDITBLOCK/EDITCOM1 33 DUNDOEDITCOM1) (45 LISPXHIST 16 GROUPED) () DEDITSLCTLPA0001A0002 :D8 (P 2 CMD P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 CDS F 4 SI::NLSETQ-VALUE) vi@l `ljjkjhS Z-l S ZS JJhcg(113 BLOCK 94 SELECTKEYS 89 GETEBUF 80 DODEDITTYPEDCOM 75 GETEBUF 67 \GETSYSBUF 58 \PEEKSYSBUF 50 READEDITMENU 44 \SYSBUFP 38 SETEDITMENU 9 WAIT.FOR.TTY) (107 :NORMAL 17 \LASTKEYSTATE) () DEDITSLCTLPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 *PROCEED-CASES*) Qgi hhScgd gi Sc`TI gH(66 DEDITSLCTLPA0001A0002 42 SETTOPVAL 30 GETTOPVAL 10 DEDITUSER) (72 :NORMAL 55 SI::NLSETQ-PROCEED-CASE 36 \DEDITALLOWSELS 24 \DEDITALLOWSELS 4 DEDITUSER) () DEDITSLCTLP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CDS F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 DEDITSLCTLPA0001) (8 SI::RESETUNWIND) () DEDITUSER :D8 (I 0 DS F 0 DEFAULTCURSOR) @P` @h(18 SETCURSOR 4 FLIPSELS) (13 WAITINGCURSOR) () SELECTKEYS :D8 (P 0 LINE I 0 W) ?h@ i n i n @Hh n h(59 SHADESELECTION 51 SETUPDEDITW 46 PUSHSELECTION 37 SHADEIFNOTBUF 29 TOPSELECTION 23 SHADEIFNOTBUF 15 NXTSELECTION 6 DEDITREADLINE) NIL () DODEDITTYPEDCOM :D8 (P 2 I P 1 C I 0 W F 3 DEDITTYPEINCOMS) RSHhIJ l@/J@ o@ JJi@ HX(72 DEDITREADLINE 57 PRIN1 45 PRIN1 35 \GETSYSBUF 24 CHCON1 5 \PEEKSYSBUF) NIL ( 51 ": ") DEDITREADLINEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 LINE P 1 CH P 0 FIRSTITEM I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 ASLIST F 5 W F 6 LISPXREADFN) gU hhScgd gh ScidlV!H/i Ygi Igi THhHiHhi ZdTJ(116 READLINE 97 SYNTAXP 84 SYNTAXP 72 CHCON1 67 LASTC 42 SETTOPVAL 30 GETTOPVAL 10 TTYDISPLAYSTREAM) (91 RIGHTBRACKET 78 RIGHTPAREN 36 \DEDITALLOWSELS 24 \DEDITALLOWSELS 4 TTYDISPLAYSTREAM) () DEDITREADLINE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 W I 0 ASLIST F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 DEDITREADLINEA0001) (8 SI::RESETUNWIND) () SHADEIFNOTBUF :D8 (I 1 TXT I 0 X) @d bd h @A (28 SHADESELECTION 17 BUFSELP 8 GETSELMAP) NIL () DEDITBUTTONFN :D8 (I 0 W) <@ g l@`l jjkj@ `@ (57 SELECTELEMENT 43 SELECTREAD 15 SHIFTDOWNP 5 TOTOPW) (49 \DEDITALLOWSELS 24 \LASTKEYSTATE 10 SHIFT) () DEDITRIGHTBUTTONFN :D8 (I 0 W) "@ `@ @ @ (31 DOWINDOWCOM 24 SELECTTREE 17 INWINDOW 5 TOTOPW) (10 \DEDITALLOWSELS) () DEDITWINDOWENTRYFN :D8 (I 0 W) 5@ g l@`l jjkj@ @ (50 GIVE.TTY.PROCESS 43 SELECTREAD 15 SHIFTDOWNP 5 TOTOPW) (24 \LASTKEYSTATE 10 SHIFT) () SELECTELEMENT :D8 (P 3 M P 2 N P 1 NE P 0 TE I 0 DS) zi i "@ Kd h@ [`kjKKJJKIn Hn Jn Kn K(115 SHADESELECTION 105 SHADESELECTION 95 SHADESELECTION 85 SHADESELECTION 49 SEARCHMAP 41 PUSHSELECTION 30 SELECTDONE 21 GETSELMAP 16 NXTSELECTION 10 GETSELMAP 5 TOPSELECTION) (57 LASTMOUSEBUTTONS) () SELECTREAD :D8 (P 6 *PRINT-BASE* P 5 *READ-BASE* P 4 *READTABLE* P 3 *PACKAGE* P 1 N P 0 M I 0 DS) 0g l@`l jjkjrHdCnZZ @g ZJJJHi Hl h@ X`kjHIHIHnZZ H@ бedIInZZ (175 SHADESELECTION 155 SELECTDONE 146 SHADESELECTION 113 SEARCHMAP 105 BKSYSCHARCODE 91 BKSYSBUF 61 GETWINDOWUSERPROP 49 SHADESELECTION 12 SHIFTDOWNP) (120 LASTMOUSEBUTTONS 66 READER-ENVIRONMENT 56 READER-ENVIRONMENT 23 \LASTKEYSTATE 7 SHIFT) () SELECTTREE :D8 (P 0 OT I 0 DS) ,i @ hH@ (39 SWITCHANDSHADE 34 FINDLCA 29 SEARCHMAP 19 SELECTDONE 10 GETME4 4 TOPSELECTION) NIL () SEARCHMAP :D8 (P 4 S P 3 L P 2 LY P 1 LX P 0 E I 0 PDS) i@ @ @ #HdPIJ H\[=HIJ 3KL X#HL L Li XHKH(87 GETME4 77 REPP 69 HASASBP 59 GETME4 50 ONAPARENP 31 WITHINME 17 LASTMOUSEY 11 LASTMOUSEX 5 GETDEDITMAP) NIL () WITHINME :D8 (P 1 FD P 0 FA I 2 Y I 1 X I 0 E) y`@ `@  BH@hBd@IA@h,A@$@@ h@ IBH@ A@(34 ELT 13 ELT) (39 FONTDESCRIPTOR 25 \DEDITFONTS 18 FONTDESCRIPTOR 4 \DEDITFONTS) () ONAPARENP :D8 (P 0 EF I 2 Y I 1 X I 0 E) M`@ A@ B@H hA@ hB@ H(53 DEDIT.RPSTART 23 DEDIT.LPEND 13 ELT) (69 FONTDESCRIPTOR 37 FONTDESCRIPTOR 4 \DEDITFONTS) () SELECTDONE :D8 (I 0 PDS) .`lHj HH  @ h(41 INWINDOW 32 \FZEROP 4 GETMOUSESTATE) (10 LASTMOUSEBUTTONS) () INWINDOW :D8 (I 0 DS) h@ @ @ (23 INSIDE? 18 LASTMOUSEY 12 LASTMOUSEX 6 DSPCLIPPINGREGION) NIL () FINDLCA :D8 (I 1 S2 I 0 S1) :A@`@ `A @dA @i@b(43 DOMINATE? 31 ELT 17 ELT) (22 \DEDITDSPS 8 \DEDITDSPS) () DOMINATE? :D8 (P 2 I P 1 S2 P 0 S1 I 1 SUB I 0 SUP) R@A-@ @ A A HI@ZhIYHIIiA JiJ(70 DOMINATE? 32 GETME4 24 MAPENTRYP 18 GETME4 10 MAPENTRYP) NIL () POPSELECTION :D8 NIL `(4 TOPSELECTION) (15 \DEDITSELECTIONS 9 \DEDITSELECTIONS) () PUSHSELECTION :D8 (L (0 S)) @`@NIL (11 \DEDITSELECTIONS 5 \DEDITSELECTIONS) () NXTSELECTION :D8 (I 0 NOERR) `@h o (23 CANT) (4 \DEDITSELECTIONS) ( 18 "No second selection") TOPSELECTION :D8 (I 0 NOERR) `@h o (22 CANT) (4 \DEDITSELECTIONS) ( 17 "Too few selections") SWITCHANDSHADE :D8 (I 0 NU) 9@h4@i (i i n `@@n (54 SHADESELECTION 36 SHADESELECTION 28 GETME4 22 TOPSELECTION 13 TOPSELECTION) (41 \DEDITSELECTIONS) () SHADESELECTION :D8 (I 1 SHADE I 0 S) @dA (8 SHADESELECTION1) NIL () SHADESELECTION1 :D8 (P 8 I P 6 RIGHT P 5 LEFT P 4 DS P 3 E P 1 STOP P 0 START I 1 TXT I 0 S) 2 @@ HI@H@@A @W@H@@ A @J[d'@I@ @A @ A @ A K`@ @j@j@@hL @ jhL MنhL IH O@OdH)@%jOO jOIOOIhMOI@NA Oj`@  __(288 ELT 270 SHADESELECTION2 234 \FZEROP 193 DSPRIGHTMARGIN 183 DSPRIGHTMARGIN 166 DSPLEFTMARGIN 134 ELT 115 SHADESELECTION1 109 GETME4 100 SHADESELECTION1 94 GETME4 87 SHADESELECTION2 77 DEDIT.RPSTART 53 SHADESELECTION2 46 DEDIT.LPEND 27 SHADESELECTION2) (293 FONTDESCRIPTOR 279 \DEDITFONTS 125 \DEDITDSPS) () SHADESELECTION2 :D8 (I 4 SHADE I 3 EX I 2 SX I 1 CY I 0 S) 0hdd`@ BAlkCBlggD (45 BKBITBLT 16 ELT) (38 INVERT 33 TEXTURE 7 \DEDITDSPS) () OVERLAPSELBAND :D8 (I 2 L I 1 H I 0 S) @k@ lkBHIAhNIL NIL () PUSHEDITCHAIN :D8 (P 0 X I 0 C) #@ H H@ i (32 DEDITCenter 26 PUSHSELECTION 14 MAPENTRYP 5 MAKESELCHAIN) NIL () MAKESELCHAIN :D8 (P 0 TMP I 0 LST F 1 LASTAIL) s@ R@@@ Q@ !@@ @@ o X %H@ @ X H (112 GETMEBP 104 MAPENTRYP 98 GETME4 90 DUMMYMAPENTRY 85 MAKESELCHAIN 75 GETME4 69 CANT 48 DOTTEDEND 36 TAILP 25 TAILP 8 THELIST) NIL ( 64 "Inconsistent EDIT chain") PUSHINTOBUF :D8 (I 0 V) @d (7 PUSHSELECTION) NIL () DUMMYMAPENTRY :D8 (I 1 B I 0 E) @dA AjdddA (24 MAKEMAPENTRY 9 MAKEDOTPTAIL) NIL () FLIPSELS :D8 (P 0 TM) 3i i H n Hn h(47 SHADESELECTION 38 SHADESELECTION 30 FIXUPSEL 25 BUFSELP 19 NXTSELECTION 10 FIXUPSEL 5 TOPSELECTION) NIL () FLIPSELSIN :D8 (P 0 S I 2 L I 1 H I 0 DS) @ bi X,@`H HAB H n i X-@`H HAB H n h(124 SHADESELECTION 116 UNPURGEDP 108 OVERLAPSELBAND 97 ELT 79 GETME4 74 TOPSELECTION 67 SHADESELECTION 59 UNPURGEDP 52 OVERLAPSELBAND 41 ELT 23 GETME4 18 NXTSELECTION 5 \INSUREWINDOW) (88 \DEDITDSPS 32 \DEDITDSPS) () FIXUPSEL :D8 (I 1 BUFBUSY I 0 X) ;@d7 0@ @ Ah @ (56 SETUPDEDITW 51 NEWSELFOR 45 GETEBUF 40 TOPEDITW 28 GETSELMAP 21 UNZORCHME 16 GETME4 8 GETSELMAP) NIL () NEWSELFOR :D8 (P 0 Y I 0 X) 8@ h@i `H@i `HH(52 SHOULDNT 36 NXTSELECTION 18 TOPSELECTION 6 COPY) (43 \DEDITSELECTIONS 25 \DEDITSELECTIONS) () ACTIVEEDITW :D8 (I 1 ONFLG I 0 W) @gAg @gAgg @gAg @gAg @gAg @g` @gAgg Agi@ @(154 DSPSCROLL 139 PUTWINDOWPROP 115 PUTWINDOWPROP 99 PUTWINDOWPROP 80 PUTWINDOWPROP 61 PUTWINDOWPROP 42 PUTWINDOWPROP 18 PUTWINDOWPROP) (146 OFF 134 GIVE.TTY.PROCESS 128 DEDITWINDOWENTRYFN 121 WINDOWENTRYFN 110 \RUNNING.PROCESS 105 PROCESS 94 SCROLLBYREPAINTFN 86 SCROLLFN 75 DEDITREPAINTFN 67 REPAINTFN 56 DEDITRESHAPEFN 48 RESHAPEFN 37 DOWINDOWCOM 31 DEDITRIGHTBUTTONFN 24 RIGHTBUTTONFN 13 DEDITBUTTONFN 5 BUTTONEVENTFN) () FINDEDITW :D8 (P 1 I I 1 TYPE I 0 NAME) #`HhY@A IiHX(22 SAMEEDITW) (4 \DEDITWINDOWS) () GETEDITW :D8 (P 0 W I 1 TYPE I 0 ATM F 1 SI::*RESETFORMS*) pA@o bgggb@A @A gH`hhdQcHg` H (107 \INSUREWINDOW 101 PUTWINDOWPROP 54 MAKEEDITW 45 FINDEDITW 14 CONCAT) (96 \RUNNING.PROCESS 91 PROCESS 74 \DEDITWINDOWS 68 \DEDITWINDOWS 62 UNDEDITW 35 FNS 28 PROP 22 expression) ( 9 " ") GETDEDITDEF4 :D8 (P 1 NAME P 0 TYPE I 0 W) :@g HYd&d3@ HXdghIHho (55 GETDEF 10 GETWINDOWUSERPROP) (37 expression 5 DEDITWHOAMI) ( 50 (NOCOPY NOERROR)) MAKEEDITW :D8 (P 0 W I 1 TYP I 0 NAME F 1 EDITCHANGES) gh ` Hd@A X(@A H Hg@A ihHg@Ah HgQ H(123 PUTWINDOWPROP 110 PUTWINDOWPROP 88 PUTWINDOWPROP 83 NAMEOFEDITW 69 CLEARW 61 SAMEEDITW 51 CREATEW 46 NAMEOFEDITW 33 WINDOWP 22 PUTWINDOWPROP 11 TOPEDITW 4 TOPEDITW) (117 DEDITCHANGES 100 DEDITWHOAMI 76 TITLE 28 DEditWindow 16 DEDITCACHED) () NAMEOFEDITW :D8 (I 1 TYPE I 0 NAME) oAdgoydg$@@o @bUoNgE@mm o )@km g o@km boAo@ (151 CONCAT 129 SUBSTRING 113 HASDEF 103 SUBSTRING 92 STREQUAL 82 SUBSTRING 50 CONCAT) (108 FILE 69 VARS 27 PROPS 11 FNS) ( 145 " " 138 "variable" 120 "filecoms for file" 87 "COMS" 62 "property list of" 45 " property of " 19 "function" 4 "DEdit of ") PURGEWA0001 :D8 (L (1 Y 0 X) F 0 WDS) P`@ Ah` (29 PUTHASH 14 ELT) (24 \DEDITMEHASH 5 \DEDITDSPS) () PURGEW :D8 (P 2 I P 0 WDS I 1 DONTCLR I 0 W F 3 DEFAULTFONT) @ @ @d b@`` ` `g ` kZI%H`J P`JH  @gh A)j@ S@ @ h@ n@ @Jk԰(185 MAKECPOSBE 176 DSPXPOSITION 168 CLEARW 161 DSPFONT 153 DSPTEXTURE 142 PUTWINDOWPROP 128 SETA 121 \INSUREWINDOW 106 ELT 85 ARRAYSIZE 74 MAPHASH 58 CLRHASH 47 CLRHASH 22 WFROMDS 12 \INSUREWINDOW 5 WINDOWP) (136 EDITEXPR 114 \DEDITDSPS 100 \DEDITDSPS 80 \DEDITDSPS 69 PURGEWA0001 64 \DEDITMEHASH 53 \DEDITDPHASH 42 \DEDITMEHASH 34 DEditWindow) () MAKECPOSBE :D8 (P 1 DY P 0 DX I 2 DS I 1 Y I 0 X) 2@hB AhB jHB jIB HIB h(46 RELMOVETO 38 WYOFFSET 29 WXOFFSET 16 DSPYPOSITION 7 DSPXPOSITION) NIL () SAMEEDITW :D8 (I 2 TYPE I 1 NAME I 0 W) @g H AHBH(10 GETWINDOWUSERPROP) (5 DEDITWHOAMI) () SETUPDEDITW :D8 (P 3 COMMENTCOL P 2 FILEFLG P 1 RMARGIN P 0 FIRSTPOS I 1 CONTENTS I 0 W F 4 *STANDARD-OUTPUT*) "hT h@ "@A @i (30 ACTIVEEDITW 23 SETDEDITMAP 13 DSPRIGHTMARGIN 6 DSPLEFTMARGIN) NIL () TOPEDITW :D8 NIL `NIL (4 \DEDITWINDOWS) () UNDEDITW :D8 (P 2 I P 0 W I 0 WDS F 3 RESETSTATE F 4 DEditLinger) ``gh ` @ Hg h@`@-`IZ@JJdJo `FH`}Hgh gH g H BSHgh H ` HHgh TH h(268 CLOSEW 259 PUTWINDOWPROP 239 WINDOWP 228 ZORCHEDITW 219 PUTWINDOWPROP 202 TAKEDOWN 190 GETWINDOWUSERPROP 180 TOPEDITW 174 PUTWINDOWPROP 163 TOPEDITW 157 PUTWINDOWPROP 128 SHOULDNT 68 TAKEDOWN 63 GETWINDOWUSERPROP 49 WFROMDS 44 SHOULDNT 33 CLOSEW 22 PUTWINDOWPROP) (253 PROCESS 246 DEditWindow 234 DEditWindow 213 DEDITCHANGES 195 \DEDITBUFW 185 EDITBUF 168 DEDITCACHED 151 DEDITCACHED 142 \DEDITWINDOWS 134 \DEDITWINDOWS 96 \DEDITWINDOWS 89 \DEDITWINDOWS 80 \DEDITWINDOWS 74 \DEDITBUFW 58 EDITBUF 28 \DEDITMNUW 16 PROCESS 11 \DEDITMNUW 4 \DEDITMNUW) ( 123 "DEDITDSPS tangled") WHICHEDITW :D8 (P 1 SCR P 0 TMP I 0 CC) ,@ Hh`H YHdX(31 EDITWINDOWP 26 ELT 5 GETME4) (17 \DEDITDSPS) () ZORCHEDITW :D8 (P 0 V I 0 W) V@dR HdH`HdIih'@ n"@ hn"g@ (83 DSPFILL 68 DSPTEXTURE 57 ACTIVEWP 52 WFROMDS 8 GETMAP?) (77 PAINT 25 |DEDITMAPTYPE#|) () ZORCHEDWP :D8 (I 0 W) @g d(15 GETME4 10 GETWINDOWUSERPROP) (5 EDITEXPR) () UNZORCHME :D8 (P 0 W I 0 M) ,@)`@ H Hd h (41 SETDEDITMAP 34 GETDEDITDEF4 25 ZORCHEDWP 16 ELT) (7 \DEDITDSPS) () SETEDITMENU :D8 (P 10 NUR P 9 ER P 5 IMAGE P 4 W P 3 H P 2 Y P 1 X P 0 MR I 0 EW F 11 WBorder F 12 WindowTitleDisplayStream F 13 MENUFONT)  ` ` XddH2` lWkڼM jhW LػM Lؼ@( @ _OعOOKZ'`Wٹ``g ٺI`LپdNNYJ`K_dOO_jOOjZH'IHdH`IJ `  IJLKh_` +` gh `O Og `gg Mkd`jdLKgg `gM `gW `gKl `gg `g` `(495 PUTWINDOWPROP 474 PUTWINDOWPROP 453 PUTWINDOWPROP 433 PUTWINDOWPROP 408 PUTWINDOWPROP 391 BKBITBLT 362 PUTWINDOWPROP 336 CREATEW 322 SHAPEW 309 PUTWINDOWPROP 293 WFROMDS 281 DISPLAYSTREAMP 253 TOTOPW 242 MOVEW 166 GETWINDOWUSERPROP 136 GETMOUSESTATE 102 \INSUREWINDOW 87 BITMAPWIDTH 76 DSPLINEFEED 67 BITMAPHEIGHT 52 CACHEDEDITCOMS 24 \INSUREWINDOW 12 WINDOWP) (500 \DEDITMNUW 490 \RUNNING.PROCESS 485 PROCESS 480 \DEDITMNUW 469 DEDITMENURESTORE 464 REPAINTFN 459 \DEDITMNUW 444 YOFFSET 439 \DEDITMNUW 426 FONTDESCRIPTOR 419 ITEMHEIGHT 414 \DEDITMNUW 402 IMAGE 397 \DEDITMNUW 385 REPLACE 380 INPUT 371 \DEDITMNUW 357 DON'T 352 RESHAPEFN 347 \DEDITMNUW 341 \DEDITMNUW 331 EditOps 315 \DEDITMNUW 303 RESHAPEFN 298 \DEDITMNUW 288 \DEDITMNUW 276 \DEDITMNUW 248 \DEDITMNUW 235 \DEDITMNUW 190 SCREENHEIGHT 174 SCREENWIDTH 161 YOFFSET 156 \DEDITMNUW 151 LASTMOUSEY 142 LASTMOUSEX 47 *DEDIT-MENU-COMMANDS* 19 \DEDITMNUW 7 \DEDITMNUW) () CACHEDEDITCOMS :D8 (P 10 ITEM P 9 J P 7 SUBMENUS P 6 COMS P 0 N I 0 COMLIST F 14 MENUFONT) <@ QHhdj Hhdj @Hk OINO`d@di dg dgjdndhdM _NOOO OOO`0 O-dYgIIhI_O Oh_O&_OdJdi mW O ldKdg dgjdndhdL O_Om_(296 SETA 245 LENGTH 135 SETA 114 CHECK/MENU/IMAGE 29 ARRAY 17 ARRAY 5 LENGTH) (271 DEFAULTMENUHELDFN 262 CLRPROMPT 234 FONTDESCRIPTOR 173 QUOTE 155 |MENUTYPE#| 89 DEFAULTMENUHELDFN 80 CLRPROMPT 63 |MENUTYPE#| 58 EDITMENU\SUBS 51 EDITMENU\COMS) () FINDEDITCOM :D8 (L (2 EFLG 1 L 0 C)) !AHY@IBIdIiINIL NIL () READEDITMENU :D8 (P 9 I P 7 EMDS P 6 MOUSEWASDOWN P 5 MOUSEISDOWN P 4 OLDN P 3 N P 2 VAL P 1 OTHERS P 0 VLF) `g ` _`Oi g "JKOHgI KJIhIhiO JO KO HۻM^`l_jO O h]KdLMf]KLKOHgLOHNI KOHMI `kj5`K (`K hKOHgI MNK`K ZKOHMI Id OOHgO JLOgHLk `O OIAJLJI1 OOgO_O_OddhO_O_J(418 WFROMDS 404 PUTWINDOWPROP 376 SHADEMENUENTRY 347 SHADEMENUENTRY 331 ELT 302 SHADEMENUENTRY 283 MENU 278 ELT 265 ELT 242 SHADEMENUENTRY 229 SHADEMENUENTRY 199 BLOCK 177 \FZEROP 145 LASTMOUSEY 134 INWINDOW 118 INWINDOW 96 SHADEMENUENTRY 75 SHIFTDOWNP 61 READP 42 GETMOUSESTATE 27 \INSUREWINDOW 14 GETWINDOWUSERPROP) (453 PROGN 426 \DEDITMNUW 410 \DEDITMNUW 394 YOFFSET 367 FILL 325 EDITMENU\COMS 295 HOLLOW 272 EDITMENU\SUBS 259 EDITMENU\SUBS 248 LASTMOUSEBUTTONS 215 HOLLOW 155 LASTMOUSEBUTTONS 89 HOLLOW 70 CTRL 48 \DEDITMNUW 36 \DEDITMNUW 22 \DEDITMNUW 9 ITEMHEIGHT 4 \DEDITMNUW) () SHADEMENUENTRY :D8 (P 0 D I 4 OTHERS I 3 BOXFLG I 2 DLF I 1 EMDS I 0 V) z@dvDhpCgCdij+gk!CgC@ABg khddAHd@BhA HdBHdggn h(118 BKBITBLT 87 DSPCLIPPINGREGION 67 SHOULDNT 59 SHADEMENUENTRY) (109 INVERT 104 TEXTURE 54 FILL 42 BOX 31 HOLLOW 15 FILL) () DEDITMENURESTORE :D8 (I 1 R I 0 W) &@g kd@jdhdgghA (35 BKBITBLT 10 GETWINDOWUSERPROP) (27 REPLACE 22 INPUT 5 IMAGE) () BUFSELP :D8 (I 0 E) '@$``@ ` (33 \INSUREWINDOW 23 ELT) (28 \DEDITBUFW 14 \DEDITDSPS 7 \DEDITBUFW) () EDITWINDOWP :D8 (I 0 W) &@ @ @g @ (33 \INSUREWINDOW 25 GETWINDOWUSERPROP 12 DISPLAYSTREAMP 5 WINDOWP) (20 EDITEXPR) () GETLEFT :D8 (P 1 I I 1 BK I 0 SEL) >A @bdHYhI@hII@hiI I(55 GETME4) NIL () GETMEBP :D8 (I 0 E) @ o (14 CANT) NIL ( 9 "At top") HASASBP :D8 (I 1 F I 0 M) +@dbA @h@A` (39 GETHASH 16 TAILP) (34 \DEDITDPHASH) () TAILOF :D8 (I 1 B I 0 A) &@A @ bA b @A(24 GETME4 14 DPCDRSEL 6 TAILP) NIL () DOTTEDEND :D8 (I 0 C) @d (8 LAST) NIL () GETME4A0001 :D8 (I 1 Y I 0 X F 0 C F 1 B) 5Q@.PA)Ah` @PP@` g@ (50 RETFROM 39 PUTHASH 23 PUTHASH) (44 MAPHASH 34 \DEDITMEHASH 18 \DEDITMEHASH) () GETME4 :D8 (I 1 B I 0 C) ~@dz` nAdhdio  Ai b@dA A o @A `g A (123 DEARME 115 MAPENTRYP 110 MAPHASH 94 GETDPME 84 SHOULDNT 72 DOTTEDEND 62 HASASBP 49 GETME4 41 MAPENTRYP 35 SHOULDNT 13 GETHASH) (105 GETME4A0001 100 \DEDITMEHASH 8 \DEDITMEHASH) ( 79 "Invalid BP" 30 "No MapEntry") GETSELMAP :D8 (I 0 X) @ bd@h@ (25 UNPURGEDP 5 GETME4) NIL () DEARME :D8 (P 0 SP I 0 B) f@ mg H@i @kH "Hd @i H i H mdHd H X(97 STKPOS 91 STKNTH 81 STKNAME 74 RETEVAL 65 STKARGS 59 GETME4 50 STKNAME 40 STKARG 31 GETME4 17 REALSTKNTH 5 REPP) (12 GETME4) () DPCDRSEL :D8 (I 0 ME) 2@@%@h@ b@@d @(43 GETDPME 25 GETME4) (5 DEDITMAP) () GETDPME :D8 (I 0 B) @` i (18 GETME4 12 GETHASH) (7 \DEDITDPHASH) () GETEBUF :D8 (P 3 LEFT P 2 EBWREG P 1 EBW P 0 MAINREG I 0 EW) @ @g "`Id`` I=H`3 l<@ o Ygg @gI WIh I HdJIHJI [JIKHJ I Ig@g I (230 \INSUREWINDOW 219 PUTWINDOWPROP 214 GETWINDOWUSERPROP 196 OPENW 189 MOVEW 164 SHAPEW 159 GETEBUFREGION 130 \INSUREWINDOW 123 PURGEW 118 ACTIVEEDITW 109 PUTWINDOWPROP 96 PUTWINDOWPROP 80 CREATEW 70 GETEBUFREGION 48 CLOSEW 18 GETWINDOWUSERPROP 5 \INSUREWINDOW) (225 \DEDITBUFW 209 READER-ENVIRONMENT 203 READER-ENVIRONMENT 103 EDITBUF 91 NILL 86 PAGEFULLFN 58 *DEDIT-BUFFER-HEIGHT* 43 \DEDITBUFW 35 \DEDITBUFW 26 \DEDITBUFW 13 EDITBUF) ( 75 "Edit buffer") GETEBUFREGION :D8 (P 3 EXCESS P 2 BOTTOM P 1 TOTALHEIGHT P 0 FONTHEIGHT I 2 EW I 1 HEIGHT I 0 MAINREG) [B Ai !@IٺjJjAI@JYbjAHbi AH[jIKٹJKغ@J@Ih(59 HEIGHTIFWINDOW 17 HEIGHTIFWINDOW) (5 FONTDESCRIPTOR) () GETEDITCHAIN :D8 (I 0 E F 4 LASTAIL) L@dc @b@c@ @ @1HIJ KhZHXK&(37 SHOULDNT 10 GETME4) (22 DEDITMAP) () GETDEDITMAP :D8 (I 0 DS) +@ #@d @ h@g (40 SETDEDITMAP 35 GETWINDOWUSERPROP 21 GETDEDITDEF4 14 ZORCHEDWP 5 GETMAP?) (30 EDITEXPR) () GETMAP? :D8 (I 0 W) @g (15 GETSELMAP 10 GETWINDOWUSERPROP) (5 EDITEXPR) () UNPURGEDP :D8 (I 0 M) )@d @@d @ @(35 UNPURGEDP 25 HASASBP 8 GETME4) NIL () SUBSELOF :D8 (I 1 SUB I 0 TOP) A H @HHiHX(5 GETSELMAP) NIL () SETDEDITMAP :D8 (I 1 V I 0 DW F 0 DEFAULTFONT) h@ Addhh@ P@ b@gA @gjA @g A A kh A(100 PUTWINDOWPROP 87 LOWPT 81 HIPT 75 GETWINDOWPROP 64 LOWPT 51 PUTWINDOWPROP 35 DEPRINTDEF 28 \INSUREWINDOW 21 DSPLEFTMARGIN 5 PURGEW) (70 WIDTH 57 EXTENT 43 EDITEXPR) () TAKEDOWN :D8 (I 0 WDS) @di @ (14 CLOSEW 8 PURGEW) NIL () DEDITRESHAPEFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 W) 3Pdg PhP Pg hP (48 FLIPSELSIN 43 WYOFFSET 35 GETWINDOWPROP 24 WYOFFSET 16 SETDEDITMAP 11 GETWINDOWUSERPROP) (30 HEIGHT 6 EDITEXPR) () DEDITRESHAPEFN :D8 (P 0 SI::*RESETFORMS* I 2 X2 I 1 X1 I 0 W) ;@ 3g` hhhg $(52 SI::RESETUNWIND 47 \MVLIST 42 DEDITRESHAPEFNA0001 22 CURSOR 5 EDITWINDOWP) (37 SI::RESETUNWIND 17 WAITINGCURSOR 12 CURSOR) () DEDITREPAINTFN :D8 (P 1 L P 0 H I 1 R I 0 WDS) "AAA@HI @HI h(30 FLIPSELSIN 22 REFRESHIF) NIL () RESETDEDIT :D8 (P 1 I F 2 MARKASCHANGEDFNS) gRgRcgg gg g ``HRhl l hl iY I HX(172 CLOSEW 165 WINDOWP 151 ARRAY 131 HASHARRAY 118 HASHARRAY 59 EDITMODE 48 MOVD 32 MOVD) (156 \DEDITDSPS 143 \DEDITFONTS 136 \DEDITDPHASH 123 \DEDITMEHASH 110 \DEDITMNUW 105 \DEDITBUFW 100 \DEDITSELECTIONS 95 \DEDITALLOWSELS 90 \DEDITWINDOWS 85 DEditWindow 69 \DEDITWINDOWS 64 DEditWindow 54 DEDIT 43 NORMAL\EDITDATE 38 TTY/EDITDATE 27 NORMAL/EDITL 22 TTY/EDITL 12 DEDITMARKASCHANGED 4 DEDITMARKASCHANGED) () DEDITDATE :D8 (P 1 W P 0 ODM I 1 INITLS I 0 OLDATE) E@A  @ X0HX*`H Y I H (64 REPP 57 GETMAP? 50 ACTIVEWP 44 WFROMDS 39 ELT 16 GETME4 6 NORMAL\EDITDATE) (30 \DEDITDSPS) () DEDITMARKASCHANGED :D8 (I 2 REASON I 1 TYPE I 0 NAME) E@A 7` +`@A `gh h` (66 ZORCHEDITW 50 PUTWINDOWPROP 32 SAMEEDITW 18 WINDOWP 6 FINDEDITW) (61 DEditWindow 44 DEDITCHANGES 39 DEditWindow 25 DEditWindow 13 DEditWindow) () COPYCONS :D8 (L (0 C)) @@NIL NIL () COPYOUTCONS :D8 (I 1 C2 I 0 C1) 4@ddA A @A Hd@I@@HI(29 COPYOUTCONS 21 COPYOUTCONS 13 COPYCONS) NIL () MAPENTRYP :D8 (I 0 V) @@NIL (5 DEDITMAP) () THELIST :D8 (I 0 X) @ o (13 CANT) NIL ( 8 "Not a list!") CANT :D8 (P 2 I P 0 NMSGS) be` ` o` HkZI` k` Ja` Jk԰(90 PRIN1 77 SPACES 65 ERROR! 60 FLASHWINDOW 39 PRIN1 23 TERPRI 13 DSPRESET) (85 PROMPTWINDOW 72 PROMPTWINDOW 55 PROMPTWINDOW 34 PROMPTWINDOW 18 PROMPTWINDOW 8 PROMPTWINDOW) ( 29 "Can't: ") (PRETTYCOMPRINT DEDITCOMS) (RPAQQ DEDITCOMS ((COMS (* ; "User entry to the editor") (PROP (Definition-for-EDITL Definition-for-EDITE Definition-for-EDITDATE) DEDIT) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS ( *DISPLAY-EDITOR* (QUOTE DEDIT)))) (FNS DEDITIT)) (COMS (* ; "Hooks between tty editor and DEDIT. We redefine EDITL to get into DEDIT from system editor calls") ( FNS DEDITL DEDITL0 DEDITTTYFN)) (COMS (* ; "Basic DEDIT menu commands") (FNS DEDITAfter DEDITBefore DEDITDelete DEDITReplace DEDITSwitch DEDITBI DEDITBO DEDITLI DEDITLO DEDITRI DEDITRO DEDITUndo UNDOCHOOSE DEDITFind DEDITSwap DEDITCenter DEDITCopy DEDITReprint DEDITEditCom DEDITARGS DEDITBreak DEDITEval DEDITExit) (FNS DEDITEdit DEDITCEdit DEDIT.TTYinEdit DEDITDatatype) (ADDVARS (DT.EDITMACROS) )) (COMS (* ; "Structure changing") (FNS SETPTRTO DEDITCONS DEDITZAPCAR DEDITZAPCDR DEDITZAPNODE DEDITZAPBOTH DEDITFZAP DEDITZAPCLISP DEDITZAPCHANGES DEDITMOVETAILDOWN DUNDOEDITL DUNDOEDITCOM DUNDOEDITCOM1)) (COMS (* ; "Selection code. Select expressions or from the command menu") (FNS DEDITSLCTLP DEDITUSER SELECTKEYS DODEDITTYPEDCOM DEDITREADLINE SHADEIFNOTBUF DEDITBUTTONFN DEDITRIGHTBUTTONFN DEDITWINDOWENTRYFN SELECTELEMENT SELECTREAD SELECTTREE SEARCHMAP WITHINME ONAPARENP SELECTDONE INWINDOW FINDLCA DOMINATE?) (ALISTS (DEDITTYPEINCOMS F S Z)) (PROP VARTYPE DEDITTYPEINCOMS )) (COMS (* ; "Handling the selection stack") (FNS POPSELECTION PUSHSELECTION NXTSELECTION TOPSELECTION SWITCHANDSHADE SHADESELECTION SHADESELECTION1 SHADESELECTION2 OVERLAPSELBAND PUSHEDITCHAIN MAKESELCHAIN PUSHINTOBUF DUMMYMAPENTRY FLIPSELS FLIPSELSIN FIXUPSEL NEWSELFOR)) (COMS (* ; "Initializing and flushing edit windows") (FNS ACTIVEEDITW FINDEDITW GETEDITW GETDEDITDEF4 MAKEEDITW NAMEOFEDITW PURGEW MAKECPOSBE SAMEEDITW SETUPDEDITW TOPEDITW UNDEDITW WHICHEDITW ZORCHEDITW ZORCHEDWP UNZORCHME) (INITVARS (DEditLinger T))) (COMS (* ; "Manipulating the Edit menu") (FNS SETEDITMENU CACHEDEDITCOMS FINDEDITCOM READEDITMENU SHADEMENUENTRY DEDITMENURESTORE) (VARS ( *DEDIT-MENU-COMMANDS* (QUOTE ((After DEDITAfter) (Before DEDITBefore) (Delete DEDITDelete) (Replace DEDITReplace) (Switch DEDITSwitch) ("( )" DEDITBI ("( ) in" DEDITBI) ("( in" DEDITLI) (") in" DEDITRI) ) ("( ) out" DEDITBO ("( ) out" DEDITBO) ("( out" DEDITLO) (") out" DEDITRO)) (Undo DEDITUndo (Undo DEDITUndo) (!Undo (DEDITUndo T)) (?Undo (UNDOCHOOSE)) (&Undo (UNDOCHOOSE T))) (Find DEDITFind) (Swap DEDITSwap (Center DEDITCenter) (Clear (SETQ \DEDITSELECTIONS NIL)) (Copy DEDITCopy) (Pop (POPSELECTION )) (Swap DEDITSwap)) (Reprint DEDITReprint) (Edit DEDITEdit (DEdit (DEDITEdit (QUOTE DISPLAY) (QUOTE Def)) NIL (SUBITEMS ("DEdit Def" (DEDITEdit (QUOTE DISPLAY) (QUOTE Def))) ("DEdit Form" (DEDITEdit ( QUOTE DISPLAY) (QUOTE Form))))) (TTYEdit (DEDITEdit (QUOTE TELETYPE) (QUOTE Def)) NIL (SUBITEMS ( "TTYEdit Def" (DEDITEdit (QUOTE TELETYPE) (QUOTE Def))) ("TTYEdit Form" (DEDITEdit (QUOTE TELETYPE) ( QUOTE Form))))) (TTYIn% Form (DEDITEdit (QUOTE DEDIT.TTYinEdit) (QUOTE Form)))) (EditCom DEDITEditCom (?= DEDITARGS) (GETD (DEDITEditCom (QUOTE GETD))) (CL (DEDITEditCom (QUOTE CL))) (DW (DEDITEditCom ( QUOTE DW))) (REPACK (DEDITEditCom (QUOTE REPACK))) (CAP (DEDITEditCom (QUOTE CAP))) (LOWER ( DEDITEditCom (QUOTE LOWER))) (RAISE (DEDITEditCom (QUOTE RAISE)))) (Break DEDITBreak) (Eval DEDITEval) (Exit DEDITExit (OK DEDITExit) (STOP (DEDITExit T))))))) (GLOBALVARS *DEDIT-MENU-COMMANDS*)) (COMS (* ; "Maintaining deditmap entries and the edit chain") (FNS BUFSELP EDITWINDOWP GETLEFT GETMEBP HASASBP TAILOF DOTTEDEND GETME4 GETSELMAP DEARME DPCDRSEL GETDPME GETEBUF GETEBUFREGION GETEDITCHAIN GETDEDITMAP GETMAP? UNPURGEDP SUBSELOF SETDEDITMAP TAKEDOWN) (INITVARS (*DEDIT-BUFFER-HEIGHT* 60)) ( GLOBALVARS *DEDIT-BUFFER-HEIGHT*)) (COMS (FNS DEDITRESHAPEFN DEDITREPAINTFN) (FNS RESETDEDIT DEDITDATE DEDITMARKASCHANGED) (FNS COPYCONS COPYOUTCONS MAPENTRYP THELIST) (FNS CANT)) (DECLARE%: DOEVAL@COMPILE DONTCOPY (RECORDS STACK) (MACROS EDITBLOCKCALL CONTROLCODE OVERLAP SHIFTSELECTKEYS) ( CONSTANTS (LINETHICKNESS 2) (PRIMSHADE 65535) (SECSHADE 3598) (SWITCHSHADE (LOGXOR PRIMSHADE SECSHADE) ) (READSHADE 23130) (CHANGEDSHADE 8840)) (GLOBALVARS DEditWindow \DEDITMNUW \DEDITBUFW \DEDITALLOWSELS \DEDITWINDOWS \DEDITSELECTIONS DT.EDITMACROS UPFINDFLG) (SPECVARS ATM EDITCHANGES EDITHIST LASTAIL UNDOLST UNDOLST1)) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) DEDITPP)) (DECLARE%: DONTEVAL@LOAD DOCOPY (FILES DSPRINTDEF NEWPRINTDEF DEDITPP) (P (AND (GETD (QUOTE RESETDEDIT)) ( RESETDEDIT)))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CANT))))) (PUTPROPS DEDIT Definition-for-EDITL DEDITL) (PUTPROPS DEDIT Definition-for-EDITE TTY/EDITE) (PUTPROPS DEDIT Definition-for-EDITDATE DEDITDATE) (RPAQQ *DISPLAY-EDITOR* DEDIT) (ADDTOVAR DT.EDITMACROS) (ADDTOVAR DEDITTYPEINCOMS (F Find (NLAMBDA (TGT) (PUSHSELECTION (LIST TGT)) (DEDITSwap) (DEDITFind))) (S Substitute (NLAMBDA (OLD NEW) (DEDITEditCom (LIST (QUOTE R) OLD NEW)))) (Z EditCom (NLAMBDA EC ( DEDITEditCom EC)))) (PUTPROPS DEDITTYPEINCOMS VARTYPE ALIST) (RPAQ? DEditLinger T) (RPAQQ *DEDIT-MENU-COMMANDS* ((After DEDITAfter) (Before DEDITBefore) (Delete DEDITDelete) (Replace DEDITReplace) (Switch DEDITSwitch) ("( )" DEDITBI ("( ) in" DEDITBI) ("( in" DEDITLI) (") in" DEDITRI) ) ("( ) out" DEDITBO ("( ) out" DEDITBO) ("( out" DEDITLO) (") out" DEDITRO)) (Undo DEDITUndo (Undo DEDITUndo) (!Undo (DEDITUndo T)) (?Undo (UNDOCHOOSE)) (&Undo (UNDOCHOOSE T))) (Find DEDITFind) (Swap DEDITSwap (Center DEDITCenter) (Clear (SETQ \DEDITSELECTIONS NIL)) (Copy DEDITCopy) (Pop (POPSELECTION )) (Swap DEDITSwap)) (Reprint DEDITReprint) (Edit DEDITEdit (DEdit (DEDITEdit (QUOTE DISPLAY) (QUOTE Def)) NIL (SUBITEMS ("DEdit Def" (DEDITEdit (QUOTE DISPLAY) (QUOTE Def))) ("DEdit Form" (DEDITEdit ( QUOTE DISPLAY) (QUOTE Form))))) (TTYEdit (DEDITEdit (QUOTE TELETYPE) (QUOTE Def)) NIL (SUBITEMS ( "TTYEdit Def" (DEDITEdit (QUOTE TELETYPE) (QUOTE Def))) ("TTYEdit Form" (DEDITEdit (QUOTE TELETYPE) ( QUOTE Form))))) (TTYIn% Form (DEDITEdit (QUOTE DEDIT.TTYinEdit) (QUOTE Form)))) (EditCom DEDITEditCom (?= DEDITARGS) (GETD (DEDITEditCom (QUOTE GETD))) (CL (DEDITEditCom (QUOTE CL))) (DW (DEDITEditCom ( QUOTE DW))) (REPACK (DEDITEditCom (QUOTE REPACK))) (CAP (DEDITEditCom (QUOTE CAP))) (LOWER ( DEDITEditCom (QUOTE LOWER))) (RAISE (DEDITEditCom (QUOTE RAISE)))) (Break DEDITBreak) (Eval DEDITEval) (Exit DEDITExit (OK DEDITExit) (STOP (DEDITExit T))))) (RPAQ? *DEDIT-BUFFER-HEIGHT* 60) (FILESLOAD DSPRINTDEF NEWPRINTDEF DEDITPP) (AND (GETD (QUOTE RESETDEDIT)) (RESETDEDIT)) (PUTPROPS DEDIT COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1990 1991)) NIL