src/**/*.lisp: Use convenience functions to invoke restarts.

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

diff --git a/src/sod-test.asd.in b/src/sod-test.asd.in
index 1a5fa59834b0922c4b7b43a6b511ed6b701655d0..c65f4dca664b12fa83f1c512a13ae0400596132f 100644 (file)
--- a/src/sod-test.asd.in
+++ b/src/sod-test.asd.in
@@ -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)