d70dd2b9e3c2

--- a/adopt.asd	Tue May 21 22:56:10 2019 -0400
+++ b/adopt.asd	Mon Jul 01 16:03:23 2019 -0400
@@ -22,7 +22,7 @@
   :author "Steve Losh <steve@stevelosh.com>"
   :license "MIT"
 
-  :depends-on (:adopt :1am :losh)
+  :depends-on (:adopt :1am)
 
   :serial t
   :components ((:module "test"

--- a/src/main.lisp	Tue May 21 22:56:10 2019 -0400
+++ b/src/main.lisp	Mon Jul 01 16:03:23 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))
   "Exit the program with status `code`.