#! /usr/local/bin/runlisp
-;; (format t "Startup!~%")
-(asdf:operate 'asdf:load-op 'mdw :verbose nil)
-(use-package '#:optparse)
+(cl:defpackage #:optparse-test
+ (:use #:common-lisp))
+(cl:in-package #:optparse-test)
+
+(let ((*compile-verbose* nil)
+ (*load-verbose* nil))
+ (asdf:oos 'asdf:load-op "mdw" :verbose nil))
+(handler-case
+ (use-package '#:optparse)
+ (error (c) (invoke-debugger c)))
(defvar opt-bool nil)
(defvar opt-int nil)
(: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 :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.")