optparse-test: Fix to use cl-launch with /bin/sh hack.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index 0fe74b94dc39ec5426c6a1c6fb01a0db3ab40202..da1028d6cde5de88b544d17d29d96c9871d7c728 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -1,8 +1,11 @@
-#! /usr/local/bin/runlisp
+#! /bin/sh
+#|
+exec cl-launch -s mdw -i "(load \"$0\")" -- "$0" "$@" || exit 1
+|#

 
 

-;; (format t "Startup!~%")
-(asdf:operate 'asdf:load-op 'mdw :verbose nil)
-(use-package '#:optparse)
+(cl:defpackage #:optparse-test
+  (:use #:common-lisp #:optparse))
+(cl:in-package #:optparse-test)

 
 (defvar opt-bool nil)
 (defvar opt-int nil)
 
 (defvar opt-bool nil)
 (defvar opt-int nil)


@@ -45,15 +48,13 @@
             (:arg "OBJECT")
             (read opt-object)
             (:doc (concatenate 'string
             (:arg "OBJECT")
             (read opt-object)
             (:doc (concatenate 'string

-                               "Read object ("
-                               (format-universal-time nil
-                                                      (get-universal-time)
-                                                      :style :iso8601)
+                               "Read object (time = "
+                               (princ-to-string (get-universal-time))

                                ")")))
                                ")")))

-           (#\k "keywword" (:arg "KEYWORD") (keyword opt-keyword)
+           (#\k "keyword" (:arg "KEYWORD") (keyword opt-keyword)

                 ("Set an arbitrary keyword."))
            (#\e "enumeration" (:arg "ENUM")
                 ("Set an arbitrary keyword."))
            (#\e "enumeration" (:arg "ENUM")

-                (keyword opt-enum :apple :apple-pie :abacus :banana)
+                (keyword opt-enum (list :apple :apple-pie :abacus :banana))

                 ("Set a keyword from a fixed set."))
            (#\x "xray" (:arg "WAVELENGTH")
                 "Report an option immediately.")
                 ("Set a keyword from a fixed set."))
            (#\x "xray" (:arg "WAVELENGTH")
                 "Report an option immediately.")


@@ -86,7 +87,4 @@
   (format t "keyword: ~S~%" opt-keyword)
   (format t "enum: ~S~%" opt-enum)
   (format t "object: ~S~%" opt-object))
   (format t "keyword: ~S~%" opt-keyword)
   (format t "enum: ~S~%" opt-enum)
   (format t "object: ~S~%" opt-object))

-(test (cdr *command-line-strings*))
-
-
-
+(test (cdr *command-line*))