src/class-output.lisp: Leave `*instance-class*' unbound at top-level.

[sod] / src / sod-test.asd.in

diff --git a/src/sod-test.asd.in b/src/sod-test.asd.in
index 6b2a83b..c65f4dc 100644 (file)
--- a/src/sod-test.asd.in
+++ b/src/sod-test.asd.in
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -23,12 +23,13 @@
 ;;; along with SOD; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-(cl:defpackage #:sod-sysdef
-  (:use #:common-lisp #:asdf))
+(cl:defpackage #:sod-test-sysdef
+  (:use #:common-lisp #:asdf)
+  (:export #:*version*))
 
-(cl:in-package #:sod-sysdef)
+(cl:in-package #:sod-test-sysdef)
 
-#|@-auto-@|# (load "auto.lisp")
+#|@-auto-@|# (load (merge-pathnames "auto.lisp" *load-pathname*))
 
 ;;;--------------------------------------------------------------------------
 ;;; Definition.
@@ -36,7 +37,7 @@
 (defsystem sod-test
 
   ;; Boring copyright stuff.
-  :version #:*sysdef-version*
+  :version #.*sysdef-version*
   :author "Mark Wooding"
   :license "GNU General Public License, version 2 or later"
   #|@-path-@|# :pathname "@srcdir@"
@@ -66,10 +67,7 @@
 ;;; Testing.
 
 (defmethod perform ((op test-op) (system (eql (find-system "sod-test"))))
-  (handler-bind (((or warning style-warning)
-                 (lambda (cond)
-                   (declare (ignore cond))
-                   (invoke-restart 'muffle-warning))))
+  (handler-bind (((or warning style-warning) #'muffle-warning))
     (operate 'load-op system)
     (let ((result (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
       (unless (funcall (find-symbol "WAS-SUCCESSFUL" "XLUNIT") result)