#! /usr/local/bin/runlisp
+(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))
(:arg "OBJECT")
(read opt-object)
(:doc (concatenate 'string
- "Read object ("
+ "Read object (time = "
(princ-to-string (get-universal-time))
")")))
(#\k "keyword" (:arg "KEYWORD") (keyword opt-keyword)
(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*))