0431c573d371

Add ecl argument function
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 01 Jul 2019 16:01:24 -0400
parents 860e10544652
children bc8760190ed7
branches/tags (none)
files src/main.lisp

Changes

--- 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)