X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/074650bcd2b5de617c4d6e7566557bef8358b5f3..db960992be5d9f269f140ac594de77301c54d7c6:/src/sod.asd.in

diff --git a/src/sod.asd.in b/src/sod.asd.in
index c09a622..eabc504 100644
--- a/src/sod.asd.in
+++ b/src/sod.asd.in
@@ -69,6 +69,7 @@
 
   :components
   ((:file "utilities")
+   (:file "optparse")
 
    ;; Parser equipment.  This is way more elaborate than it needs to be, but
    ;; it was interesting, and it may well get split off into a separate
@@ -118,7 +119,7 @@
 
    ;; Property set protocol.
    (:file "pset-proto" :depends-on ("package" "c-types-proto"))
-   (:file "pset-impl" :depends-on ("pset-proto"))
+   (:file "pset-impl" :depends-on ("pset-proto" "module-proto"))
    (:file "pset-parse" :depends-on ("pset-proto" "lexer-proto"))
 
    ;; Code generation protocol.
@@ -126,12 +127,12 @@
    (:file "codegen-impl" :depends-on ("codegen-proto"))
 
    ;; Modules.
-   (:file "module-proto" :depends-on ("package"))
+   (:file "module-proto" :depends-on ("pset-proto" "package"))
    (:file "module-impl" :depends-on
 	  ("module-proto" "pset-proto" "c-types-class-impl" "builtin"))
    (:file "builtin" :depends-on
 	  ("module-proto" "pset-proto" "c-types-impl" "c-types-class-impl"
-	   "classes" "class-layout-proto"))
+	   "classes" "class-layout-proto" "method-proto"))
    (:file "module-parse" :depends-on
 	  ("class-make-proto" "class-finalize-proto"
 	   "fragment-parse" "lexer-proto" "module-impl"))
@@ -171,17 +172,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 --------------------------------------------------