82d5dd50f5a6 v1.2.0

Add Lispworks support to argv and exit

Fixes https://github.com/sjl/adopt/issues/4
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 16 Nov 2021 20:19:22 -0500
parents a3e3cbc1e45b
children 804f440a56de
branches/tags v1.2.0
files adopt.asd docs/03-changelog.markdown src/main.lisp

Changes

diff -r a3e3cbc1e45b -r 82d5dd50f5a6 adopt.asd
--- a/adopt.asd	Tue Apr 27 18:48:26 2021 -0400
+++ b/adopt.asd	Tue Nov 16 20:19:22 2021 -0500
@@ -4,7 +4,7 @@
   :homepage "https://docs.stevelosh.com/adopt/"
 
   :license "MIT"
-  :version "1.1.1"
+  :version "1.2.0"
 
   :depends-on (:bobbin :split-sequence)
 
diff -r a3e3cbc1e45b -r 82d5dd50f5a6 docs/03-changelog.markdown
--- a/docs/03-changelog.markdown	Tue Apr 27 18:48:26 2021 -0400
+++ b/docs/03-changelog.markdown	Tue Nov 16 20:19:22 2021 -0500
@@ -5,6 +5,11 @@
 
 [TOC]
 
+1.2.0
+-----
+
+Add Lispworks support to `argv` and `exit`.
+
 1.1.1
 -----
 
diff -r a3e3cbc1e45b -r 82d5dd50f5a6 src/main.lisp
--- a/src/main.lisp	Tue Apr 27 18:48:26 2021 -0400
+++ b/src/main.lisp	Tue Nov 16 20:19:22 2021 -0500
@@ -64,8 +64,10 @@
   #+ccl (destructuring-bind (program-name &rest arguments)
             ccl:*command-line-argument-list*
             (cons program-name (rest (member "--" arguments :test #'string=))))
+  #+lispworks sys:*line-arguments-list*
   ;; #+ecl (ext:command-args)
-  #-(or sbcl ccl ecl) (error "ARGV is not supported on this implementation."))
+  #-(or sbcl ccl ecl lispworks)
+  (error "ARGV is not supported on this implementation."))
 
 (defun exit (&optional (code 0))
   "Exit the program with status `code`.
@@ -77,7 +79,8 @@
   "
   #+sbcl (sb-ext:exit :code code)
   #+ccl (ccl:quit code)
-  #-(or sbcl ccl) (error "EXIT is not supported on this implementation."))
+  #+lispworks (lispworks:quit :status code :ignore-errors-p t)
+  #-(or sbcl ccl lispworks) (error "EXIT is not supported on this implementation."))
 
 
 (defun funcall% (value function)