X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/a142609c5dc2a7c3df02497235881beaf47088bf..489173a51e3020f7e0f73208c92ba0a03e21e048:/src/sod.asd.in

diff --git a/src/sod.asd.in b/src/sod.asd.in
index 9f36e1c..4a1c341 100644
--- a/src/sod.asd.in
+++ b/src/sod.asd.in
@@ -171,17 +171,14 @@
 	  ("classes" "class-layout-impl" "method-impl" "output-proto"))
 
    ;; Finishing touches of various kinds.
-   (:file "final" :depends-on ("builtin" "module-output"))))
+   (:file "final" :depends-on ("builtin" "module-output" "class-output"))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Testing.
 
 (defmethod perform ((op test-op) (component (eql (find-system "sod"))))
   (declare (ignore op component))
-  (handler-bind (((or warning style-warning)
-		  (lambda (cond)
-		    (declare (ignore cond))
-		    (invoke-restart 'muffle-warning))))
+  (handler-bind (((or warning style-warning) #'muffle-warning))
     (operate 'test-op "sod-test")))
 
 ;;;----- That's all, folks --------------------------------------------------