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 / init.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1994-05-10  |  469 b   |  15 lines
  1.  
  2. (defun lcs1 (file)
  3.        (compile-file file
  4.                      :c-file t :h-file t :data-file t :ob-file t
  5.                      :system-p t))
  6.  
  7. (defun make-unix_top ()
  8.        (let ((*features* '(unix)))
  9.             (compile-file "top" :output-file "unix_top"
  10.                           :c-file t :h-file t :data-file t
  11.                           :ob-file nil :fasl-file nil
  12.                           :system-p t)))
  13.  
  14. (proclaim '(special si::*indent-formatted-output*))
  15.