XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>SEDIT-TOPLEVEL.;1 Source file created Friday, 22 October 1993, 15:31:17. FASL file created Wednesday, 10 November 1993, 16:30:31. #ogg o FILECREATEDLOC*STANDARD-INPUT*1 top-level formFUNCTIONDEFINE-FILE-INFOOPEN OUTPUT DIRECTION READTABLEXCLPACKAGE DEFPACKAGEXEROX-COMMON-LISPSEDITUSELISPXCL{Null}hggo oo o `gh`ghg7 top-level forms1PUTPROPS&PUTPROP b*DISPLAY-EDITOR*]SEDITSEDITWREGIONSONOBINDJ DCONTEXTSlocal>lde>lispcore>sources>SEDIT-TOPLEVEL.;2@UbAg'Ag'YIg@HI ZJA JB KK K . h@K iJ*hi\LHB J@*K . JhKg J@*K JJ @ABbbb-JH J BASIC-GAP &OPTIONAL STRUCTUREPROPSOPTIONS INTERLISPٙU™KEXPANDWOPENWPGETWINDOWUSERPROPRESTART.PROCESS \INSUREWINDOWyR_TOTOPWUPROCESSPNG;S3T#J EDIT-CONTEXT ICONWINDOWg) EXPRESSIONTYPENAMEFPo i"F RESET-FORMATSCREATE-ENVIRONMENTSERROR4Can't reset SEdit while there are open SEdit windowsGGAgXHRhi4QQcHXH` o` ll h KEEP-WINDOW-REGIONGCONTEXTREASONNAMETYPE? GETREGION5PRIN1%TERPRI0 PROMPTWINDOW CREATE+Select region for SEdit window.H5AgXHAgRhihDD@ Qch HCONTEXTREASONNAMETYPEREGION) WINDOWREGION" SHRINKCLOSEJVhhH[KyAhi[K"AJ̑hi\LBJ hiA@hi[K8J$hi\L"@J$  hihJHCh`oA KKL M\L@$K\LAK\LB KLLK,M[Vc K"J STRUCTURENAMETYPE SEARCH-ONLY?ØCONS CREATE.EVENTCONCATEDIT-CONTEXTTYPE#o EDIT-NODEf_OH/SEditKJ@F@ @g@gh @h@P ch"KCONTEXT@DREMOVE. PUTWINDOWPROP NOTIFY.EVENT5(!DEADL(@ .X HgAh hLCONTEXTCOMMAND PROCESS.APPLY MMg XH@i hMRESULTRETFROMSTKPOSGETKEYN|g hHg)HY@IAI hhhRhIh@Aho h@Ai @Ahho h*IGNORE-CHANGES-ON-COMPLETION*NNAMETYPEREASONtEDITDEFdJZVERIFY-STRUCTUREUGETDEF PROCESSPROP THIS.PROCESS7,#SEDIT1FORMnDONTWAITPEDITNOCOPYO ggPQh@ ARGS-GAPBODY-GAPO DUMMY-BODYCOPYEDITMODE LAMBDARgAXHAgAihh_`XHoIho@ HHIJYIg HYIgHjjnnhIIH J ghhho@ ihRNAMEOPTIONSASKUSERFORMATuMENU8{YUDEFAULTMENUHELDFNI CLRPROMPT MENUTYPE#DISPLAYhAn edit session with changes already exists for ~S. Throw away changes and restart with new structure? 22An edit session with changes already exists for ~S'1Throw away changes and restart with new structure1Keep changes and don't restart with new structureS%@AhiYIAihAAhHIISCONTEXTOPTIONST@Ag'XHg (@Ag'XHg &@Ag'XHS@Ag'XHo @Ag'XHEg gYg ZgJI@Ag'XHg Ag'%@Ag'Ag'YIkHIIhLISP-EDIT-ENVIRONMENTTCONTEXTPROPS 㘒PROFILE-ENTRY-VALUE TTY.PROCESSm SAVE-PROFILE h COPY-PROFILE 5SYMBOL-FUNCTION2SELECT-INSTANCESELECT-STRUCTURE왂4ޘ*EVAL-FUNCTION* ԘEVAL-FNΙMOUSENAME|EVAL-IN-PROCESSvYPROFILESD ENVIRONMENT>0NULL&ROOT-CHANGED-FN < COMPLETION-FNc READ-PRINTUk@@ g@@ih@3hihg@h@hgHooH o hII JUCONTEXT` AWAIT.EVENTV ADD.PROCESSK88*A QE @"o o o 3 top-level forms^ TTY/EDITDATE ]a\banXBCDo HhHVHg$Hh H noHcHgUHg gIZJIgIihh(gH H noHhhhYI/HHnoHhhZJnoHHggHh0HggHhHggHhhA@AHHHE V%`` `hHgEHhK]M1\hi]ML` LLL` K˰zHgoHg gL[KLgLihhDH hL]M1[hi]MK` KKK` L@gHgHgIgJhE gE[KEgEihhHH 𐁰H@[K!JJ@ihhi\LHihhiH@H  FILEPKGFLGaEXPRCOMSATOMTYPE IFCHANGEDFNOPTIONSȘRPLNODE2Ø COPY-TREED_-PUTHASHGETHASH\EVALV1ӘGETPROPZ[a CLISPTRAN\؂W؂A TTY/EDITEMAPCAR\j]=\APPEND2seO=I>A9( CLISPARRAYb瘕ALISTٙcΘVARTYPEÙ@bbuPROPLSTgbPbJb#cE f@eeCAR~cpcedZ@-eAHH lambda in SEDITECLOSURECONTEXT STRUCTURECHANGED? ʘ#@ABHHH AHH lambda in SEDITEhCONTEXT STRUCTURECHANGED?h#@ABHHH AHH lambda in SEDITEhCONTEXT STRUCTURECHANGED?gK#@ABHHH AHH lambda in SEDITEhCONTEXT STRUCTURECHANGED?iSEDITE CompletionܘCOMPILED-CLOSUREƙG \PTRHUNK7bVnXBA!noH@AHCD @gHgg Rhh @ TTYEDITFNTYPEbEDITEXPREDITCOMSATOMMESSAGE EDITCHANGESN@BOUNDP& TTY/EDITL;6. HQ lambda in SEDITLhj  \PTRHUNK2c;A 'Ag Ag@ o A@ c STRUCTUREATOM5PUTD-SHOULDNT"]CCODEPGETDEXPR(where did this come from?dAg@ d STRUCTUREATOMe AX@@e STRUCTUREATOMf A@ f STRUCTUREATOMSETgBihhEhJ\L![ACKhgh iJAhK\L\Zhi\L'`J` YJIJIhhh#Jh` CJhgh iKHh@ABCgD hgCONTEXT STRUCTURECHANGED?ATOM IFCHANGEDFNOLD-KEYSh MARKASCHANGED~Z\[*ALISTSybWbOb$h^BhiXHBg:@AD DgCDA ECADilEDgCD Cd3@QhC h ADDSPELLFLGhCONTEXT STRUCTURECHANGED?ATOMTYPE IFCHANGEDFNVADDSPELLE'PUTDEFo<eE ABORTiBiChhhhHJ|hEMMJcgMJVMhi^NJ`@J` [.JK#JKJh` _OihhhhhMhCJhgh iJhIhiCONTEXT STRUCTURECHANGED?ATOM IFCHANGEDFNOLDPROPSuZR[PROPSpbMbCbjnXUHo HnoHV g@gAgIh HhH nokoH-hHH L*LOCKED-MONITOR*SYSTEM *RESETFORMS* EDITCHANGESLjATMTYPE{DK,LAST>>82jnHhg RH$ dH9H HH H> H H hj@Iژ*UNWIND-PROTECT*hG70` SELECTION-UPWNORMALIZE-SELECTIONNSET-POINT-NOWHERE> SELECT-NODE2SELECTION-DOWN"kOBTAIN.MONITORLOCKG WITH.MONITORbClean-up formshMONITOR-UNWIND BiHiH lambda in TTYFNhCONTEXT STRUCTURECHANGED? SEdit TTYFN Completion^ \PTRHUNK4k>@:@A  hhH[KZ @JJiHIAkCHAINROOTk# oBglBg'Ag'hhUHhoo oU HA 6@$  Hk @Jh@ F`@$ JJKL[KHJ[KgJ[@h@ @ hINITIALSoCONTEXT STRUCTURETYPE ՘THROW-AWAY-CHANGESΘINSERTɘ PARSE-NEW REPLACE-NODEwNTHU EDITDATE?PNTHH=DATE STRUCTURE܂EDIT-POINTTYPE#md]EDITDATE-OFFSET DEFINED-BYFNSB by 8 DATEFORMAT NO.SECONDS3Edited s&g PhjPQhgg ڙs EDITL0wwoPgg c}1 top-level formADJOIN2 ~wxsg X`XHAIXHTIXHjFIlo HHIJlo IIHJHHI,J`XHUJjhHHJ KZJjHZJjHZJgHIJD@I Ih J IB PRETTY-PRINT-ENV TYPE-ROOT STRUCTURESTREAM RIGHT-MARGIN Ҙ LINEARIZE͘FIXRCOMPUTE-ALL-FORMATSPARSE`Q*:* CREATE-PRETTY-PRINT-ENV™܂NOT-YET-ASSIGNEDoEDIT-NODETYPE#"KB r4B rM@AP@A Q@AR@A S@ATo  DEFAULTFONT CLISPFONT ITALICFONT COMMENTFONTBOLDFONTFONTENVG7EDIT-ENV*::::Bunexpected font!`XH@ISTRINGBROKEN-ATOMTYPE#Aog@ i BROKEN-ATOMSTREAMX  #.(~S ~S)`XH@IITEM GAPTYPE#Aog@ iGAPSTREAMX  #.(~S '~S),gg gg o 3 top-level forms& !% COPYRIGHTVenue & Xerox Corporation‚ÂĂƂǂ\