# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1562011403 14400
# Node ID d70dd2b9e3c2d186d96224d514016e4ddbede054
# Parent  bc8760190ed767012e3d031632f539a7c8710a8e# Parent  8115d14339b38bacac966caadff364b954ecc92e
Merge.

diff -r 8115d14339b3 -r d70dd2b9e3c2 adopt.asd
--- 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"
diff -r 8115d14339b3 -r d70dd2b9e3c2 src/main.lisp
--- 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`.