1 (defpackage :cxml-stp-system
3 (in-package :cxml-stp-system)
5 (defclass closure-source-file (cl-source-file) ())
8 (defmethod perform :around ((o compile-op) (s closure-source-file))
9 ;; shut up already. Correctness first.
10 (handler-bind ((sb-ext:compiler-note #'muffle-warning))
11 (let ((*compile-print* nil))
15 :default-component-class closure-source-file
26 (:file "document-type")
28 (:file "processing-instruction")
32 :depends-on (:cxml :alexandria :xpath))
34 (defsystem :cxml-stp-test
35 :default-component-class closure-source-file
39 :depends-on (:cxml-stp :rt))