# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1562011284 14400
# Node ID 0431c573d371be84bf9250cc15f2150e7722e7d2
# Parent  860e105446521eaa92fec39dd2e38708db49c47c
Add ecl argument function

diff -r 860e10544652 -r 0431c573d371 src/main.lisp
--- 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)