doc/sod.sty: Allow setting the description modifier explicitly.

[sod] / src / sod.asd.in

diff --git a/src/sod.asd.in b/src/sod.asd.in
index f88ea25..0755979 100644 (file)
--- a/src/sod.asd.in
+++ b/src/sod.asd.in
@@ -118,7 +118,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,7 +126,7 @@
    (: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
@@ -178,10 +178,7 @@
 
 (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 --------------------------------------------------