X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/93c540af1697a73fe04cba69ef91c3e4ace3003c..d6caa73bc6253f7a0461406a939865a207bad7c8:/optparse-test

diff --git a/optparse-test b/optparse-test
index 83662c2..4f3ad5f 100755
--- a/optparse-test
+++ b/optparse-test
@@ -1,5 +1,9 @@
 #! /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))
@@ -48,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)