X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/7f853a8ae70d1f8c922db2840194aa0afbbe4f79..813da880d2d77f04ea623f426d543d298528f967:/optparse-test

diff --git a/optparse-test b/optparse-test
index 4441483..de0d6eb 100755
--- a/optparse-test
+++ b/optparse-test
@@ -1,11 +1,9 @@
-#! /usr/local/bin/runlisp
+#! /bin/sh
+":"; exec cl-launch -X -s mdw -- "$0" "$@" || exit 1 # -*-lisp-*-
 
-(let ((*compile-verbose* nil)
-      (*load-verbose* nil))
-  (asdf:oos 'asdf:load-op "mdw" :verbose nil))
-(handler-case
-    (use-package '#:optparse)
-  (error (c) (invoke-debugger c)))
+(cl:defpackage #:optparse-test
+  (:use #:common-lisp #:optparse))
+(cl:in-package #:optparse-test)
 
 (defvar opt-bool nil)
 (defvar opt-int nil)
@@ -87,7 +85,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*))