0431c573d371

--- a/src/main.lisp	Tue Apr 02 17:58:03 2019 -0400
+++ b/src/main.lisp	Mon Jul 01 16:01:24 2019 -0400
@@ -64,7 +64,8 @@
   #+ccl (destructuring-bind (program-name &rest arguments)
             ccl:*command-line-argument-list*
             (cons program-name (rest (member "--" arguments :test #'string=))))
-  #-(or sbcl ccl) (error "ARGV is not supported on this implementation."))
+  ;; #+ecl (ext:command-args)
+  #-(or sbcl ccl ecl) (error "ARGV is not supported on this implementation."))
 
 (defun exit (&optional (code 0))
   #+sbcl (sb-ext:exit :code code)