sys-base: Fix support for CL-LAUNCH.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index 83662c2a1d8a63e042fcf38198fdfcea74407bed..cd1c4f9d5a3aaf324fd34aeeee5314d8caa7b254 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -1,5 +1,9 @@
 #! /usr/local/bin/runlisp
 
 #! /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))
 (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
             (: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)
                                (princ-to-string (get-universal-time))
                                ")")))
            (#\k "keyword" (:arg "KEYWORD") (keyword opt-keyword)


@@ -87,7 +91,4 @@
   (format t "keyword: ~S~%" opt-keyword)
   (format t "enum: ~S~%" opt-enum)
   (format t "object: ~S~%" opt-object))
   (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*))