(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)))
(IL:FILECREATED "10-Nov-93 09:52:53" ("compiled on " 
IL:|{DSK}<king>export>lispcore>sources>SEDIT-DECLS.;1|) "19-Feb-93 17:03:08" IL:|bcompl'd| IL:|in| 
"Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42")
(IL:FILECREATED "19-Jan-93 11:18:34" IL:|{DSK}<python>lde>lispcore>sources>SEDIT-DECLS.;3| 50314 
IL:|changes| IL:|to:| (IL:RECORDS BROKEN-ATOM EDIT-CONTEXT EDIT-ENV EDIT-NODE EDIT-NODE-TYPE 
EDIT-POINT EDIT-SELECTION GAP LINE-BLOCK LINE-START LIST-FORMAT OPEN-STRING STRING-ITEM WEAK-LINK) 
IL:|previous| IL:|date:| " 5-Jan-93 02:19:37" IL:|{DSK}<python>lde>lispcore>sources>SEDIT-DECLS.;2|)
(IL:PRETTYCOMPRINT IL:SEDIT-DECLSCOMS)
(IL:RPAQQ IL:SEDIT-DECLSCOMS ((IL:PROP IL:FILETYPE IL:SEDIT-DECLS) (IL:PROP IL:MAKEFILE-ENVIRONMENT 
IL:SEDIT-DECLS) (IL:* IL:|;;;| 
"This file is for declaring things which are shared among sedit files.  This file is loaded at compile time by each sedit file, but the contents of this file are not copied into any of the compiled files.  The RECORDS declarations are here, and they are INITRECORDed and SYSRECORDed in SEDIT-ACCESS.  If you change a record, make sure sedit-access gets remade NEW.  All GLOBALVARS declarations are done here, because they're needed at compile time, but the actual variable declarations are done in the appropriate file.  Constants and Macros are declared here only if they are shared among files; otherwise they can remain in the appropriate file. "
) (IL:RECORDS BROKEN-ATOM EDIT-CONTEXT EDIT-ENV EDIT-NODE EDIT-NODE-TYPE EDIT-POINT EDIT-SELECTION GAP
 LINE-BLOCK LINE-START LIST-FORMAT OPEN-STRING STRING-ITEM WEAK-LINK) (IL:* IL:|;;| 
"interface globalvars") (IL:GLOBALVARS CONVERT-UPGRADE KEEP-WINDOW-REGION CONTEXTS 
LISP-EDIT-ENVIRONMENT LIST-FORMATS-TABLE PRETTY-PRINT-ENV REGIONS) (IL:* IL:|;;| "shared globalvars") 
(IL:GLOBALVARS IL:BOLDFONT IL:CLISPFONT IL:COMMENTFLG IL:COMMENTFONT IL:DEFAULTFONT IL:PROMPTWINDOW 
IL:ITALICFONT ARGS-GAP ATOM-CARET BASIC-GAP BODY-GAP BUTTON-STRING BUTTON-STRING-NODE STRUCTURE-CARET 
CLISP-INDENT-WORDS CLISP-PROGRAM-WORDS COMMAND-TABLE-SPEC LIST-PARSE-INFO TERMINAL-TABLE TEMP-POINT 
TEMP-SELECTION TYPE-CLISP TYPE-COMMENT TYPE-COMMENT-WORD TYPE-DOTLIST TYPE-GAP TYPE-LIST TYPE-LITATOM 
TYPE-QUOTE TYPE-ROOT TYPE-STRING TYPE-UNKNOWN TYPES ARGS-BITMAP BODY-BITMAP GAP-BITMAP) (IL:* IL:|;;| 
"window file globalvars") (IL:GLOBALVARS TITLED-ICON SELECTION-PENDING? PENDING-SELECTION 
INITIAL-SELECTION SCRATCH-SELECTION PENDING-CARET PENDING-LAST-X PENDING-LAST-Y PENDING-TYPE 
PENDING-SHIFT LAST-MOVE-CLOCK BUTTON-STRING-NODE) (IL:* IL:|;;| "command file globalvars") (
IL:GLOBALVARS MENUS MENU-DESCRIPTION MUTATE-CANDIDATE PACKAGE-CANDIDATE PRINTBASE-CANDIDATE 
FIND-CANDIDATE SUBSTITUTE-CANDIDATE) (IL:* IL:|;;| "random constants") (IL:CONSTANTS (EDITOR-NAME 
"SEdit") (IL:MICASPERPT 35.27778) (QUOTE-WRAPPER-LIST (QUOTE (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA
 IL:\\\, COMMA-AT IL:\\\,@ COMMA-DOT IL:\\\,. FUNCTION FUNCTION)))) (IL:* IL:|;;| "random macros") (
IL:MACROS GET-PROMPT-WINDOW EVAL-IN-PROCESS LOOKUP-COMMAND QUOTE-WRAPPER QUOTE-WRAPPER-NAME 
REPAINT-NEW-LINE RESET-CONTROL-VARIABLES SELECT-COMMENT-INDENT SET-COMMENT-POSITIONS 
SET-SELECTION-NOWHERE) (IL:* IL:|;;| "kernel macros") (IL:FUNCTIONS CREATE-WEAK-LINK) (IL:MACROS 
ADVANCE CLOSE-OPEN-NODE DEAD-NODE? END-UNDO-BLOCK ESCAPE-CHAR EQ-POINT-TYPE NEXT-LINEAR SET-LINEAR 
START-UNDO-BLOCK STEP-LINEAR SUBNODE UNDO-BY ZAP-CLISP-TRANSLATION SMASH-USING IL:HALF) (IL:* IL:|;;| 
"the symbols that come from interlisp, divided into those that conflict with CL symbols and those that don't.  The SEDIT package declaration in the makefile-environment for all these files need not actually import any of these symbols, it just makes the functions easier to edit if you do cause then you don't need so many IL: prefixes."
) (IL:VARIABLES *IL-CL-CONFLICTS* *IL-IMPORTS*) (IL:* IL:|;;| "and a little reminder:") (IL:P (
IL:|printout| T T "EXPORTS.ALL must be loaded to compile SEdit" T) (IL:|printout| T T 
"SEDIT-ACCESS must be REMADE NEW if you change a record" T))))
(IL:PUTPROPS IL:SEDIT-DECLS IL:FILETYPE :COMPILE-FILE)
(IL:PUTPROPS IL:SEDIT-DECLS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE IL:SEDIT (
:USE IL:LISP IL:XCL))))
(IL:DATATYPE BROKEN-ATOM (ATOM-CHARS))
(IL:DATATYPE EDIT-CONTEXT (ENVIRONMENT PROFILE EVAL-FN EVAL-IN-PROCESS CONTEXT-LOCK COMPLETION-EVENT 
EDIT-TYPE ICON-TITLE EDIT-OPTIONS COMMENT-WIDTH COMMENT-SEPARATION FIND-CANDIDATE SUBSTITUTE-CANDIDATE
 DISPLAY-WINDOW WINDOW-LEFT WINDOW-BOTTOM WINDOW-RIGHT WINDOW-TOP ROOT ROOT-CHANGED-FN COMPLETION-FN 
CHANGED-STRUCTURE? (DONT-COLLECT-CHANGES? IL:FLAG) CHANGED-NODES OPEN-NODE-CHANGED? OPEN-NODE 
OPEN-NODE-INFO ATOM-STARTED ATOM-STARTED-UNDO-POINTER UNDO-LIST UNDO-UNDO-LIST CARET CARET-POINT 
SELECTION SELECTION-DISPLAYED? (CURRENT-NODE IL:FULLXPOINTER) CURRENT-X (CURRENT-LINE IL:FULLXPOINTER)
 (LAST-LINEARIZED-SUB-NODE-INDEX IL:WORD) (LINEAR-POINTER IL:FULLXPOINTER) (LINEAR-PREV IL:FULLXPOINTER
) LAST-MOUSE-X LAST-MOUSE-Y LAST-MOUSE-TYPE \\X \\Y \\Z \\T FIRST-BLOCK CURRENT-BLOCK MATCHING? BELOW?
 VISIBLE? (REPAINT-START IL:FULLXPOINTER) (REPAINT-LINE IL:FULLXPOINTER) REPAINT-X 
RELINEARIZATION-TIME-STAMP SHIFT-Y SHIFT-DOWN SHIFT-RIGHT) CHANGED-NODES IL:_ (CONS))
(IL:DATATYPE EDIT-ENV (PARSE-INFO PARSE-INFO-UNKNOWN USER-DATA DEFAULT-FONT ITALIC-FONT KEYWORD-FONT 
COMMENT-FONT BROKEN-ATOM-FONT SPACE-WIDTH DEFAULT-LINE-SKIP EM-WIDTH INDENT-BASE INDENT-STEP MAX-WIDTH
 COMMENT-WIDTH-PERCENT INIT-COMMENT-SEPARATION LPAREN-STRING RPAREN-STRING DOT-STRING QUOTE-STRING 
COMMENT-STRING COMMAND-TABLE DEFAULT-CHAR-HANDLER HELP-MENU))
(IL:DATATYPE EDIT-NODE ((NODE-TYPE IL:FULLXPOINTER) FORMAT UNASSIGNED (SUPER-NODE IL:FULLXPOINTER) (
DEPTH IL:WORD) (SUB-NODE-INDEX IL:WORD) STRUCTURE SUB-NODES (LINEAR-THREAD IL:FULLXPOINTER) 
LINEAR-FORM (START-X IL:WORD) (RIGHT-MARGIN IL:WORD) (PREFERRED-WIDTH IL:WORD) (ACTUAL-WIDTH IL:WORD) 
(CHANGED? IL:FLAG) INLINE-WIDTH ACTUAL-LLENGTH FIRST-LINE LAST-LINE) (IL:ACCESSFNS (INLINE? (EQ (
IL:|fetch| FIRST-LINE IL:|of| IL:DATUM) (IL:|fetch| LAST-LINE IL:|of| IL:DATUM)))) FORMAT IL:_ (QUOTE 
NOT-YET-ASSIGNED))
(IL:DATATYPE EDIT-NODE-TYPE (NAME ASSIGN-FORMAT COMPUTE-FORMAT-VALUES LINEARIZE SUB-NODE-CHANGED 
SET-POINT COMPUTE-POINT-POSITION COMPUTE-SELECTION-POSITION SET-SELECTION GROW-SELECTION 
SELECT-SEGMENT INSERT DELETE COPY-STRUCTURE COPY-SELECTION STRINGIFY BACK-SPACE CLOSE-NODE))
(IL:DATATYPE EDIT-POINT ((POINT-NODE IL:FULLXPOINTER) POINT-INDEX POINT-TYPE POINT-X (POINT-LINE 
IL:FULLXPOINTER) POINT-STRING POINT-OFFSET))
(IL:DATATYPE EDIT-SELECTION ((SELECT-NODE IL:FULLXPOINTER) SELECT-START SELECT-END SELECT-TYPE 
DELETE-OK? PENDING-DELETE? SELECT-START-X (SELECT-START-LINE IL:FULLXPOINTER) SELECT-END-X (
SELECT-END-LINE IL:FULLXPOINTER) SELECT-STRING SELECT-START-OFFSET SELECT-END-OFFSET))
(IL:DATATYPE GAP (LINEAR-ITEM))
(IL:DATATYPE LINE-BLOCK ((BLOCK-START IL:FULLXPOINTER) BLOCK-NEW-X BLOCK-WIDTH NEXT-BLOCK BITS? 
BLOCK-X BLOCK-BASE-LINE BLOCK-ASCENT BLOCK-DESCENT))
(IL:DATATYPE LINE-START ((NEXT-LINE IL:FULLXPOINTER) (PREV-LINE IL:FULLXPOINTER) (NODE IL:FULLXPOINTER
) (LINE-ASCENT IL:WORD) (LINE-DESCENT IL:WORD) (LINE-SKIP IL:WORD) (LINE-LENGTH IL:WORD) (INDENT IL:WORD
) YCOORD (CACHE-TIME IL:WORD) CACHED-Y (CACHED-ASCENT IL:WORD) (CACHED-DESCENT IL:WORD)) (IL:ACCESSFNS
 (LINE-HEIGHT (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF IL:DATUM) (IL:FETCH LINE-ASCENT IL:OF IL:DATUM) (
IL:FETCH LINE-DESCENT IL:OF IL:DATUM)))) (IL:ACCESSFNS (BASE-LINE-Y (IL:IDIFFERENCE (IL:ADD1 (IL:FETCH
 YCOORD IL:OF IL:DATUM)) (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF IL:DATUM) (IL:FETCH LINE-ASCENT IL:OF 
IL:DATUM))))) (IL:ACCESSFNS (NEXT-LINE-Y (IL:IDIFFERENCE (IL:FETCH YCOORD IL:OF IL:DATUM) (IL:FETCH 
LINE-HEIGHT IL:OF IL:DATUM)))) (IL:ACCESSFNS (OLD-TOP (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) (
IL:|fetch| RELINEARIZATION-TIME-STAMP IL:|of| CONTEXT)) (IL:SUB1 (IL:IPLUS (IL:FETCH CACHED-Y IL:OF 
IL:DATUM) (IL:FETCH CACHED-ASCENT IL:OF IL:DATUM))) (IL:FETCH YCOORD IL:OF IL:DATUM)))) (IL:ACCESSFNS 
(OLD-BOTTOM (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) (IL:|fetch| RELINEARIZATION-TIME-STAMP IL:|of|
 CONTEXT)) (IL:IDIFFERENCE (IL:FETCH CACHED-Y IL:OF IL:DATUM) (IL:FETCH CACHED-DESCENT IL:OF IL:DATUM)
) (IL:ADD1 (IL:FETCH NEXT-LINE-Y IL:OF IL:DATUM))))))
(IL:DATATYPE LIST-FORMAT (LIST-FORMATS LIST-INLINE? LIST-PFORMAT LIST-MFORMAT LIST-SUBLISTS) (
IL:ACCESSFNS (NON-STANDARD? (NULL (IL:|fetch| LIST-FORMATS IL:|of| IL:DATUM)))) (IL:ACCESSFNS (
SET-FORMAT-LIST (IL:|fetch| LIST-INLINE? IL:|of| IL:DATUM))) (IL:ACCESSFNS (CFVLIST (IL:|fetch| 
LIST-PFORMAT IL:|of| IL:DATUM))) (IL:ACCESSFNS (LINEARIZE-LIST (IL:|fetch| LIST-MFORMAT IL:|of| IL:DATUM
))) LIST-SUBLISTS IL:_ NIL)
(IL:RECORD OPEN-STRING (REAL-LENGTH SUBSTRING . BUFFER-STRING))
(IL:DATATYPE STRING-ITEM (STRING (WIDTH IL:WORD) (FONT IL:FULLXPOINTER) (PRIN-2? IL:FLAG)))
(IL:DATATYPE WEAK-LINK ((DESTINATION IL:FULLXPOINTER)))
(IL:/DECLAREDATATYPE (QUOTE BROKEN-ATOM) (QUOTE (IL:POINTER)) (QUOTE ((BROKEN-ATOM 0 IL:POINTER))) (
QUOTE 2))
(IL:/DECLAREDATATYPE (QUOTE EDIT-CONTEXT) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER
 IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FLAG 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:FULLXPOINTER IL:WORD IL:FULLXPOINTER 
IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER
 IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-CONTEXT 0 IL:POINTER) (EDIT-CONTEXT 2 IL:POINTER) (
EDIT-CONTEXT 4 IL:POINTER) (EDIT-CONTEXT 6 IL:POINTER) (EDIT-CONTEXT 8 IL:POINTER) (EDIT-CONTEXT 10 
IL:POINTER) (EDIT-CONTEXT 12 IL:POINTER) (EDIT-CONTEXT 14 IL:POINTER) (EDIT-CONTEXT 16 IL:POINTER) (
EDIT-CONTEXT 18 IL:POINTER) (EDIT-CONTEXT 20 IL:POINTER) (EDIT-CONTEXT 22 IL:POINTER) (EDIT-CONTEXT 24
 IL:POINTER) (EDIT-CONTEXT 26 IL:POINTER) (EDIT-CONTEXT 28 IL:POINTER) (EDIT-CONTEXT 30 IL:POINTER) (
EDIT-CONTEXT 32 IL:POINTER) (EDIT-CONTEXT 34 IL:POINTER) (EDIT-CONTEXT 36 IL:POINTER) (EDIT-CONTEXT 38
 IL:POINTER) (EDIT-CONTEXT 40 IL:POINTER) (EDIT-CONTEXT 42 IL:POINTER) (EDIT-CONTEXT 42 (IL:FLAGBITS
 . 0)) (EDIT-CONTEXT 44 IL:POINTER) (EDIT-CONTEXT 46 IL:POINTER) (EDIT-CONTEXT 48 IL:POINTER) (
EDIT-CONTEXT 50 IL:POINTER) (EDIT-CONTEXT 52 IL:POINTER) (EDIT-CONTEXT 54 IL:POINTER) (EDIT-CONTEXT 56
 IL:POINTER) (EDIT-CONTEXT 58 IL:POINTER) (EDIT-CONTEXT 60 IL:POINTER) (EDIT-CONTEXT 62 IL:POINTER) (
EDIT-CONTEXT 64 IL:POINTER) (EDIT-CONTEXT 66 IL:POINTER) (EDIT-CONTEXT 68 IL:FULLXPOINTER) (
EDIT-CONTEXT 70 IL:POINTER) (EDIT-CONTEXT 72 IL:FULLXPOINTER) (EDIT-CONTEXT 74 (IL:BITS . 15)) (
EDIT-CONTEXT 76 IL:FULLXPOINTER) (EDIT-CONTEXT 78 IL:FULLXPOINTER) (EDIT-CONTEXT 80 IL:POINTER) (
EDIT-CONTEXT 82 IL:POINTER) (EDIT-CONTEXT 84 IL:POINTER) (EDIT-CONTEXT 86 IL:POINTER) (EDIT-CONTEXT 88
 IL:POINTER) (EDIT-CONTEXT 90 IL:POINTER) (EDIT-CONTEXT 92 IL:POINTER) (EDIT-CONTEXT 94 IL:POINTER) (
EDIT-CONTEXT 96 IL:POINTER) (EDIT-CONTEXT 98 IL:POINTER) (EDIT-CONTEXT 100 IL:POINTER) (EDIT-CONTEXT 
102 IL:POINTER) (EDIT-CONTEXT 104 IL:FULLXPOINTER) (EDIT-CONTEXT 106 IL:FULLXPOINTER) (EDIT-CONTEXT 
108 IL:POINTER) (EDIT-CONTEXT 110 IL:POINTER) (EDIT-CONTEXT 112 IL:POINTER) (EDIT-CONTEXT 114 IL:POINTER
) (EDIT-CONTEXT 116 IL:POINTER))) (QUOTE 118))
(IL:/DECLAREDATATYPE (QUOTE EDIT-ENV) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER)) (QUOTE ((EDIT-ENV 0 IL:POINTER) (EDIT-ENV 2 IL:POINTER) (EDIT-ENV 4 IL:POINTER) (EDIT-ENV
 6 IL:POINTER) (EDIT-ENV 8 IL:POINTER) (EDIT-ENV 10 IL:POINTER) (EDIT-ENV 12 IL:POINTER) (EDIT-ENV 14 
IL:POINTER) (EDIT-ENV 16 IL:POINTER) (EDIT-ENV 18 IL:POINTER) (EDIT-ENV 20 IL:POINTER) (EDIT-ENV 22 
IL:POINTER) (EDIT-ENV 24 IL:POINTER) (EDIT-ENV 26 IL:POINTER) (EDIT-ENV 28 IL:POINTER) (EDIT-ENV 30 
IL:POINTER) (EDIT-ENV 32 IL:POINTER) (EDIT-ENV 34 IL:POINTER) (EDIT-ENV 36 IL:POINTER) (EDIT-ENV 38 
IL:POINTER) (EDIT-ENV 40 IL:POINTER) (EDIT-ENV 42 IL:POINTER) (EDIT-ENV 44 IL:POINTER) (EDIT-ENV 46 
IL:POINTER))) (QUOTE 48))
(IL:/DECLAREDATATYPE (QUOTE EDIT-NODE) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:FULLXPOINTER 
IL:WORD IL:WORD IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:WORD IL:WORD IL:WORD IL:WORD IL:FLAG
 IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-NODE 0 IL:FULLXPOINTER) (EDIT-NODE 2 
IL:POINTER) (EDIT-NODE 4 IL:POINTER) (EDIT-NODE 6 IL:FULLXPOINTER) (EDIT-NODE 8 (IL:BITS . 15)) (
EDIT-NODE 9 (IL:BITS . 15)) (EDIT-NODE 10 IL:POINTER) (EDIT-NODE 12 IL:POINTER) (EDIT-NODE 14 
IL:FULLXPOINTER) (EDIT-NODE 16 IL:POINTER) (EDIT-NODE 18 (IL:BITS . 15)) (EDIT-NODE 19 (IL:BITS . 15))
 (EDIT-NODE 20 (IL:BITS . 15)) (EDIT-NODE 21 (IL:BITS . 15)) (EDIT-NODE 16 (IL:FLAGBITS . 0)) (
EDIT-NODE 22 IL:POINTER) (EDIT-NODE 24 IL:POINTER) (EDIT-NODE 26 IL:POINTER) (EDIT-NODE 28 IL:POINTER)
)) (QUOTE 30))
(IL:/DECLAREDATATYPE (QUOTE EDIT-NODE-TYPE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-NODE-TYPE 0 IL:POINTER) (
EDIT-NODE-TYPE 2 IL:POINTER) (EDIT-NODE-TYPE 4 IL:POINTER) (EDIT-NODE-TYPE 6 IL:POINTER) (
EDIT-NODE-TYPE 8 IL:POINTER) (EDIT-NODE-TYPE 10 IL:POINTER) (EDIT-NODE-TYPE 12 IL:POINTER) (
EDIT-NODE-TYPE 14 IL:POINTER) (EDIT-NODE-TYPE 16 IL:POINTER) (EDIT-NODE-TYPE 18 IL:POINTER) (
EDIT-NODE-TYPE 20 IL:POINTER) (EDIT-NODE-TYPE 22 IL:POINTER) (EDIT-NODE-TYPE 24 IL:POINTER) (
EDIT-NODE-TYPE 26 IL:POINTER) (EDIT-NODE-TYPE 28 IL:POINTER) (EDIT-NODE-TYPE 30 IL:POINTER) (
EDIT-NODE-TYPE 32 IL:POINTER) (EDIT-NODE-TYPE 34 IL:POINTER))) (QUOTE 36))
(IL:/DECLAREDATATYPE (QUOTE EDIT-POINT) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER 
IL:FULLXPOINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-POINT 0 IL:FULLXPOINTER) (EDIT-POINT 2 IL:POINTER
) (EDIT-POINT 4 IL:POINTER) (EDIT-POINT 6 IL:POINTER) (EDIT-POINT 8 IL:FULLXPOINTER) (EDIT-POINT 10 
IL:POINTER) (EDIT-POINT 12 IL:POINTER))) (QUOTE 14))
(IL:/DECLAREDATATYPE (QUOTE EDIT-SELECTION) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:POINTER 
IL:POINTER)) (QUOTE ((EDIT-SELECTION 0 IL:FULLXPOINTER) (EDIT-SELECTION 2 IL:POINTER) (EDIT-SELECTION 
4 IL:POINTER) (EDIT-SELECTION 6 IL:POINTER) (EDIT-SELECTION 8 IL:POINTER) (EDIT-SELECTION 10 IL:POINTER
) (EDIT-SELECTION 12 IL:POINTER) (EDIT-SELECTION 14 IL:FULLXPOINTER) (EDIT-SELECTION 16 IL:POINTER) (
EDIT-SELECTION 18 IL:FULLXPOINTER) (EDIT-SELECTION 20 IL:POINTER) (EDIT-SELECTION 22 IL:POINTER) (
EDIT-SELECTION 24 IL:POINTER))) (QUOTE 26))
(IL:/DECLAREDATATYPE (QUOTE GAP) (QUOTE (IL:POINTER)) (QUOTE ((GAP 0 IL:POINTER))) (QUOTE 2))
(IL:/DECLAREDATATYPE (QUOTE LINE-BLOCK) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((LINE-BLOCK 0 IL:FULLXPOINTER) (
LINE-BLOCK 2 IL:POINTER) (LINE-BLOCK 4 IL:POINTER) (LINE-BLOCK 6 IL:POINTER) (LINE-BLOCK 8 IL:POINTER)
 (LINE-BLOCK 10 IL:POINTER) (LINE-BLOCK 12 IL:POINTER) (LINE-BLOCK 14 IL:POINTER) (LINE-BLOCK 16 
IL:POINTER))) (QUOTE 18))
(IL:/DECLAREDATATYPE (QUOTE LINE-START) (QUOTE (IL:FULLXPOINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:WORD
 IL:WORD IL:WORD IL:WORD IL:WORD IL:POINTER IL:WORD IL:POINTER IL:WORD IL:WORD)) (QUOTE ((LINE-START 0
 IL:FULLXPOINTER) (LINE-START 2 IL:FULLXPOINTER) (LINE-START 4 IL:FULLXPOINTER) (LINE-START 6 (IL:BITS
 . 15)) (LINE-START 7 (IL:BITS . 15)) (LINE-START 8 (IL:BITS . 15)) (LINE-START 9 (IL:BITS . 15)) (
LINE-START 10 (IL:BITS . 15)) (LINE-START 12 IL:POINTER) (LINE-START 11 (IL:BITS . 15)) (LINE-START 14
 IL:POINTER) (LINE-START 16 (IL:BITS . 15)) (LINE-START 17 (IL:BITS . 15)))) (QUOTE 18))
(IL:/DECLAREDATATYPE (QUOTE LIST-FORMAT) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER
)) (QUOTE ((LIST-FORMAT 0 IL:POINTER) (LIST-FORMAT 2 IL:POINTER) (LIST-FORMAT 4 IL:POINTER) (
LIST-FORMAT 6 IL:POINTER) (LIST-FORMAT 8 IL:POINTER))) (QUOTE 10))
(IL:/DECLAREDATATYPE (QUOTE STRING-ITEM) (QUOTE (IL:POINTER IL:WORD IL:FULLXPOINTER IL:FLAG)) (QUOTE (
(STRING-ITEM 0 IL:POINTER) (STRING-ITEM 2 (IL:BITS . 15)) (STRING-ITEM 4 IL:FULLXPOINTER) (STRING-ITEM
 3 (IL:FLAGBITS . 0)))) (QUOTE 6))
(IL:/DECLAREDATATYPE (QUOTE WEAK-LINK) (QUOTE (IL:FULLXPOINTER)) (QUOTE ((WEAK-LINK 0 IL:FULLXPOINTER)
)) (QUOTE 2))
(IL:RPAQ EDITOR-NAME "SEdit")
(IL:RPAQQ IL:MICASPERPT 35.27778)
(IL:RPAQQ QUOTE-WRAPPER-LIST (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ 
COMMA-DOT IL:\\\,. FUNCTION FUNCTION))
(IL:CONSTANTS (EDITOR-NAME "SEdit") (IL:MICASPERPT 35.27778) (QUOTE-WRAPPER-LIST (QUOTE (QUOTE QUOTE 
IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ COMMA-DOT IL:\\\,. FUNCTION FUNCTION))))
(IL:PUTPROPS GET-PROMPT-WINDOW IL:MACRO ((CONTEXT) (IL:GETPROMPTWINDOW (IL:|fetch| DISPLAY-WINDOW 
IL:|of| CONTEXT))))
(IL:PUTPROPS EVAL-IN-PROCESS IL:MACRO (NIL (LET* ((PROCESS (IF (EQ (IL:PROCESSPROP (IL:THIS.PROCESS) (
QUOTE IL:NAME)) (QUOTE IL:MOUSE)) (IL:TTY.PROCESS) (IL:THIS.PROCESS))) (PROCFORM (IL:PROCESSPROP 
PROCESS (QUOTE IL:FORM)))) (COND ((EQ (CAR PROCFORM) (QUOTE SEDIT1)) (IL:|fetch| (EDIT-CONTEXT 
EVAL-IN-PROCESS) IL:|of| (CADADR PROCFORM))) (T PROCESS)))))
(IL:PUTPROPS LOOKUP-COMMAND IL:MACRO ((CHAR TABLE) (GETHASH CHAR TABLE)))
(IL:PUTPROPS QUOTE-WRAPPER IL:MACRO (TYPE (COND ((AND (IL:LISTP (CAR TYPE)) (EQ (CAAR TYPE) (QUOTE 
QUOTE))) (IF (IL:LISTP (CADAR TYPE)) (IL:KWOTE (IL:|for| W IL:|in| (CADAR TYPE) IL:|collect| (IL:LISTGET
 QUOTE-WRAPPER-LIST W))) (IL:KWOTE (IL:LISTGET QUOTE-WRAPPER-LIST (CADAR TYPE))))) (T (IL:BQUOTE (
IL:LISTGET QUOTE-WRAPPER-LIST (IL:\\\, (CAR TYPE))))))))
(IL:PUTPROPS QUOTE-WRAPPER-NAME IL:MACRO ((TYPE) (IL:LISTGET (IL:CONSTANT (IL:REVERSE 
QUOTE-WRAPPER-LIST)) TYPE)))
(IL:PUTPROPS REPAINT-NEW-LINE IL:MACRO (IL:OPENLAMBDA (LINE) (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y 
IL:|of| (CAR LINE)) (IL:|fetch| WINDOW-TOP IL:|of| CONTEXT)) (REPAINT CONTEXT (IL:|fetch| INDENT IL:|of|
 (CAR LINE)) (IL:|fetch| BASE-LINE-Y IL:|of| (CAR LINE)) (CDR LINE) (IL:|fetch| LINEAR-POINTER IL:|of|
 CONTEXT)) (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y IL:|of| (CAR LINE)) (IL:|fetch| WINDOW-BOTTOM 
IL:|of| CONTEXT)) (IL:|replace| BELOW? IL:|of| CONTEXT IL:|with| T)))))
(IL:PUTPROPS RESET-CONTROL-VARIABLES IL:MACRO ((CONTEXT) (WHEN (COMPILING-POST-KOTO) (IL:SETQ 
*PACKAGE* (IL:FETCH PACKAGE IL:OF CONTEXT)) (IL:SETQ *PRINT-ARRAY* NIL) (IL:SETQ *PRINT-BASE* (IL:FETCH
 PRINT-BASE IL:OF CONTEXT)) (IL:SETQ *PRINT-CASE* (IL:FETCH PRINT-CASE IL:OF CONTEXT)) (IL:SETQ 
*PRINT-ESCAPE* T) (IL:SETQ *PRINT-GENSYM* T) (IL:SETQ *PRINT-RADIX* NIL))))
(IL:PUTPROPS SELECT-COMMENT-INDENT IL:MACRO ((KEY LEVEL-1-INDENT LEVEL-2-INDENT LEVEL-3-INDENT) (
IL:SELECTQ KEY (1 LEVEL-1-INDENT) (2 LEVEL-2-INDENT) ((3 4 5) LEVEL-3-INDENT) (IL:SHOULDNT 
"unexpected comment level"))))
(IL:PUTPROPS SET-COMMENT-POSITIONS IL:MACRO ((COMMENT-START-X COMMENT-INDENT FORM-INDENT PAREN-WIDTH 
NODE CONTEXT) (COND ((IL:IGEQ (IL:IPLUS FORM-INDENT (IL:|fetch| COMMENT-WIDTH IL:|of| CONTEXT)) (
IL:|fetch| RIGHT-MARGIN IL:|of| NODE)) (IL:SETQ COMMENT-START-X (IL:IPLUS (IL:|fetch| START-X IL:|of| 
NODE) PAREN-WIDTH)) (IL:SETQ COMMENT-INDENT COMMENT-START-X)) (T (IL:SETQ COMMENT-START-X (
IL:IDIFFERENCE (IL:|fetch| RIGHT-MARGIN IL:|of| NODE) (IL:|fetch| COMMENT-WIDTH IL:|of| CONTEXT))) (
IL:SETQ COMMENT-INDENT (IL:IPLUS COMMENT-START-X (IL:|fetch| COMMENT-SEPARATION IL:|of| CONTEXT)))))))
(IL:PUTPROPS SET-SELECTION-NOWHERE IL:MACRO ((SELECTION) (IL:|replace| SELECT-NODE IL:|of| SELECTION 
IL:|with| NIL)))
(DEFMACRO CREATE-WEAK-LINK (DEST) (IL:BQUOTE (IL:|create| WEAK-LINK DESTINATION IL:_ (IL:\\\, DEST))))
(IL:PUTPROPS ADVANCE IL:MACRO ((WIDTH) (IL:|add| (IL:|fetch| CURRENT-X IL:|of| CONTEXT) WIDTH)))
(IL:PUTPROPS CLOSE-OPEN-NODE IL:MACRO ((CONTEXT) (WHEN (IL:|fetch| OPEN-NODE-CHANGED? IL:|of| CONTEXT)
 (CLOSE-NODE CONTEXT))))
(IL:PUTPROPS DEAD-NODE? IL:MACRO ((NODE) (EQ 0 (IL:|fetch| DEPTH IL:|of| NODE))))
(IL:PUTPROPS END-UNDO-BLOCK IL:MACRO (NIL (COLLECT-UNDO-BLOCK CONTEXT)))
(IL:PUTPROPS ESCAPE-CHAR IL:MACRO ((READ-TABLE) (IL:|fetch| (READTABLEP IL:ESCAPECHAR) IL:|of| (OR 
READ-TABLE *READTABLE*))))
(IL:PUTPROPS EQ-POINT-TYPE IL:MACRO ((POINT TYPE) (LET ((POINTNODE (IL:|fetch| POINT-NODE IL:|of| 
POINT))) (IF (IL:|type?| EDIT-SELECTION POINTNODE) (EQ (IL:|fetch| NODE-TYPE IL:|of| (IL:|fetch| 
SELECT-NODE IL:|of| POINTNODE)) TYPE) (EQ (IL:|fetch| NODE-TYPE IL:|of| POINTNODE) TYPE)))))
(IL:PUTPROPS NEXT-LINEAR IL:MACRO ((CONTEXT ITEM) (AND (IL:LISTP (IL:|fetch| LINEAR-POINTER IL:|of| 
CONTEXT)) (EQ (CAR (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) ITEM))))
(IL:PUTPROPS SET-LINEAR IL:MACRO (IL:OPENLAMBDA (CONTEXT NEW-LPTR) (IL:|replace| LINEAR-POINTER IL:|of|
 CONTEXT IL:|with| NEW-LPTR) (IF (IL:LISTP (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT)) (RPLACD (IL:|fetch|
 LINEAR-PREV IL:|of| CONTEXT) NEW-LPTR) (IL:|replace| LINEAR-FORM IL:|of| (IL:|fetch| LINEAR-PREV 
IL:|of| CONTEXT) IL:|with| NEW-LPTR))))
(IL:PUTPROPS START-UNDO-BLOCK IL:MACRO (NIL (IL:|push| (IL:|fetch| UNDO-LIST IL:|of| CONTEXT) NIL)))
(IL:PUTPROPS STEP-LINEAR IL:MACRO ((CONTEXT) (IL:|replace| LINEAR-POINTER IL:|of| CONTEXT IL:|with| (
CDR (IL:|replace| LINEAR-PREV IL:|of| CONTEXT IL:|with| (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT))))
))
(IL:PUTPROPS SUBNODE IL:MACRO (X (IF (EQ (CAR X) 1) (LIST (QUOTE CADR) (LIST (QUOTE IL:FETCH) (QUOTE 
SUB-NODES) (CADR X))) (LIST (QUOTE CADR) (LIST (QUOTE IL:NTH) (LIST (QUOTE IL:FETCH) (QUOTE SUB-NODES)
 (CADR X)) (CAR X))))))
(IL:PUTPROPS UNDO-BY IL:MACRO (INFO (LIST (QUOTE IL:PUSH) (QUOTE (IL:|fetch| UNDO-LIST IL:|of| CONTEXT
)) (LIST* (QUOTE LIST) (IL:KWOTE (CAR INFO)) (CDR INFO)))))
(IL:PUTPROPS ZAP-CLISP-TRANSLATION IL:MACRO ((X) (AND IL:CLISPARRAY (IL:PUTHASH X NIL IL:CLISPARRAY)))
)
(IL:PUTPROPS SMASH-USING IL:MACRO (X (IL:|bind| (SRC IL:_ (IF (IL:ATOM (CADDR X)) (CADDR X) (QUOTE 
$$SOURCE))) DEST (DESCR IL:_ (IL:GETDESCRIPTORS (CAR X))) IL:|first| (IL:SETQ DEST (LIST (QUOTE 
IL:REPLACEFIELDVAL) (LIST (QUOTE QUOTE) (CAR DESCR)) (CADR X) (LIST (QUOTE IL:FETCHFIELD) (LIST (QUOTE
 QUOTE) (CAR DESCR)) SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|while| DESCR IL:|do| (IL:SETQ DEST (LIST (
QUOTE IL:FREPLACEFIELDVAL) (LIST (QUOTE QUOTE) (CAR DESCR)) DEST (LIST (QUOTE IL:FETCHFIELD) (LIST (
QUOTE QUOTE) (CAR DESCR)) SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|finally| (WHEN (NOT (IL:ATOM (CADDR X
))) (IL:SETQ DEST (LIST (QUOTE LET) (LIST (LIST (QUOTE $$SOURCE) (CADDR X))) DEST))) (RETURN DEST))))
(IL:PUTPROPS IL:HALF IL:MACRO ((IL:X) (IL:LRSH IL:X 1)))
(DEFPARAMETER *IL-CL-CONFLICTS* (QUOTE (IL:*PRINT-STRUCTURE* IL:* IL:APPEND IL:APPLY IL:ASSOC IL:ATOM 
IL:BLOCK IL:CHARACTER IL:EQUAL IL:ERROR IL:FLOATP IL:FORMAT IL:FUNCTION IL:GETHASH IL:IF IL:LAMBDA 
IL:LENGTH IL:LISTP IL:MAPCAR IL:NTH IL:NUMBER IL:NUMBERP IL:PRIN1 IL:READ IL:REVERSE IL:SETQ IL:SPACE 
IL:STRINGP IL:TERPRI)))
(DEFPARAMETER *IL-IMPORTS* (QUOTE (IL:\" IL:$$ITERATE IL:$$LST1 IL:$$OUT IL:\( IL:*DISPLAY-EDITOR* IL:\,
 IL:\. IL:.P2 IL:/DECLAREDATATYPE IL:\; IL:|;;| IL:|;;;| IL:? IL:ACCESSFNS IL:ADD.PROCESS IL:ADD1 
IL:ADDSPELL IL:ADDSPELLFLG IL:ADDTOVAR IL:ALIST IL:ALISTS IL:ALLOCSTRING IL:APPLY* IL:ASCENT IL:ATM 
IL:ATTACHWINDOW IL:AWAIT.EVENT IL:BASE IL:BITBLT IL:BITMAPHEIGHT IL:BITMAPS IL:BITMAPWIDTH IL:BITS 
IL:BKSYSBUF IL:BLACKSHADE IL:BLTSHADE IL:BOLD IL:BOLDFONT IL:BOTTOM IL:BOX IL:BQUOTE IL:BS 
IL:BUTTONEVENTFN IL:BUTTONS IL:C IL:CASEINSENSITIVE IL:CCODEP IL:CHANGENAME IL:CHANGEOFFSETFLG 
IL:CHARCODE IL:CHARDELETE IL:CHARWIDTH IL:CHCON1 IL:CLEARBUF IL:CLEARW IL:CLISP\: IL:CLISPARRAY 
IL:CLISPFONT IL:CLISPTRAN IL:CLISPWORD IL:CLOCK IL:CLOSEFN IL:CLOSEW IL:COLUMN IL:COLUMNSPACE IL:COMMA
 IL:COMMENTFLG IL:COMMENTFONT IL:COMS IL:COMTAIL IL:CONCAT IL:CONCATLIST IL:CONSTANT IL:CONSTANTS 
IL:CONTROL IL:COPY IL:COPYALL IL:COPYRIGHT IL:COPYTERMTABLE IL:CR IL:CREATE IL:CREATE.EVENT 
IL:CREATE.MONITORLOCK IL:CREATEREGION IL:CREATEW IL:CTRL IL:CTRLV IL:CURSORCREATE IL:DATATYPE IL:DATE 
IL:DATUM IL:DECLARATIONS\: IL:DECLARE\: IL:DEFAULTFONT IL:DEFINEQ IL:DEL IL:DESCENT IL:DOCOPY 
IL:DOEVAL@COMPILE IL:DON\'T IL:DONTCOPY IL:DONTEVAL@LOAD IL:DONTWAIT IL:DOWINDOWCOM IL:DREMOVE 
IL:DREVERSE IL:DSP IL:DSPCLIPPINGREGION IL:DSPFONT IL:DSPLINEFEED IL:DSPRIGHTMARGIN IL:DSPXOFFSET 
IL:DSPXPOSITION IL:DSPYOFFSET IL:|Definition-for-EDITDATE| IL:|Definition-for-EDITE| 
IL:|Definition-for-EDITL| IL:E IL:ECHOMODE IL:EDIT IL:EDITCHANGES IL:EDITFERROR IL:EDITGETD 
IL:EDITMACROS IL:EDITMODE IL:ENVIRONMENT IL:EOL IL:EQMEMB IL:ERSETQ IL:ESC IL:ESCAPE IL:ESCAPECHAR 
IL:EVAL@COMPILE IL:EVALV IL:EXPANDFN IL:EXPANDREGIONFN IL:EXPANDW IL:EXPR IL:EXTENT IL:FCHARACTER 
IL:FETCHFIELD IL:FILECREATED IL:FILEMAP IL:FILEPKGFLG IL:FILES IL:FILESLOAD IL:FILETYPE IL:FIND.PROCESS
 IL:FIXEDITDATE IL:FIXP IL:FIXR IL:FLAG IL:FLAGBITS IL:FLASHWINDOW IL:FLENGTH IL:FM.CHANGELABEL 
IL:FM.CHANGESTATE IL:FM.DONTRESHAPE IL:FM.EDITITEM IL:FM.GETITEM IL:FM.ITEMPROP IL:FM.RESETMENU IL:FMEMB
 IL:FN IL:FNS IL:FONT IL:FONTCREATE IL:FONTPROP IL:FORM IL:FORWORD IL:FREEMENU IL:FREPLACEFIELDVAL 
IL:FULLXPOINTER IL:FUNCTIONS IL:GACHA IL:GETD IL:GETDEF IL:GETDESCRIPTORS IL:GETPROMPTWINDOW IL:GETPROP
 IL:GETPROPLIST IL:GETREGION IL:GETSYNTAX IL:GLOBALVARS IL:GROUP IL:HALF IL:HEIGHT IL:HEIGHTIFWINDOW 
IL:HELVETICA IL:ICON IL:ICONWINDOW IL:ID IL:IDIFFERENCE IL:IFWORD IL:IGEQ IL:IGREATERP IL:ILEQ IL:ILESSP
 IL:IMAX IL:IMIN IL:IMINUS IL:IN/SCROLL/BAR? IL:INNERESCQUOTE IL:INFOHOOK IL:INITRECORDS IL:INITVARS 
IL:INPUT IL:INSIDEP IL:INTERPRESS IL:INVERT IL:IPLUS IL:IQUOTIENT IL:ITALICFONT IL:ITEM IL:ITEMS 
IL:ITEMWIDTH IL:ITIMES IL:KEYACTION IL:KEYACTIONTABLE IL:KEYBOARDSTREAM IL:KEYDOWNP IL:KWOTE IL:L 
IL:L-CASE IL:LABEL IL:LASTMOUSESTATE IL:LASTMOUSEX IL:LASTMOUSEY IL:LCONC IL:LEFT IL:LEFTBRACKET 
IL:LEFTPAREN IL:LEQ IL:LINEDELETE IL:LINKS IL:LISTGET IL:LISTPUT IL:LITATOM IL:LOCALCLOSE IL:LOCALVARS
 IL:LRSH IL:MACRO IL:MACROS IL:MAINWINDOW IL:MAKEFILE-ENVIRONMENT IL:MARKASCHANGED IL:MARKASCHANGEDFNS
 IL:MASK IL:MAXWIDTH IL:MEMB IL:MENU IL:MENUFONT IL:MENUOFFSET IL:MESS IL:MICASPERPT IL:MIDDLE 
IL:MKSTRING IL:MOUSE IL:MOUSECONFIRM IL:MOUSESTATE IL:MOVE IL:MOVETO IL:MULTESCAPECHAR 
IL:MULTIPLE-ESCAPE IL:NAME IL:NCHARS IL:NCONC1 IL:NEQ IL:NILL IL:NLAMBDA IL:NLISTP IL:NLSETQ IL:NOBIND
 IL:NONE IL:NOTIFY.EVENT IL:NTHCHARCODE IL:OBTAIN.MONITORLOCK IL:OFFST IL:OPENLAMBDA IL:OPENSTRINGSTREAM
 IL:OPENWP IL:P IL:PACKAGEDELIM IL:PAINT IL:POINTER IL:PRETTYCOMPRINT IL:PRIN2 IL:PROCESS 
IL:PROCESS.APPLY IL:PROCESS.EVAL IL:PROCESS.EVALV IL:PROCESSP IL:PROCESSPROP IL:PROCTYPEAHEAD 
IL:PROMPTFORWORD IL:PROMPTWINDOW IL:PROP IL:PROPLST IL:PROPS IL:PUTD IL:PUTDEF IL:PUTHASH IL:PUTPROP 
IL:PUTPROPS IL:QUOTIENT IL:READCODE IL:READP IL:READSA IL:RECORD IL:RECORDS IL:RECORDTRAN IL:REDISPLAYW
 IL:REGION IL:REJECTMAINCOMS IL:RELEASE.MONITORLOCK IL:RELMOVETO IL:REPAINTFN IL:REPLACEFIELDVAL 
IL:REPOSITIONATTACHEDWINDOWS IL:RESETLST IL:RESETSAVE IL:RESETVAR IL:RESHAPEFN IL:RESTARTABLE IL:RETFROM
 IL:RETYPE IL:RIGHT IL:RIGHTBRACKET IL:RIGHTBUTTONFN IL:RIGHTPAREN IL:ROWSPACE IL:RPAQ IL:RPAQ? IL:RPAQQ
 IL:RPLCHARCODE IL:RPLNODE2 IL:RPLSTRING IL:SCROLL.HANDLER IL:SCROLLBYREPAINTFN IL:SCROLLEXTENTUSE 
IL:SCROLLFN IL:SCROLLW IL:SELCHARQ IL:SELECTEDFN IL:SELECTQ IL:SEPRCHAR IL:SETFS IL:SETINTERRUPT 
IL:SETPROPLIST IL:SETSYNTAX IL:SETTERMTABLE IL:SHAPEW IL:SHIFT IL:SHIFTDOWNP IL:SHOULDNT IL:SHRINKFN 
IL:SMALLP IL:SMARTARGLIST IL:SP IL:SPECVARS IL:SPELLFILE IL:STATE IL:STKPOS IL:STREQUAL IL:STRINGDELIM
 IL:STRINGWIDTH IL:STRPOS IL:SUB1 IL:SUBSTRING IL:SYSRECORDS IL:SYSTEMRECLST IL:TAB IL:TABLE IL:TAIL 
IL:TCONC IL:TEDIT.INSERT IL:TEDIT.PARALOOKS IL:THIS.PROCESS IL:TIMES IL:TITLE IL:TITLEDICON 
IL:TITLEDICONW IL:TITLEREG IL:TOP IL:TOTOPW IL:TTY.PROCESS IL:TTY.PROCESSP IL:TTY/EDITDATE IL:TTY/EDITE
 IL:TTY/EDITL IL:TTY\: IL:TTYDISPLAYSTREAM IL:TTYEXITFN IL:TYPENAME IL:U-CASE IL:UNTILMOUSESTATE IL:UP
 IL:USEDFREE IL:VARIABLES IL:VARS IL:VARTYPE IL:WAIT.FOR.TTY IL:WHITESHADE IL:WIDTH IL:WINDOW 
IL:WINDOWADDPROP IL:WINDOWENTRYFN IL:WINDOWPROP IL:WINDOWREGION IL:WITH.MONITOR IL:WORD IL:WORDDELETE 
IL:WXOFFSET IL:WYOFFSET IL:X IL:Y IL:[ IL:\\\, IL:\\\,. IL:\\\,@ IL:\\ADDBASE IL:\\BACKGROUND IL:\\BLT
 IL:\\BLTCHAR IL:\\CARET.CREATE IL:\\CARET.DOWN IL:\\CARET.FLASH? IL:\\DEFAULTKEYACTION IL:\\DTEST 
IL:\\GETBASE IL:\\GETSYSBUF IL:\\KEYBOARD.STREAM IL:\\LINEBUF.OFD IL:\\PUTBASE IL:\\SAVEVMBACKGROUND 
IL:\\SYNCODE IL:] IL:^ IL:_ IL:ADD IL:ALWAYS IL:AS IL:BIND IL:BY IL:CHANGE IL:|changes| IL:COLLECT 
IL:COUNT IL:CREATE IL:|date:| IL:DO IL:EACHTIME IL:ELSE IL:ELSEIF IL:FETCH IL:FFETCH IL:FINALLY IL:FIRST
 IL:FOR IL:FREPLACE IL:FROM WHEN IL:IN IL:INSTRING IL:JOIN IL:LARGEST IL:NEVER IL:OF IL:OLD IL:ON 
IL:OUTOF IL:POP IL:|previous| IL:|printout| IL:PUSH IL:PUSHNEW IL:REPEATUNTIL IL:REPEATWHILE IL:REPLACE
 IL:SMALLEST IL:SUM IL:THEN IL:THEREIS IL:TO IL:|to:| IL:TYPE? IL:UNLESS IL:UNTIL IL:USING IL:WHEN 
IL:WHERE IL:WHILE IL:WITH IL:{ IL:})))
(IL:|printout| T T "EXPORTS.ALL must be loaded to compile SEdit" T)
(IL:|printout| T T "SEDIT-ACCESS must be REMADE NEW if you change a record" T)
(IL:PUTPROPS IL:SEDIT-DECLS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990 1993))
NIL