;;; 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)