/[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.1.1.31 by ram, Wed Aug 25 02:35:28 1993 UTC revision 1.12 by gerd, Fri Jul 18 11:15:19 2003 UTC
# Line 1  Line 1 
1    ;;; -*- Package: USER -*-
2    ;;;
3    ;;; **********************************************************************
4    ;;;
5    (ext:file-comment
6      "$Header$")
7    ;;;
8    ;;; **********************************************************************
9  ;;;  ;;;
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 29  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 41  Line 52 
52  ;;;  ;;;
53  (when (probe-file (make-pathname :defaults "target:clx/clx-library"  (when (probe-file (make-pathname :defaults "target:clx/clx-library"
54                                   :type (c:backend-fasl-file-type c:*backend*)))                                   :type (c:backend-fasl-file-type c:*backend*)))
55    (load "target:clx/clx-library"))    #+(and (not pcl) (not no-pcl-clx))
56      (load "target:pcl/pclload")
57      (load "target:clx/clx-library")
58      #+gencgc (gc :full t)
59      #-gencgc (ext:purify))
60    
61  (with-compiler-log-file  (with-compiler-log-file
62      ("target:compile-hemlock.log"      ("target:compile-hemlock.log"
# Line 167  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 184  Line 200 
200    
201  ) ;WITH-COMPILER-LOG-FILE  ) ;WITH-COMPILER-LOG-FILE
202    
203    (unless (probe-file "target:hemlock/spell-dictionary.bin")
204      (load "target:hemlock/spell-rt")
205      (load "target:hemlock/spell-corr")
206      (load "target:hemlock/spell-aug")
207      (load "target:hemlock/spell-build")
208      (funcall (fdefinition (intern "BUILD-DICTIONARY" "SPELL"))
209               "target:hemlock/spell-dictionary.text"
210               "target:hemlock/spell-dictionary.bin"))
211    
212  (cat-if-anything-changed  (cat-if-anything-changed
213   "target:hemlock/hemlock-library"   "target:hemlock/hemlock-library"
# Line 244  Line 268 
268   "target:hemlock/ts-buf"   "target:hemlock/ts-buf"
269   "target:hemlock/ts-stream"   "target:hemlock/ts-stream"
270   "target:hemlock/eval-server"   "target:hemlock/eval-server"
  "target:hemlock/dylan"  
271   "target:hemlock/lispbuf"   "target:hemlock/lispbuf"
272   "target:hemlock/lispeval"   "target:hemlock/lispeval"
273   "target:hemlock/spell-rt"   "target:hemlock/spell-rt"
# Line 258  Line 281 
281   "target:hemlock/defsyn"   "target:hemlock/defsyn"
282   "target:hemlock/scribe"   "target:hemlock/scribe"
283   "target:hemlock/pascal"   "target:hemlock/pascal"
284     "target:hemlock/dylan"
285   "target:hemlock/edit-defs"   "target:hemlock/edit-defs"
286   "target:hemlock/auto-save"   "target:hemlock/auto-save"
287   "target:hemlock/register"   "target:hemlock/register"
# Line 274  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.1.1.31  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5