Various: Try porting the code to CLisp.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index b5fe41f47be56e617c97888d984e26bfbe487f41..1d76566689d07ecce678bc7c91f8252d7639c900 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -1,7 +1,8 @@
 #! /usr/local/bin/runlisp
 
 #! /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)
 (use-package '#:optparse)
 
 (defvar opt-bool nil)


@@ -46,11 +47,9 @@
             (read opt-object)
             (:doc (concatenate 'string
                                "Read object ("
             (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 (list :apple :apple-pie :abacus :banana))
                 ("Set an arbitrary keyword."))
            (#\e "enumeration" (:arg "ENUM")
                 (keyword opt-enum (list :apple :apple-pie :abacus :banana))