[cxml-cvs] CVS cxml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml
In directory clnet:/tmp/cvs-serv20169

Modified Files:
	cxml.asd 
Log Message:
Moved runes/ into its own cvs module under its new name, closure-common.


--- /project/cxml/cvsroot/cxml/cxml.asd	2007/07/05 20:58:15	1.20
+++ /project/cxml/cvsroot/cxml/cxml.asd	2007/10/07 14:45:07	1.21
@@ -2,8 +2,13 @@
   (:use :asdf :cl))
 (in-package :cxml-system)
 
-;; force loading of runes.asd, which installs *features* this file depends on
-(find-system :runes)
+;; force loading of closure-common.asd, which installs *FEATURES* this
+;; file depends on.  Use MISSING-DEPENDENCY for asdf-install.
+(unless (find-system :closure-common nil)
+  (error 'missing-dependency
+	 :required-by :cxml
+	 :version nil
+	 :requires :closure-common))
 
 (defclass closure-source-file (cl-source-file) ())
 
@@ -36,7 +41,7 @@
      (:file "space-normalizer" :depends-on ("xml-parse"))
      (:file "catalog"         :depends-on ("xml-parse"))
      (:file "sax-proxy"       :depends-on ("xml-parse")))
-    :depends-on (:runes :puri #-scl :trivial-gray-streams))
+    :depends-on (:closure-common :puri #-scl :trivial-gray-streams))
 
 (defclass utf8dom-file (closure-source-file) ((of)))
 
@@ -57,7 +62,8 @@
 (defmethod perform ((operation compile-op) (c utf8dom-file))
   (let ((*features* (cons 'utf8dom-file *features*))
 	(*readtable*
-	 (symbol-value (find-symbol "*UTF8-RUNES-READTABLE*" :runes-system))))
+	 (symbol-value (find-symbol "*UTF8-RUNES-READTABLE*"
+				    :closure-common-system))))
     (call-next-method)))
 
 (asdf:defsystem :cxml-dom