From c395ca601cbcb70841c7bb3a1be550ce37f75a46 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 6 Feb 1992 01:09:12 +0000 Subject: [PATCH] Process the command line before printing the herald so that we can eval some form and quit without printing anything. --- code/save.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index 29a33875c..792b9d697 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.10 1991/09/03 20:44:46 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.11 1992/02/06 01:09:12 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -179,11 +179,11 @@ (load "home:.cmucl-init" :if-does-not-exist nil)))))) (when enable-gc (gc-on)) - (when print-herald - (print-herald)) (when process-command-line (ext::invoke-switch-demons *command-line-switches* *command-switch-demons*)) + (when print-herald + (print-herald)) (funcall init-function))) -- GitLab