Do not load ~/.ecl nor ~/.eclrc when asking for help with --help/-?/-h

This commit is contained in:
jjgarcia 2006-02-06 10:38:06 +00:00
parent c6df05f4d8
commit 011ff7b5d6
2 changed files with 5 additions and 1 deletions

View file

@ -57,6 +57,9 @@ ECL 0.9i
> (handler-case (si:safe-eval '(cos 'A) nil 12)
(error (c) c))
- When passed the option --help, -h or -?, ECL no longer loads the rc file
(which is typically ~/.ecl or ~/.eclrc)
* Errors fixed:
- The intermediate output of the compiler is written in the directory in which

View file

@ -43,6 +43,7 @@ Usage: ecl [-? | --help]
(defconstant +command-arg-rules+
'(("--help" 0 #0=(progn (help-message *standard-output*) (quit)))
("-?" 0 #0#)
("-h" 0 #0#)
("-eval" 1 (eval (read-from-string 1)))
("-shell" 1 (progn (setq quit 0) (load 1 :verbose nil)))
("-load" 1 (load 1 :verbose verbose))
@ -88,7 +89,7 @@ Usage: ecl [-? | --help]
(rule (assoc option +command-arg-rules+ :test #'string=)))
(cond ((string= option "-rc")
(setq loadrc t))
((string= option "-norc")
((member option '("--help" "-h" "-?" "-norc") :test #'string=)
(setq loadrc nil))
((string= option "--")
(setf option-list nil))