XCL Compiler output for source file {DSK}local>lde>lispcore>sources>SEDIT-ATOMIC.;3 Source file created 16-May-90 21:37:57 FASL file created Sunday, 20 September 2020, 21:00:28 #ogg o FILECREATEDLOC*STANDARD-INPUT*1 top-level formFUNCTIONDEFINE-FILE-INFOOPEN OUTPUT DIRECTION READTABLEXCLPACKAGE DEFPACKAGEXEROX-COMMON-LISPSEDITUSELISPXCL{Null}7ggo oo o 4 top-level forms1PUTPROPS&PUTPROPSEDIT-ATOMICCOMS FILEDATES SEDIT-ATOMIC,MAKEFILE-ENVIRONMENT XCL !FILETYPE COMPILE-FILEPROP%( LOCALVARSDECLARE:DONTCOPYDOEVAL@COMPILEFILES SEDIT-DECLS%FNSASSIGN-FORMAT-LITATOMSEDITATOM-POINT-TYPE6 BACKSPACE-GAP6BACKSPACE-LITATOM6BACKSPACE-UNKNOWN6CLOSE-NODE-LITATOM6COMPUTE-POINT-POSITION-LITATOM6"COMPUTE-SELECTION-POSITION-LITATOM6 CONS-ATOM6COPY-SELECTION-LITATOM6COPY-STRUCTURE-STRING6DELETE-LITATOM6DETRANSLATE-CHARS6GET-BUTTON-STRING6GROW-SELECTION-LITATOM6HASFAT6INITIALIZE-ATOMIC6INSERT-LITATOM6 INSERT-STRING6 OPEN-LITATOM6PARSE--BROKEN-ATOM6PARSE--LITATOM6 PARSE--STRING6RELEASE-OPEN-STRING6 REPLACE-CHARS6REPLACE-STRING6 SCAN-STRING6SELECT-SEGMENT-LITATOM6SET-POINT-LITATOM6SET-POINT-STRING6SET-SELECTION-LITATOM6SET-SELECTION-STRING6 SPLIT-LITATOM6STRINGIFY-ATOM6TRANSLATE-CHARS6UNDO-ATOM-CHANGE6 16-May-90 21:37:574{DSK}local>lde>lispcore>sources>SEDIT-ATOMIC.;37@ XAIHJBgJ J@hA.A0@hh1j@hi^N"IhL _OKLhiMHKIhi LHLKIjkLNLM@M@M@M@MA0@Ah0hhh7 &OPTIONALNODECONTEXTFORMAT INTERLISP STRINGWIDTH6oSTRINGP| STRING-ITEM64KEYWORD+EDIT-ENV6" BROKEN-ATOM6l EDIT-CONTEXT6 m EDIT-NODE68Ah@hhhhh_g_W_W_h_k_jJJJ kټjJJJ LJl ػjJJJ lDLk\KONMLML¹OHA@ 9aNODECONTEXTINDEXf.PENDING-DELETE6SET-SELECTION-ME6SHOULDNT'nnnpoint can't be in a gap:BBjRjC @A@hA> @XY`I HAjlJhBh@`C j@hA@ A>A@hi A@ q:aNODECONTEXTINDEXSTRINGf󘒌SET-SELECTION-NOWHERE6SҙB NTHCHARCODE) DELETE-NODES6 NCHARSnٙn˙nont|g TYPE-STRING6`oIEDIT-NODE-TYPE6@ TYPE-QUOTE68o0o!no;5Bo A>A@hhhg A@ ;aNODECONTEXTINDEXf/! SET-POINT6(n STRUCTUREn%point shouldn't be in an unknown node< A@4#@8@6@:hihh@h4@h6&@gAA h@88AXAIA`hi JK KHK KI [IK@>@@ A@ A`A@ @Zh0hA@ <aCONTEXTNODEf NOTE-CHANGE6NOTE-CHANGE-IN-SIMPLE6טSUBNODE-CHANGED6ϙNCONCATi?n噂ޙoșnnjo~oujlo`nToMZHn@X@@@ZJ@IH`@H @H@@JKK>a SELECTIONCONTEXTfWvEDIT-SELECTION6odo^OoG@o8j0$ o?Amhh`WioWLn_@g hghgKhZJ`@ _K_KOO@#@ @ @ j@ j *CATCH-RETURN-PC*SYSTEM*CONDITION-HANDLER-BINDINGS* *NLSETQFLAG**PROCEED-CASES**CATCH-RETURN-TO*  ? aCHARSATOM?f ALLOCSTRING \SMASHSTRINGzsFZ/READ*OPENSTRINGSTREAMRBROKEN-ATOMTYPE#6CNORMAL7%INPUTNLSETQ-PROCEED-CASEERROR NLSETQHANDLER@nXABCD@dH H @H @H@H@HhHH H H Hg3HH HH`ggHH .HHH dHH hiYIH khihiHHHgH hih@HHHH Hg5HJ Z J noH HK [ K noH HHH H H H HgH hiHhi HHHH HhH h *PROFILE* ˙@a SELECTIONCONTEXT DESTINATIONPOINTDELETE?fԘBKSYSBUFC SUBSTRING \DO.PROGVPROFILE-VALUES }PROFILE-VARIABLES w PROFILIZE cՂPւJׂD؂COPY-SELECTION-DEFAULT6ԙDSTRINGln9n.'ڂzڂosmjmUH;.!oNHHH H H HHHH HhH HHIH  lambda in COPY-SELECTION-LITATOMCLOSUREHINSERT6CC3Y`H(H`hHhHH h*HhH Hi H`YIHHH EH HH H Hi H HHhHHH HhH H H`H H H H hiH HH HHHHh H HHHhi h lambda in COPY-SELECTION-LITATOMܘ XSAނ,CREATE-SIMPLE-NODE6™?N ADJUST-WIDTH6Ih&$lnl nmmmݙm՘ TYPE-LITATOM6Ιn~mwoaZoAj9o oCOMPILED-CLOSUREU \PTRHUNK12A@ @Hhi@H H X*H!`H K[KHLH @`[KHL[KIL[JkjKML@hHIJ AaNODECONTEXTfhS4-i oSTRING-ITEMTYPE#6hoLmD=m'omj ooBj@`hBkCCBE h@A@hD @ABCCBoDE@`hEB iBaNODECONTEXTSTARTEND SET-POINT?STRINGfbP\84QJo(o oBC9Ag.@ bh@hhhhhj_W_W_jW0hi_jIII kٻjIII KIl غjIII lDOAghbKk[J`MLKLK¸N?HOOAhihbh(HOihAHlahHlzhihHmظH@Ok_H @lO @lO @ih@Oh@ qC aSTRTYPEf! \PUTBASEFIXP RPLCHARCODEv~wtx`y COPYALLzD|6|)|Dv`@`@@@`hj`hi` ` DaNODECONTEXTfkPRINC-TO-STRINGXPRIN1-TO-STRINGp BUTTON-STRING6dj_QjL=j8-&ooBUTTON-STRING-NODE6 E@@AB @AB Ea SELECTIONCONTEXTNODEfGROW-SELECTION-DEFAULT6 Fzhh@hhhhj@JJ kټjJJJ LJl ػjJJJ lDLk\KNMLMLYlIIiHFaSTRfMv9w/xyG=`XHgIXHgIXHgIXHhIXHgIXHg IXHgIXHg IXHgIXHgIXHgIXHgIXHgIXHgIXHgIXHgIXHg IXHg"I`` XHgIXHgIXHg IXHgIXHgI`GfꘕNCREATE27TYPES60+"IV TNILLڂ噂EDIT-NODE-TYPETYPE#6ۙҙ<ƙ:X@ABH~RrEfUZSN>B=6"7 LITATOM6H6@ABC(CBBBPg hD  *PRINT-CASE*HaNODECONTEXTWHERECHARPOINTf0I'Y!UPCASE IhhhhB-BB\LHBB BYkظB B@AHICCoDJK Chj@hi @DAHHk@ hIaNODECONTEXTWHERECHARSPOINTfWkP jowoRI=2) bJ4Cjb@0A]@2Cj5H HCb#HChhi kH kkH AHIJJ@.@ @A0@2B AhIA`kjLMHJHH JCjCjbHChhi kkK HkB KlJ KlJ KihKJhI]KKJaCONTEXTNODESTRINGLENGTHf  RPLSTRINGԂ陂ϙx CLOSE-NODE6NB59$ (jojonnon]jUonnK'@A`@hA Ka STRUCTURECONTEXTMODEf!BUILD-PRELINEARIZED-NODE6ln mL @A`@iA La STRUCTURECONTEXTf=l nM @A`@iA Ma STRUCTURECONTEXTf=l nN0B @BA C@CXAAhNa OLD-STRING NEW-STRINGPOINT SELECTIONf" OhD CBkٸCHعFgjGhihFghWhhA2^_N_G_D OJ BCoOBC OJ _KC_B_W_h_OO-OO _OOk_OKLhiOk_L7iCOhOCk KCkbmkHLظOLKO _NOHjOH@`hih%A.A @A@hE COOCkCHkOC OBD LkOIkK N__OH_OlO OlO OihOOh@A@O Ai.E6E@EO EIEMOI FA>_Eh!O@OBhih1OHO_COCO_O OhqO aNODECONTEXTSTARTENDCHARSPOINTTYPE STRING-ITEMf'8Ꙃř5 SHIFT-STRING6jW6 CHARWIDTHəh{hsMKSTRINGldPC2nno^oNn?8o|hjTnF|;*jP7A@FD CBk @ABCDEGGg@ P aNODECONTEXTSTARTENDCHARSPOINTSTRINGTYPEf1OJ(o"QhhhhjjC @_BBW_BBW_F5l"D OhEKhi@h@ hEKb MKؽLk\NCL ZD F;JO_OJl"KOD ػ7Jl 0l^D Jl@D ػJOKCLk D ػEOKK'EKb MKؽFJOLkؼJOIhieFOhLNh@h@ hFgIggO?@Lk@I@A@AM,FhLNo @@@@L@,@L@AM @IFhJOLk\L@@L@AMK}@L@FhJOLk؀h@I@@_A_OOO@K@_AM_OO OH qQ a POINT-OR-SELNODE READ-TABLESTRINGFONTOFFSETSTRING?f +ۙ[ՙ[[[[cE[$osojdZC9(o" oܙҙƙ{oujodZNCz={5ڂ$\4|#|select past end of atomR*@Bh@FEB` Ra SELECTIONCONTEXTNODESUBNODEINDEXOFFSETITEMf$Qo jSFg#@ABCDEhiDG @B@BA  C@Bh`ED @D` j@gG7@BDBj@BHIIhS aPOINTCONTEXTNODEINDEXOFFSETITEMTYPECOMPUTE-LOCATION?fmZQ=D%PUNT-SET-POINT6ooo}zxhaQjK6,jTnFg#@ABCDEhiDG C5@B@BA  @Bh`EDi @ABDG T aPOINTCONTEXTNODEINDEXOFFSETITEMTYPECOMPUTE-LOCATION?fh[Q@D%QjK9/jUNFg@AB @B@BA @h@Bh`ED Ua SELECTIONCONTEXTNODEINDEXOFFSETITEMTYPEfHQ$D ?j9-VOFg@AB @B@BA @h@Bh`EDi Va SELECTIONCONTEXTNODEINDEXOFFSETITEMTYPEfIQ$D ?j9-WhE h@`hCkDHh%B.B @B@hA CDkCkZJDHh~B@E B2hDHCkٻ,CkHDٻJDkkK CkٻJDkH JKJ\lK LlK LihLKhBi.IBhB88B.B AB@Ckhi[KDHh IAyh@`I Ii YIIB@KKIKhiB ABI ABIhh B hWaNODEPOINTCONTEXTSTARTENDSTRINGfCOLLECT-UNDO-BLOCK6ނO?E6ƙԂZlJO<6lnnofn\mUm=6o*nnnܙnsnCo3noX@ i XaNODE ENVIRONMENTf \oYjW0ihibhWWo@hhh_h_@ kk@ XIh HJhAg_OH hi1BBHlA_OHlZ_OAg@Hl I @ jLLL kپjLLL _NLl ؽjLLL lD_Nk^MOONONXIh HJhAg_OH hi8KBBHlA_OHlZ_OAgHHl KI H xK qY aCHARS POINT-TYPEUPCASE?f} CHARACTERwni4ATOM-CHAR-ESCAPED6vwՙxynMCHCON1C\{'{{a{%|||.ZV@gAA h@88AB A@ A`A@ A@ ZaCONTEXTNODE OLD-VALUEfPH1?8o&onoZn o 1 top-level form COPYRIGHTVenue & Xerox Corporation‚Â