home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / CONTRIB / GNU-COMM / GCL-1.0 / 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.