X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/84f4b59f93535e938e21a083e05a49a1f20f9c26..d0754e55e97e5ae7c47a667a8580ca021174918d:/optparse-test

diff --git a/optparse-test b/optparse-test
index 1d76566..cd1c4f9 100755
--- a/optparse-test
+++ b/optparse-test
@@ -1,9 +1,15 @@
 #! /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))
-(use-package '#:optparse)
+(handler-case
+    (use-package '#:optparse)
+  (error (c) (invoke-debugger c)))
 
 (defvar opt-bool nil)
 (defvar opt-int nil)
@@ -46,7 +52,7 @@
 	     (: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)
@@ -85,7 +91,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*))