optparse: Expose function for printing options.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index 83662c2..4441483 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -48,7 +48,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)