/[cmucl]/src/tools/hemcom.lisp
ViewVC logotype

Diff of /src/tools/hemcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by dtc, Sat Jan 9 11:05:20 1999 UTC revision 1.9.2.1 by rtoy, Sat May 22 12:13:45 2004 UTC
# Line 10  Line 10 
10  ;;; This file compiles all of Hemlock.  ;;; This file compiles all of Hemlock.
11  ;;;  ;;;
12    
13    (when (boundp 'conditions::*make-condition-accessor-methods*)
14      (setq conditions::*make-condition-accessor-methods* t))
15    
16  #+bootstrap  #+bootstrap
17  (progn  (progn
18    (when (ext:get-command-line-switch "slave")    (when (ext:get-command-line-switch "slave")
# Line 37  Line 40 
40  (export 'c::compile-from-stream (find-package "C"))  (export 'c::compile-from-stream (find-package "C"))
41    
42    
43  (in-package "USER")  (in-package "CL-USER")
44    
45  (defvar *byte-compile* #+small t #-small :maybe)  (defvar *byte-compile* #+small t #-small :maybe)
46    
# Line 179  Line 182 
182  (comf "target:hemlock/debug" :byte-compile t)  (comf "target:hemlock/debug" :byte-compile t)
183  (comf "target:hemlock/netnews" :byte-compile t)  (comf "target:hemlock/netnews" :byte-compile t)
184  (comf "target:hemlock/rcs" :byte-compile t)  (comf "target:hemlock/rcs" :byte-compile t)
185    (comf "target:hemlock/dabbrev" :byte-compile t)
186    
187  ) ;WITH-COMPILATION-UNIT for commands  ) ;WITH-COMPILATION-UNIT for commands
188    
# Line 294  Line 298 
298   "target:hemlock/debug"   "target:hemlock/debug"
299   "target:hemlock/netnews"   "target:hemlock/netnews"
300   "target:hemlock/rcs"   "target:hemlock/rcs"
301     "target:hemlock/dabbrev"
302   "target:hemlock/bindings")   "target:hemlock/bindings")

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.2.1

  ViewVC Help
Powered by ViewVC 1.1.5