Skip to content
Snippets Groups Projects
Commit 2d50bf26 authored by pmai's avatar pmai
Browse files

Special case the processing of the -quiet command-line flag in order to

ensure that its effects kick in early enough during startup, thus silencing
loading of siteinit, siteinit-loaded files, etc.  Reported by JBThiel
against the OS X port.
parent 82e0778a
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/commandline.lisp,v 1.13 2003/01/29 19:47:47 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/commandline.lisp,v 1.14 2004/06/20 17:00:36 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -191,17 +191,6 @@
(load (cmd-switch-arg switch)))
(defswitch "load" #'load-switch-demon)
(defun quiet-switch-demon (switch)
(declare (ignore 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))
......@@ -215,3 +204,4 @@
(defswitch "batch")
(defswitch "dynamic-space-size")
(defswitch "lib")
(defswitch "quiet")
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.51 2003/06/18 09:23:10 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.52 2004/06/20 17:00:36 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -198,6 +198,14 @@
:test #'(lambda (x y)
(declare (simple-string x y))
(string-equal x y)))))
(when (and process-command-line (find-switch "quiet"))
(setq *load-verbose* nil
*compile-verbose* nil
*compile-print* nil
*compile-progress* nil
*require-verbose* nil
*gc-verbose* nil
*herald-items* nil))
(when (and site-init
(not (and process-command-line
(find-switch "nositeinit"))))
......
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