src/method-impl.lisp (compute-method-entry-functions): Reorder `let*'.

[sod] / src / sod.asd

diff --git a/src/sod.asd b/src/sod.asd
index af2cd64..0504ce4 100644 (file)
--- a/src/sod.asd
+++ b/src/sod.asd
@@ -156,19 +156,26 @@
    (:file "class-finalize-impl" :depends-on ("class-finalize-proto"))
 
    ;; Method generation.
-   (:file "method-proto" :depends-on ("class-utilities"))
+   (:file "method-proto" :depends-on ("class-make-proto"))
    (:file "method-impl" :depends-on ("method-proto"))
+   (:file "method-aggregate" :depends-on ("method-impl"))
 
    ;; Class output.
    (:file "class-output" :depends-on
-         ("classes" "class-layout-proto" "class-layout-impl"
-          "method-proto" "method-impl" "output-proto"))))
+         ("classes" "class-layout-impl" "method-impl" "output-proto"))
+
+   ;; Debugging and interactive testing.
+   (:file "debug" :depends-on ("builtin" "module-output"))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Testing.
 
 (defmethod perform ((op test-op) (component (eql (find-system "sod"))))
   (declare (ignore op component))
-  (operate 'test-op "sod-test" :force t))
+  (handler-bind (((or warning style-warning)
+                 (lambda (cond)
+                   (declare (ignore cond))
+                   (invoke-restart 'muffle-warning))))
+    (operate 'test-op "sod-test")))
 
 ;;;----- That's all, folks --------------------------------------------------