("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 --------------------------------------------------