/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by gerd, Wed Jun 18 09:23:10 2003 UTC revision 1.52 by pmai, Sun Jun 20 17:00:36 2004 UTC
# Line 198  Line 198 
198                                   :test #'(lambda (x y)                                   :test #'(lambda (x y)
199                                             (declare (simple-string x y))                                             (declare (simple-string x y))
200                                             (string-equal x y)))))                                             (string-equal x y)))))
201                   (when (and process-command-line (find-switch "quiet"))
202                     (setq *load-verbose* nil
203                           *compile-verbose* nil
204                           *compile-print* nil
205                           *compile-progress* nil
206                           *require-verbose* nil
207                           *gc-verbose* nil
208                           *herald-items* nil))
209                 (when (and site-init                 (when (and site-init
210                            (not (and process-command-line                            (not (and process-command-line
211                                      (find-switch "nositeinit"))))                                      (find-switch "nositeinit"))))

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

  ViewVC Help
Powered by ViewVC 1.1.5