mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-05 00:40:48 -08:00
Do not load ~/.ecl nor ~/.eclrc when asking for help with --help/-?/-h
This commit is contained in:
parent
c6df05f4d8
commit
011ff7b5d6
2 changed files with 5 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue