optparse-test: Use better launch magic.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index cd1c4f9d5a3aaf324fd34aeeee5314d8caa7b254..de0d6ebe94504a5e34b46e2fa8249cdc87b3d66b 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -1,16 +1,10 @@
-#! /usr/local/bin/runlisp
+#! /bin/sh
+":"; exec cl-launch -X -s mdw -- "$0" "$@" || exit 1 # -*-lisp-*-

 
 (cl:defpackage #:optparse-test
 
 (cl:defpackage #:optparse-test

-  (:use #:common-lisp))
+  (:use #:common-lisp #:optparse))

 (cl:in-package #:optparse-test)
 
 (cl:in-package #:optparse-test)
 

-(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)))
-

 (defvar opt-bool nil)
 (defvar opt-int nil)
 (defvar opt-list nil)
 (defvar opt-bool nil)
 (defvar opt-int nil)
 (defvar opt-list nil)