-;; (format t "Startup!~%")
-(asdf:operate 'asdf:load-op 'mdw :verbose nil)
-(use-package '#:optparse)
+(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))
+(handler-case
+ (use-package '#:optparse)
+ (error (c) (invoke-debugger c)))