Skip to content
Snippets Groups Projects
Commit 3ea7e57c authored by dtc's avatar dtc
Browse files

Add the configuration option of loading the Gray Stream library.

parent 96c37cd8
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.4 1993/07/26 15:16:03 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.5 2000/06/06 10:01:24 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -18,6 +18,7 @@
(block abort
(let ((output-file #p"library:lisp.core")
(load-gray-streams t)
(load-clm t)
(load-clx t)
(load-hemlock t)
......@@ -26,22 +27,25 @@
(fresh-line)
(format t " 1: specify result file (currently ~S)~%"
(namestring output-file))
(format t " 2: toggle loading of the CLX X library, currently ~
(format t " 2: toggle loading of the Gray Stream library, currently ~
~:[dis~;en~]abled.~%"
load-gray-streams)
(format t " 3: toggle loading of the CLX X library, currently ~
~:[dis~;en~]abled.~%"
load-clx)
(format t " 3: toggle loading of Motif and the graphical debugger, ~
(format t " 4: toggle loading of Motif and the graphical debugger, ~
currently ~:[dis~;en~]abled.~
~:[~% (would force loading of CLX.)~;~]~%"
load-clm load-clx)
(format t " 4: toggle loading the Hemlock editor, currently ~
(format t " 5: toggle loading the Hemlock editor, currently ~
~:[dis~;en~]abled.~
~:[~% (would force loading of CLX.)~;~]~%"
load-hemlock load-clx)
(format t " 5: specify some site-specific file to load.~@
(format t " 6: specify some site-specific file to load.~@
~@[ Current files:~%~{ ~S~%~}~]"
(mapcar #'namestring other))
(format t " 6: configure according to current options.~%")
(format t " 7: abort the configuration process.~%")
(format t " 7: configure according to current options.~%")
(format t " 8: abort the configuration process.~%")
(format t "~%Option number: ")
(force-output)
(flet ((file-prompt (prompt)
......@@ -53,25 +57,29 @@
(1
(setq output-file (file-prompt "Result core file name: ")))
(2
(setq load-gray-streams (not load-gray-streams)))
(3
(unless (setq load-clx (not load-clx))
(setq load-hemlock nil)))
(3
(4
(when (setq load-clm (not load-clm))
(setq load-clx t)))
(4
(5
(when (setq load-hemlock (not load-hemlock))
(setq load-clx t)))
(5
(6
(setq other
(append other
(list (file-prompt "File(s) to load ~
(can have wildcards): ")))))
(6 (return))
(7
(7 (return))
(8
(format t "~%Aborted.~%")
(return-from abort))))))
(gc-off)
(when load-gray-streams
(load "library:subsystems/gray-streams-library"))
(when load-clx
(setf *features* (delete :no-clx *features* :test #'eq))
(load "library:subsystems/clx-library"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment