/[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.3 by wlott, Tue Jun 8 13:04:40 1993 UTC revision 1.4 by ram, Mon Jul 26 15:16:03 1993 UTC
# Line 18  Line 18 
18    
19  (block abort  (block abort
20    (let ((output-file #p"library:lisp.core")    (let ((output-file #p"library:lisp.core")
21            (load-clm t)
22          (load-clx t)          (load-clx t)
23          (load-hemlock t)          (load-hemlock t)
24          (other ()))          (other ()))
# Line 28  Line 29 
29        (format t " 2: toggle loading of the CLX X library, currently ~        (format t " 2: toggle loading of the CLX X library, currently ~
30                   ~:[dis~;en~]abled.~%"                   ~:[dis~;en~]abled.~%"
31                load-clx)                load-clx)
32        (format t " 3: toggle loading the Hemlock editor, currently ~        (format t " 3: toggle loading of Motif and the graphical debugger, ~
33                     currently ~:[dis~;en~]abled.~
34                     ~:[~%    (would force loading of CLX.)~;~]~%"
35                  load-clm load-clx)
36          (format t " 4: toggle loading the Hemlock editor, currently ~
37                   ~:[dis~;en~]abled.~                   ~:[dis~;en~]abled.~
38                   ~:[~%    (would force loading of CLX.)~;~]~%"                   ~:[~%    (would force loading of CLX.)~;~]~%"
39                load-hemlock load-clx)                load-hemlock load-clx)
40        (format t " 4: specify some site-specific file to load.~@        (format t " 5: specify some site-specific file to load.~@
41                   ~@[    Current files:~%~{      ~S~%~}~]"                   ~@[    Current files:~%~{      ~S~%~}~]"
42                (mapcar #'namestring other))                (mapcar #'namestring other))
43        (format t " 5: configure according to current options.~%")        (format t " 6: configure according to current options.~%")
44        (format t " 6: abort the configuration process.~%")        (format t " 7: abort the configuration process.~%")
45        (format t "~%Option number: ")        (format t "~%Option number: ")
46        (force-output)        (force-output)
47        (flet ((file-prompt (prompt)        (flet ((file-prompt (prompt)
# Line 51  Line 56 
56               (unless (setq load-clx (not load-clx))               (unless (setq load-clx (not load-clx))
57                 (setq load-hemlock nil)))                 (setq load-hemlock nil)))
58              (3              (3
59               (when (setq load-hemlock (not load-hemlock))               (when (setq load-clm (not load-clm))
60                 (setq load-clx t)))                 (setq load-clx t)))
61              (4              (4
62                 (when (setq load-hemlock (not load-hemlock))
63                   (setq load-clx t)))
64                (5
65               (setq other               (setq other
66                     (append other                     (append other
67                             (list (file-prompt "File(s) to load ~                             (list (file-prompt "File(s) to load ~
68                                                 (can have wildcards): ")))))                                                 (can have wildcards): ")))))
69              (5 (return))              (6 (return))
70              (6              (7
71               (format t "~%Aborted.~%")               (format t "~%Aborted.~%")
72               (return-from abort))))))               (return-from abort))))))
73    
# Line 67  Line 75 
75      (when load-clx      (when load-clx
76        (setf *features* (delete :no-clx *features* :test #'eq))        (setf *features* (delete :no-clx *features* :test #'eq))
77        (load "library:subsystems/clx-library"))        (load "library:subsystems/clx-library"))
78        (when load-clm
79          (setf *features* (delete :no-clm *features* :test #'eq))
80          (load "library:subsystems/clm-library"))
81      (when load-hemlock      (when load-hemlock
82        (setf *features* (delete :no-hemlock *features* :test #'eq))        (setf *features* (delete :no-hemlock *features* :test #'eq))
83        (load "library:subsystems/hemlock-library"))        (load "library:subsystems/hemlock-library"))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5