X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/a8bbb2e72e8c8f9168520d92c7d8a01377928e91..48232c30457dba5a27e8d9ee6b49d18e224568e5:/optparse-test

diff --git a/optparse-test b/optparse-test
index b5fe41f..da1028d 100755
--- 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)
@@ -45,12 +48,10 @@
 	     (: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")
 		 (keyword opt-enum (list :apple :apple-pie :abacus :banana))
@@ -86,7 +87,4 @@
   (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*))