From 48232c30457dba5a27e8d9ee6b49d18e224568e5 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 13 Jan 2009 22:29:49 +0000
Subject: [PATCH] optparse-test: Fix to use cl-launch with /bin/sh hack.

---
 optparse-test | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/optparse-test b/optparse-test
index cd1c4f9..da1028d 100755
--- a/optparse-test
+++ b/optparse-test
@@ -1,16 +1,12 @@
-#! /usr/local/bin/runlisp
+#! /bin/sh
+#|
+exec cl-launch -s mdw -i "(load \"$0\")" -- "$0" "$@" || exit 1
+|#
 
 (cl:defpackage #:optparse-test
-  (:use #:common-lisp))
+  (:use #:common-lisp #:optparse))
 (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)
-- 
2.11.0