XCL Compiler output for source file {WMEDLEY}SEDIT-WINDOW.;6 Source file created 13-Jul-2023 14:28:53 FASL file created Thursday, 13 July 2023, 14:28:53 #ogg o FILECREATEDLOC*STANDARD-INPUT*1 top-level formFUNCTIONDEFINE-FILE-INFOOPEN OUTPUT DIRECTIONPACKAGE DEFPACKAGEXEROX-COMMON-LISPSEDITUSELISPXCL READTABLEXCLBASE {Null}lggo oo o oooPQRhiICONSEDIT ICON-MASKICON-TITLE-REGION9 top-level forms1PUTPROPS& PUTPROPfKEEP-WINDOW-REGION_ TITLED-ICONRG<SEDIT-WINDOWCOMS FILEDATES SEDIT-WINDOWMB<7<`0`000000000000000000000000000000000 0 00000m0m0 0000,&MAKEFILE-ENVIRONMENTXCL  !&FILETYPE COMPILE-FILE PROP0&3*& LOCALVARSDECLARE:DONTCOPYDOEVAL@COMPILEFILES SEDIT-DECLSBITMAPSVARS# CREATE TITLEDICONICON_MASKETITLEREGE"89MACROS IN-TITLE-BARTRACK-BAR-IN-TRACK-SELECT FUNCTIONSSELECT-NODE-SEGMENT5FNS BUILD-WINDOW BUTTONEVENTFNCHECK-SELECTIONCHECK-SELECTION-SHIFTCLOSEFNCONFLICTING-SELECTION?DISPLAY-SELECTIONDRAW-HIGHLIGHT DRAW-OUTLINEDRAW-UNDERLINEEXPANDFNEXPANDREGIONFNEXTEND-SELECTIONFINALIZE-MOUSE-SELECTIONFIND-LINE-START FIND-NODEGET-DESTINATION-CONTEXTGRAY GROW-CLICK?GROW-SELECTIONGROW-SELECTION-DEFAULTHIGHLIGHT-SELECTION ICON-COPYFNLESS-PROMPT-WINDOWNORMALIZE-SELECTIONOUTLINE-SELECTIONPENDING-DELETEPLACE-CARET-AND-SELECTIONPUNT-SET-POINTPUNT-SET-SELECTION REPAINTFN RESHAPEFNSCAN-FOR-BOUNDS SELECT-NODESELECT-SEGMENTSELECT-SEGMENT-DEFAULTSELECTION-DOWN SELECTION-UP SET-POINTSET-POINT-NOWHERESET-POINT-UNKNOWN SET-SELECTIONSET-SELECTION-MESET-SELECTION-NOWHERE SHIFT-DOWN SHOW-CARETSHRINKFN STRING-OFFSET TRACK-EXTEND TRACK-SELECTUNDERLINE-SELECTION UPDATE-TITLE 13-Jul-2023 14:28:53!{WMEDLEY}SEDIT-WINDOW.;6Roekelll eldjlakjlakh@@@>JAJHJIJ@A KJ RCONTEXTNODE &OPTIONALSTARTENDioawARGUMENT-ERRORSYSTEMUEDIT-SELECTIONKA8 EDIT-CONTEXT/U@@g@@ S oo@YIo Yg@ Igo Igg Igg Igg Igg Igg Igg Igg Igg IkS @IIg kI Igg Igg @hI @hI @hI ZJm @hI ZJm"jH HI nI  DEFAULTFONTUCONTEXT INTERLISPDSPRIGHTMARGIN DSPLINEFEED FONTHEIGHTDSPCLIPPINGREGIONjXG9 PUTWINDOWPROP(WYOFFSET GETWINDOWPROPGETPROMPTWINDOWߙΙyhWKCREATEWFCONCAT&l GET-WINDOW-REGION#EDIT-ENV}cQ@4SCROLLBYREPAINTFN/SCROLLFN#s REPAINTFN HEIGHTt昕 RESHAPEFNڙ_՘EXPANDFNəĘSHRINKFNYCLOSEFN`EXPANDREGIONFNV RIGHTBUTTONFNV BUTTONEVENTFNtVo WINDOWENTRYFN^SCROLLEXTENTUSEQ6 CREATEc-+A0 parsing +SEditVnX@Hg dHHhHl`Zj[KJJ hhHH .h`ljh$hH H H hiH H . hHhiH H . Hg=`ljhi%hH H H hihhVg𠁰hH H H hHg g'ZJ hHgZJIi H hH H H hP`kjhiZJ>`ljh0j`g \lLlپkNjNKMjkH 9HO _ O noH HgZJI hH Z oJ Hgh Hgg Hgg `ljhH  *PROFILE* VWINDOW1Ș DOWINDOWCOM}PRIN1qTERPRIk`RELEASE.MONITORLOCKK \DO.PROGV8PROFILE-VALUES 1PROFILE-VARIABLES * PROFILIZE HELPMENU형\KEYNAMETONUMBERINSIDEP LASTMOUSEY LASTMOUSEXTOTOPW \CARET.DOWNOBTAIN.MONITORLOCKp COPYINSERTbGETWINDOWUSERPROPRςMЂEт=3 GETMOUSESTATE)ςЂт時ׂ՘ TTY.PROCESSΘ \INSUREWINDOWř҂ TTY.PROCESSPقłӂςЂyZI\FZEROP+LASTMOUSEBUTTONSDON'T݂UCOPY蘕CTRL☕ \LASTKEYSTATEә܂܂{ނgname] TITLE-INFO$ނ왂܂ޙg7! wThis SEdit is dead.AH.H HcHPc HRc HTcHcWhTH hchc`ljHH HH Hi Jl`YjZJII hH`` H hcHH hSELECTION-PENDING? PENDING-SHIFTPENDING-LAST-XPENDING-LAST-Y PENDING-TYPEPENDING-SELECTION LAST-MOVE-CLOCK BUTTON-STRING-NODElambda in BUTTONEVENTFNCLOSURE b֘BLOCKИSCROLL.HANDLERǘIN/SCROLL/BAR?ۂׂXwXy CLOSE-NODE ™ЂтfJ8+=COMPILED-CLOSURE \PTRHUNK4W@@@hHjHh@hA@(H@ 3o &AhH@ ho HJ@g8@ h/I'Jhi\LIJ:IH [hhhh#@K@h@\hhhW SELECTIONPOINTNTH{SHOULDNTU䙂ڙЙ EDIT-NODE STRUCTUREl^ EDIT-POINTG8." vpending delete inconsistencyPpending delete inconsistencyXUAHhihiHQ=Qgj cR@Q R@H HchXCONTEXTLET-GOI[9['CLOCKA1MOVEY@g XHi H @g @g @ .Ng gHo gHgHH @ HgHHhHH h@ H H o ghYWINDOW阏FORMATߙјDISINTEGRATE-CONTEXTʘSAVE-WINDOW-REGIONĘ WINDOWREGIONvAWAKE-COMMAND-PROCESSc PROCESSPROPY THIS.PROCESSPICLOSEWD7+ؙ݂ CLOSE-ICONCLOSE|hMOUSE^NAME?MENU2$䘌~%Can't close. SEdit is busyqCOMPLETEZ2@@XRgYIRg@AhihhZCONTEXTDESTINATION-CONTEXTDELETE [@j@@XhhBTBg@AA \Bg@AA DBg@An /o "@ @An @An ih[ SELECTIONWINDOWTYPEnyljWnRf?:f`"H0 tunknown selection display type\BkbCkbDkbFkb GGADEBAEg @A DEbGGAD@CAEg B@CFGb GG@FGB@Gg GG@FCDFg \  X-1X-2X-3WY-1H-1Y-2H-2WINDOWSHADEBLTSHADEx7O7,7INVERTr8I8&8]DEb FGb@CbDFAbBb@AGG@kGkDGg LGG@kGkEGg GG@kEA@kg GGAkEkDEg GGAkDlCAkg GG@GB@kg BCGGBGkDGg GGBGkFGg GGBFCBkg GGCFkDFg ]  X-1X-2X-3WY-1H-1Y-2H-2WINDOWSHADE 77왂7ԙ7777m7U797 88時8Ι8888g8O838^ACWED@A AAAA @lg Ab bED@A AAAB@lg ^STARTXFIRSTENDXLASTWINDOWSHADE7?7 8y LINE-STARTpOhO`OPOFO98.O$OOO O_k@g @ .hHg gYg ZgJIH _WINDOWe START-PROCESSE:4(XLSEDIT1@FORM-#`3@g XgHH YIR h`WINDOW+l" EXPANDahhhhhhA BC CA [BKA \hhL hkH_OLNNiNkԾO_MLjAVkmBAVٺ@@Hh@AHhIJL @_Hhh_h_O2O_O_H_MOUMNM_MNN_N@_MNMO𑰖M_M@M7@@AMOhJL D@AMMMhJL +HM@AHOIJL @AMOOhJL hha  SELECTIONCONTEXTXY wwwnww=LAST.d$cy[OD(時ՙ~vOPC WEAK-LINK b@@V8T*hVg@ TAV Wj Wlhgc @I H VgGT@TT@>T @ A . I0I I I.I I>T@IJVg @I8Vg@ '@i @ @ II hh@iBHTJJIKTIIJKTJJIKTIIJKTJJIKT IIJ KT JJI KTIIJKTJJIKTIIJKTJJIKTIIJKTJI@WP@WR@WTT UHUT@>UIIJKUJJIKUIIJKUJJIKUIIJKU JJI KU IJ @  PENDING-CARET  bCONTEXTWINDOW :1Ȃ#zԂ UPDATECOPY-SELECTIONۙ˙yęӂ؂قk DELETE-NODESe^ZE;[2y#e0Ꙃؙƙwqg]RG<. 時ԙ™zh\QE*♂ҙ~ul"T*c\hA$h@A hi[K@jhIZJ @hihJIcYCONTEXTDO8O dbh@jhA@H BkVHjH J@JA bJA غBIVAdXLINEAR-POINTERCONTEXTMLINEAR-ITEM-WIDTHBNEXT-LINEAR-ITEMW0O%OOe:g X'Hg Xoi Hhhhe, PROCESS.EVAL! WINDOW&STKPOSQUOTEGETKEYf!jh@ kjh@ knZZnfWINDOW DSPYOFFSET DSPXOFFSETgfTTh0i-Uh(@@@@hih4WA,B V lhB W lhihhTTBU @@THIIJKHJJIKHIIJKHJJIKHIIJKH JJI KH IIJ KHJJIKHIIJKHJJIKHIIJKHJJIKHIJT@ TT hihT@ TBU W @ l`XjZJHH hXH`ljhiXH(B V lZJB W l񐁰l`XjZJHH hXH`ljhih fgCONTEXT POINT-TYPEWINDOWJۂ0ׂ$ABSЂт虂ۂΙׂș™X|[COMPUTE-SELECTION-POSITIONh[iaTMU܂8܂܂֙܂{iWE3!뙂ٙǙ~70& h'@@A@lHh SELECTIONCONTEXTEDIT-NODE-TYPE iB@AB hi SELECTIONCONTEXTNODEr j@ABg j SELECTIONWINDOWSHADE n\k2@g g g'XHi oh kWINDOW,BKSYSBUF  ICONFOR& l!@@@@A lREGIONFONT CREATEREGIONHEIGHTIFWINDOWm@@h@ hH@ HZ JJJI[KJ IIm7@jIImJ IlػjKKj hmCONTEXTSCROLLW OpYOEO<O4O,O$ nh@ @@@KL4JK MNMNKIK NMMNCCgI@ @JI@ @^NNL LLLABl MHn SELECTIONWINDOWSHADEFNșOOOOOOOO~skc]MOAO0O o8A-Ai @A@AHIIhoPOINT SELECTION'  phhhhhhB CD DB XCHB YhhI hkJ_OINNiNkԾO_MIjBVkmCBVټ@@BJKLIEi ABJKLIE AA hihAB h@@ A pCARET SELECTIONCONTEXTXYTYPE 䙂ݙ|ҙ~{=c.d$c™~vOPCd q"@ABB CBgD qPOINTCONTEXTNODE WHICH-ENDCOMPUTE-LOCATION?{ rI@ABhkBJBIIiIkԹJHhBg r SELECTIONCONTEXTNODEC~=!sWnX@AHg dH5HI Y I noH hsWINDOWREGIONO<60%EhhHHmH Y`IHhBHJ J kJJIH SHTHU H h嘌lambda in REPAINTFN혓xzo[^REPAINTcMOEO;O3O&AtsnX@ABHg HhH dHH HHH HH  nokoH-*LOCKED-MONITOR* *RESETFORMS*tWINDOW OLD-IMAGEOLD-IMAGE-REGIONOLD-SCREEN-REGIONVCOMPUTE-COMMENT-COLUMNJ&knHYHhg HHHHHHHH HH HHOHHHHHHIV!nokoI- ?hh:HM ] M noH j@  RESETSTATE LISPXHIST*UNWIND-PROTECT*혓G18 VALUES-LIST𘕌\MVLIST뙂ɂؙʂҙ˂̙̂UBITBLT WITH.MONITOR ᘖHH H lambda in *UNWIND-PROTECT*혓ATOM-CHANGE-RELINEARIZEWXOFFSETAgHH HhhhQcHH j@ 噂혓G19;2-sClean-up forms혓 RESETUNWINDݙ \PTRHUNK2c혓MONITOR-UNWIND_ \PTRHUNK6uihhBhhjCjjJJ@A@Jh@@X"HYJIbHHBJ@H3 MHؽ~HBMHؽHKH _NONOL_H ONON6KH H_NONOjH_LOLOMH ؽ@b!@bJ@bJKJL@@BMuSTARTENDLINE INITIALIZE BITMAPWIDTH BITMAPHEIGHTʘ FONTDESCENT FONTASCENT]VdNdDO:O+!d STRING-ITEM~OtOlO^TLdDd/O OOvA@@@A @@h B@>@AhChgi hvCONTEXTNODE SET-POINT?WHERE9{ 2&w1@i@i B@ABCDEFlHw SELECTIONCONTEXTNODESUBNODEINDEXOFFSETITEM x^hhCC Y@@ZJHDD!D bHDDIDBhkhhh_J_O}[LK_N H_O _OOOOxO LDMHMMIMZLDMMHhihIMIM>iJLkԼ~0H_@ONNOI@_NONO@B@H@I@h @_ggx  SELECTIONCONTEXTNODESUBNODEINDEXOFFSETITEMXPI?5+! dwdW80y0@B%@@@ @XhBhhyCONTEXT[" z2@Bh@@@ @XiBihzCONTEXT[${B @ABCDEFGlH{ POINTCONTEXTNODEINDEXOFFSETITEMTYPECOMPUTE-LOCATION? |@h@Xhh|POINT }"@ABCDBhiDG } POINTCONTEXTNODEINDEXOFFSETITEMTYPECOMPUTE-LOCATION?q ~1@i@h B@ABCDEFlH~ SELECTIONCONTEXTNODEINDEXOFFSETITEMTYPE >@B@h@h@h @Xgg SELECTIONCONTEXTNODE80*  @Xhh SELECTIONj`g YlIlٻkKjKHJjkgj`g XlHlٺkJjJIKjkgg g ggg gh SHIFTDOWNP|ipiB "߂ނwkSHIFTe=COPY70MOVEi@>XUAH@ @HgWW