Double dash -- as command line option

src/CHANGELOG

@@ -126,6 +126,9 @@ ECL 0.9f
  - By default, the size of binary streams is rounded to a multiple of 8. If you
    want other behavior, pass :USE-HEADER-P T to the function OPEN.
 
+ - ECL now accepts a double dash, '--', as a command line option. Anything
+   after the double dash is interpreted as a lisp command.
+
 * ANSI Compatibility:
 
  - DEFSETF forms are enclosed in a block with the name of the accessor.

src/lsp/top.lsp

@@ -345,9 +345,11 @@ value of this variable is non-NIL.")
   (do ((load-rc t)
        (commands nil)
        (quit nil)
+       (stop-processing nil)
        (i 1 (1+ i))
        (argc (argc)))
-      ((>= i argc)
+      ((or (>= i argc)
+	   stop-processing)
        (when load-rc
 	 (dolist (file *lisp-init-file-list*)
 	   (when (load file :if-does-not-exist nil :search-list nil :verbose nil)
@@ -411,6 +413,8 @@ value of this variable is non-NIL.")
 	  ((or (string= "-?" option) (string= "--help" option))
 	   (help-message t)
 	   (quit 0))
+	  ((string= "--" option)
+	   (setq stop-processing t))
 	  (t
 	   (format *error-output* "Unknown command line option ~A.~%" option)
 	   (help-message *error-output*)