X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/93be387859a5e20262d4c7aa57cd2d1fa2be8c29..944bf9362ff51217b1617f85126d26e821b8aa91:/src/sod-test.asd.in

diff --git a/src/sod-test.asd.in b/src/sod-test.asd.in
index 48c04c0..c65f4dc 100644
--- a/src/sod-test.asd.in
+++ b/src/sod-test.asd.in
@@ -29,7 +29,7 @@
 
 (cl:in-package #:sod-test-sysdef)
 
-#|@-auto-@|# (load "auto.lisp")
+#|@-auto-@|# (load (merge-pathnames "auto.lisp" *load-pathname*))
 
 ;;;--------------------------------------------------------------------------
 ;;; Definition.
@@ -67,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)