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

Diff of /src/tools/config.lisp

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

revision 1.5 by dtc, Tue Jun 6 10:01:24 2000 UTC revision 1.5.2.1 by rtoy, Sat May 22 12:13:45 2004 UTC
# Line 13  Line 13 
13  ;;;  ;;;
14  ;;; Utility to load subsystems and save a new core.  ;;; Utility to load subsystems and save a new core.
15  ;;;  ;;;
16  (in-package "USER")  (in-package "CL-USER")
17    
18    
19  (block abort  (block abort
# Line 81  Line 81 
81      (when load-gray-streams      (when load-gray-streams
82        (load "library:subsystems/gray-streams-library"))        (load "library:subsystems/gray-streams-library"))
83      (when load-clx      (when load-clx
       (setf *features* (delete :no-clx *features* :test #'eq))  
84        (load "library:subsystems/clx-library"))        (load "library:subsystems/clx-library"))
85      (when load-clm      (when load-clm
       (setf *features* (delete :no-clm *features* :test #'eq))  
86        (load "library:subsystems/clm-library"))        (load "library:subsystems/clm-library"))
87      (when load-hemlock      (when load-hemlock
       (setf *features* (delete :no-hemlock *features* :test #'eq))  
88        (load "library:subsystems/hemlock-library"))        (load "library:subsystems/hemlock-library"))
89      (dolist (f other) (load f))      (dolist (f other) (load f))
90    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.2.1

  ViewVC Help
Powered by ViewVC 1.1.5