Commit c13eec74 authored by dtc's avatar dtc
Browse files

Add a -quiet command line switch which clears the various -verbose*

flags and the *herald-items*. From Eric Marsden.
parent a49bcee6
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/commandline.lisp,v 1.9 2000/10/24 13:31:37 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/commandline.lisp,v 1.10 2000/11/06 17:13:27 dtc Exp $")
;;; **********************************************************************
......@@ -191,6 +191,16 @@
(load (cmd-switch-arg switch)))
(defswitch "load" #'load-switch-demon)
(defun quiet-switch-demon (switch)
(setq *load-verbose* nil
*compile-verbose* nil
*compile-print* nil
*compile-progress* nil
*require-verbose* nil
*gc-verbose* nil
*herald-items* nil))
(defswitch "quiet" #'quiet-switch-demon)
(defun cmd-switch-arg (switch)
(or (cmd-switch-value switch)
(car (cmd-switch-words switch))
......@@ -1098,6 +1098,11 @@ cmucl(1). Currently Lisp accepts the following switches:
\item[\code{-batch}] specifies batch mode, where all input is
directed from standard-input. An error code of 0 is returned upon
encountering an EOF and 1 otherwise.
\item[\code{-quiet}] enters quiet mode. This implies setting the
variables \code{*load-verbose*}, \code{*compile-verbose*},
\code{*compile-print*}, \code{*compile-progress*},
\code{*require-verbose*} and \code{*gc-verbose*} to NIL, and
disables the printing of the startup banner.
\item[\code{-core}] requires an argument that should be the name of a
core file. Rather than using the default core file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment