X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/b3bc37457df55c92cabc8aeeb42bc67d3fb8af12..9013ada754a1edb12f6157a3a2b9316be7bd987c:/optparse-test

diff --git a/optparse-test b/optparse-test
index 0fe74b9..1d76566 100755
--- a/optparse-test
+++ b/optparse-test
@@ -1,7 +1,8 @@
 #! /usr/local/bin/runlisp
 
-;; (format t "Startup!~%")
-(asdf:operate 'asdf:load-op 'mdw :verbose nil)
+(let ((*compile-verbose* nil)
+      (*load-verbose* nil))
+  (asdf:oos 'asdf:load-op "mdw" :verbose nil))
 (use-package '#:optparse)
 
 (defvar opt-bool nil)
@@ -46,14 +47,12 @@
 	     (read opt-object)
 	     (:doc (concatenate 'string
 				"Read object ("
-				(format-universal-time nil
-						       (get-universal-time)
-						       :style :iso8601)
+				(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 :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.")