diff --git a/src/CHANGELOG b/src/CHANGELOG index c7f9c4904..3adbb3655 100644 --- a/src/CHANGELOG +++ b/src/CHANGELOG @@ -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 diff --git a/src/lsp/cmdline.lsp b/src/lsp/cmdline.lsp index b01dcaa1c..1a56e9ce3 100644 --- a/src/lsp/cmdline.lsp +++ b/src/lsp/cmdline.lsp @@ -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))