Skip to content
Snippets Groups Projects
Commit 2cc2b4d5 authored by wlott's avatar wlott
Browse files

Changed some messages to be less confusing.

parent 1e302728
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.1 1992/05/29 14:08:34 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.2 1993/01/14 02:23:50 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -25,11 +25,13 @@ ...@@ -25,11 +25,13 @@
(fresh-line) (fresh-line)
(format t " 1: specify result file (currently ~S)~%" (format t " 1: specify result file (currently ~S)~%"
(namestring output-file)) (namestring output-file))
(format t " 2: ~:[enable~;disable~] loading of the CLX X library.~%" (format t " 2: toggle loading of the CLX X library, currently ~
~:[dis~;en~]abled.~%"
load-clx) load-clx)
(format t " 3: ~:[enable~;disable~] loading the Hemlock editor~ (format t " 3: toggle loading the Hemlock editor, currently ~
~:[ (forces loading of CLX.)~;.~]~%" ~:[dis~;en~]abled.~
load-hemlock load-hemlock) ~:[~% (would force loading of CLX.)~;~]~%"
load-hemlock load-clx)
(format t " 4: specify some site-specific file to load.~@ (format t " 4: specify some site-specific file to load.~@
~@[ Current files:~%~{ ~S~%~}~]" ~@[ Current files:~%~{ ~S~%~}~]"
(mapcar #'namestring other)) (mapcar #'namestring other))
......
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