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

Diff of /src/code/commandline.lisp

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

revision 1.6.2.1 by dtc, Thu Aug 24 19:55:53 2000 UTC revision 1.6.2.2 by dtc, Mon Oct 16 17:32:21 2000 UTC
# Line 191  Line 191 
191    (load (cmd-switch-arg switch)))    (load (cmd-switch-arg switch)))
192  (defswitch "load" #'load-switch-demon)  (defswitch "load" #'load-switch-demon)
193    
 (defun batch-switch-demon (switch)  
   (setq *batch-mode* t)  
   (setf (cmd-switch-value switch) t))  
 (defswitch "batch" #'batch-switch-demon)  
   
194  (defun cmd-switch-arg (switch)  (defun cmd-switch-arg (switch)
195    (or (cmd-switch-value switch)    (or (cmd-switch-value switch)
196        (car (cmd-switch-words switch))        (car (cmd-switch-words switch))
# Line 205  Line 200 
200  (defswitch "init")  (defswitch "init")
201  (defswitch "noinit")  (defswitch "noinit")
202  (defswitch "hinit")  (defswitch "hinit")
203    (defswitch "batch")

Legend:
Removed from v.1.6.2.1  
changed lines
  Added in v.1.6.2.2

  ViewVC Help
Powered by ViewVC 1.1.5