XCL Compiler output for source file {DSK}disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-TERMINAL.;1 Source file created Thursday, 17 May 1990, 10:59:38. FASL file created Monday, 26 January 1998, 13:35:55. #ogg o FILECREATEDLOC*STANDARD-INPUT*1 top-level formFUNCTIONDEFINE-FILE-INFOOPEN OUTPUT DIRECTION READTABLEXCLPACKAGE DEFPACKAGEXEROX-COMMON-LISPSEDITUSELISPXCL{Null}mggo oo o ooPll Qll STRUCTURE-CARET-BITMAPSEDITATOM-CARET-BITMAP8 top-level formsb CURSORCREATER1PUTPROPS&PUTPROPg ATOM-CARETWSTRUCTURE-CARETG<SEDIT-TERMINALCOMS FILEDATESSEDIT-TERMINALB88ll788||,%MAKEFILE-ENVIRONMENT XCL !%FILETYPE COMPILE-FILEPROP.%1(% LOCALVARSDECLARE:DONTCOPYDOEVAL@COMPILEFILES SEDIT-DECLSBITMAPSVARS"!FNSATOM-CHAR-ESCAPEDCHARCODEGETKEY PRINT-STRING SHIFT-STRING STRINGWIDTH TTYEXITFN 17-May-90 11:11:546{DSK}local>lde>lispcore>sources>SEDIT-TERMINAL.;2FeASb@lah@lzhjA0hiXHjA@l!Iɀ@Iɀ hZJjI@l$hi *READTABLE*F &OPTIONALCHAR READ-TABLE INTERLISPLGETHASHE CHARTABLE;[, READTABLEP\G@XH@ GTCHARX CHARCODEH&hX&YHI&Jhh@>@ YI``}`hi\L``ghihJh@K@@g b.Ag bA.@gAh hhhLTOLDPROCNEWPROCX2 PROCESS.EVALGETWINDOWUSERPROP PROCESSPROP) CLOSE-NODE oo o 1 top-level form% COPYRIGHTVenue & Xerox Corporation‚Â