(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "EXT" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 33 00 17 19 01)
   #.#'COMMON-LISP::FMAKUNBOUND
   (COMMON-LISP::SHORT-SITE-NAME COMMON-LISP::LONG-SITE-NAME))
#Y(#:TOP-LEVEL-FORM-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::SHORT-SITE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::SHORT-SITE-NAME
      #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 1E 03 C7 19 01 19 01)
      "ORGANIZATION" EXT::GETENV "edit config.lisp"))
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::LONG-SITE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::LONG-SITE-NAME
      #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 1E 03 C7 19 01 19 01)
      "ORGANIZATION" EXT::GETENV "edit config.lisp"))
#Y(#:TOP-LEVEL-FORM-5
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DC 31 51 DB DD DE 2D 03 05 C6
        19 01)
   (COMMON-LISP::SPECIAL CUSTOM::*EDITOR*) CUSTOM::*EDITOR* "vi"
   COMMON-LISP::VARIABLE "The name of the editor." SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   EXT::EDITOR-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::EDITOR-NAME
      #21Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 1E 04 0E 02 19 01 19 01)
      "EDITOR" EXT::GETENV CUSTOM::*EDITOR*))
#Y(#:TOP-LEVEL-FORM-7
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 80 C5
        19 01)
   EXT::EDIT-FILE SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "(edit-file file) edits a file." SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::EDIT-FILE
      #33Y(00 00 00 00 01 00 00 00 00 02 AD DA 38 05 C6 FA 31 F7 63 DC 2E 03 14
           B0 71 F3 6E 04 04 2F 05 19 02)
      :PROBE :CREATE
      #Y(EXT::EDIT-FILE-1
         #25Y(00 00 00 00 03 00 00 00 01 19 AF B1 31 83 DA B1 31 87 AE B1 31 83
              9E 19 05)
         #\Space)
      EXT::EDITOR-NAME COMMON-LISP::FORMAT EXT::SHELL))
#Y(#:TOP-LEVEL-FORM-8
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 80 C5
        19 01)
   EXT::EDITOR-TEMPFILE SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "The temporary file LISP creates for editing." SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::EDITOR-TEMPFILE
      #20Y(00 00 00 00 00 00 00 00 00 01 DA 2E 01 14 38 02 31 EF 19 01)
      "lisptemp.lisp" COMMON-LISP::USER-HOMEDIR-PATHNAME))
#Y(#:TOP-LEVEL-FORM-9
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DC 31 51 DB DD DE 2D 03 05 C6
        19 01)
   (COMMON-LISP::SPECIAL CUSTOM::*LOAD-PATHS*) CUSTOM::*LOAD-PATHS*
   (#-CLISP #P""
    #+CLISP
    #S(COMMON-LISP::PATHNAME :HOST COMMON-LISP::NIL :DEVICE COMMON-LISP::NIL
       :DIRECTORY (:RELATIVE) :NAME COMMON-LISP::NIL :TYPE COMMON-LISP::NIL
       :VERSION COMMON-LISP::NIL)
    "~/lisp/**/")
   COMMON-LISP::VARIABLE
   "The list of directories where programs are searched on LOAD etc."
   SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-10 #15Y(00 00 00 00 00 00 00 00 00 01 02 0F 00 19 01)
   COMMON-LISP::*PRINT-PRETTY*)
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL CUSTOM::*CLHS-ROOT-DEFAULT*)
   CUSTOM::*CLHS-ROOT-DEFAULT*)
#Y(#:TOP-LEVEL-FORM-12
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 80 C5
        19 01)
   EXT::CLHS-ROOT SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "This returns the root URL for the Common Lisp HyperSpec.
You can set the environment variable `CLHSROOT' or redefine this function
in ~/.clisprc.  On win32 you can also use the Registry."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::CLHS-ROOT
      #21Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 1E 04 0E 02 19 01 19 01)
      "CLHSROOT" EXT::GETENV CUSTOM::*CLHS-ROOT-DEFAULT*))
#Y(#:TOP-LEVEL-FORM-13 #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   "http://www.lisp.org/HyperSpec/" CUSTOM::*CLHS-ROOT-DEFAULT*)
