home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / config.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  2.4 KB  |  69 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 32 00 17 19 01)
  6.    #.#'FMAKUNBOUND
  7.    (SHORT-SITE-NAME LONG-SITE-NAME EDITOR-NAME EDIT-FILE EDITOR-TEMPFILE)
  8.   )
  9. #Y(#:TOP-LEVEL-FORM-3
  10.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  11.    SHORT-SITE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
  12.    #Y(SHORT-SITE-NAME #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) "Karlsruhe")
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-4
  15.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  16.    LONG-SITE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
  17.    #Y(LONG-SITE-NAME #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01)
  18.       "Augartenstraâ–€e 40, D-76137 Karlsruhe, Deutschland"
  19.   )  )
  20. #Y(#:TOP-LEVEL-FORM-5
  21.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 DA 30 56 C4 19 01)
  22.    (SPECIAL *EDITOR*) *EDITOR* "vi"
  23.   )
  24. #Y(#:TOP-LEVEL-FORM-6
  25.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  26.    EDITOR-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
  27.    #Y(EDITOR-NAME
  28.       #21Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 1D 04 0E 02 19 01 19 01)
  29.       "EDITOR" SYSTEM::GETENV *EDITOR*
  30.   )  )
  31. #Y(#:TOP-LEVEL-FORM-7
  32.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EDIT-FILE
  33.    SYSTEM::REMOVE-OLD-DEFINITIONS
  34.    #Y(EDIT-FILE
  35.       #32Y(00 00 00 00 01 00 00 00 00 02 AB D8 37 02 D9 30 FC 62 DA 2D 03 14 AE
  36.            70 F8 6D 04 04 2E 05 19 02
  37.           )
  38.       :PROBE :CREATE
  39.       #Y(EDIT-FILE-1
  40.          #25Y(00 00 00 00 03 00 00 00 01 19 AD AF 30 89 D8 AF 30 8D AC AF 30 89
  41.               9C 19 05
  42.              )
  43.          #\Space
  44.         )
  45.       EDITOR-NAME FORMAT SHELL
  46.   )  )
  47. #Y(#:TOP-LEVEL-FORM-8
  48.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  49.    EDITOR-TEMPFILE SYSTEM::REMOVE-OLD-DEFINITIONS
  50.    #Y(EDITOR-TEMPFILE
  51.       #20Y(00 00 00 00 00 00 00 00 00 01 D8 2D 01 14 37 02 30 F4 19 01)
  52.       "lisptemp.lsp" USER-HOMEDIR-PATHNAME
  53.   )  )
  54. #Y(#:TOP-LEVEL-FORM-9
  55.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 DA 30 56 C4 19 01)
  56.    (SPECIAL *LOAD-PATHS*) *LOAD-PATHS*
  57.    (#S(PATHNAME :HOST NIL :DEVICE NIL :DIRECTORY (:RELATIVE ".") :NAME NIL
  58.         :TYPE NIL :VERSION NIL
  59.       )
  60.      #S(PATHNAME :HOST NIL :DEVICE NIL
  61.         :DIRECTORY (:RELATIVE "." :WILD-INFERIORS) :NAME NIL :TYPE NIL
  62.         :VERSION NIL
  63.        )
  64.      "~/**/"
  65.   ))
  66. #Y(#:TOP-LEVEL-FORM-10 #15Y(00 00 00 00 00 00 00 00 00 01 02 0F 00 19 01)
  67.    *PRINT-PRETTY*
  68.   )
  69.