doc/concepts.tex: Typeset method rôle names as identifiers.

[sod] / src / sod.asd.in

diff --git a/src/sod.asd.in b/src/sod.asd.in
index c09a622037790c3207ac081b5517a55d6bf90924..4a1c341f32be98c8824887a34d008d6b7cffae9a 100644 (file)
--- a/src/sod.asd.in
+++ b/src/sod.asd.in
@@ -131,7 +131,7 @@
          ("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 +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 --------------------------------------------------