home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / cmpinit.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1994-05-10  |  340 b   |  12 lines
  1. (proclaim '(optimize (safety 2) (space 3)))
  2.  
  3. (setq compiler::*eval-when-defaults* '(compile eval load))
  4. (or (fboundp 'si::get-&environment) (load "defmacro.lsp"))
  5. ;(or (get 'si::s-data 'si::s-data)
  6. ;    (progn (load "../lsp/setf.lsp") (load "../lsp/defstruct.lsp")))
  7. (if (probe-file "sys-proclaim.lisp")(load "sys-proclaim.lisp"))
  8.  
  9.  
  10.  
  11. ;;;;;
  12.