(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "USER")

(IL:FILECREATED "25-Jan-91 17:04:34" IL:|{DSK}<users>woz>SOURCES>SEDIT.;2|
 2065   

      IL:|changes| IL:|to:|  (IL:VARS IL:SEDITCOMS)

      IL:|previous| IL:|date:| " 9-Jan-91 12:39:27" IL:|{DSK}<users>woz>SOURCES>SEDIT.;2|)


; Copyright (c) 1987, 1988, 1990, 1991 by Venue & Xerox Corporation.  All rights reserved.

(IL:PRETTYCOMPRINT IL:SEDITCOMS)

(IL:RPAQQ IL:SEDITCOMS

          ((IL:PROP IL:FILETYPE IL:SEDIT)
           (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:SEDIT)
           (IL:DECLARE\: IL:DOEVAL@LOAD IL:DOEVAL@COMPILE IL:DOCOPY (IL:P (XCL:DEFPACKAGE
                                                                           "SEDIT"
                                                                           (:USE "LISP" "XCL"))))
           (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY
                  (IL:FILES IL:SEDIT-ACCESS IL:SEDIT-ATOMIC IL:SEDIT-BASE IL:SEDIT-COMMANDS 
                         IL:SEDIT-COMMENTS IL:SEDIT-EXPORTS IL:SEDIT-INDENT IL:SEDIT-LIST-FORMATS 
                         IL:SEDIT-LINEAR IL:SEDIT-LISTS IL:SEDIT-TERMINAL IL:SEDIT-TOPLEVEL 
                         IL:SEDIT-WINDOW)
                  (IL:P (FUNCALL (INTERN "INITIALIZE" "SEDIT"))
                        (IL:EDITMODE (INTERN "SEDIT" "SEDIT"))))))

(IL:PUTPROPS IL:SEDIT
 IL:FILETYPE
 :COMPILE-FILE)

(IL:PUTPROPS IL:SEDIT
 IL:MAKEFILE-ENVIRONMENT
 (:READTABLE "XCL" :PACKAGE "USER"))
(IL:DECLARE\: IL:DOEVAL@LOAD IL:DOEVAL@COMPILE IL:DOCOPY 

(XCL:DEFPACKAGE "SEDIT" (:USE "LISP" "XCL"))
)
(IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY 

(IL:FILESLOAD IL:SEDIT-ACCESS IL:SEDIT-ATOMIC IL:SEDIT-BASE IL:SEDIT-COMMANDS IL:SEDIT-COMMENTS 
       IL:SEDIT-EXPORTS IL:SEDIT-INDENT IL:SEDIT-LIST-FORMATS IL:SEDIT-LINEAR IL:SEDIT-LISTS 
       IL:SEDIT-TERMINAL IL:SEDIT-TOPLEVEL IL:SEDIT-WINDOW)


(FUNCALL (INTERN "INITIALIZE" "SEDIT"))

(IL:EDITMODE (INTERN "SEDIT" "SEDIT"))
)
(IL:PUTPROPS IL:SEDIT IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990 1991))
(IL:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP