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