(SYSTEM::VERSION '(19990501.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   "LISP"
  )
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 33 00 17 19 01)
   #.#'FMAKUNBOUND
   (SHORT-SITE-NAME LONG-SITE-NAME EDITOR-NAME EDIT-FILE EDITOR-TEMPFILE)
  )
#Y(#:TOP-LEVEL-FORM-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SHORT-SITE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(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" SYSTEM::GETENV "edit config.lsp"
  )  )
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   LONG-SITE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(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" SYSTEM::GETENV "edit config.lsp"
  )  )
#Y(#:TOP-LEVEL-FORM-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DC 31 51 C6 19 01)
   (SPECIAL *EDITOR*) *EDITOR* "vi"
  )
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   EDITOR-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(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" SYSTEM::GETENV *EDITOR*
  )  )
#Y(#:TOP-LEVEL-FORM-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) EDIT-FILE
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EDIT-FILE
      #33Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD 2D 05 04 63 DF 2E 06 14
           B0 71 F2 6E 04 07 2F 08 19 02
          )
      :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE OPEN
      #Y(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
        )
      EDITOR-NAME FORMAT SHELL
  )  )
#Y(#:TOP-LEVEL-FORM-8
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   EDITOR-TEMPFILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EDITOR-TEMPFILE
      #20Y(00 00 00 00 00 00 00 00 00 01 DA 2E 01 14 38 02 31 EE 19 01)
      "lisptemp.lsp" USER-HOMEDIR-PATHNAME
  )  )
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DC 31 51 C6 19 01)
   (SPECIAL *LOAD-PATHS*) *LOAD-PATHS*
   (#-CLISP #P"./"
     #+CLISP
     #S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE ".") :NAME NIL
        :TYPE NIL :VERSION NIL
       )
     "~/lisp/**/"
  ))
#Y(#:TOP-LEVEL-FORM-10 #15Y(00 00 00 00 00 00 00 00 00 01 02 0F 00 19 01)
   *PRINT-PRETTY*
  )
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (SPECIAL *CLHS-ROOT-DEFAULT*) *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 7F C5
        19 01
       )
   CLHS-ROOT SYSTEM::REMOVE-OLD-DEFINITIONS 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(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" SYSTEM::GETENV *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.harlequin.com/education/books/HyperSpec" *CLHS-ROOT-DEFAULT*
  )
