the following patch allows cxml-stp to compile under ccl:
diff --git a/classes.lisp b/classes.lisp
index 026cfc3..db70b47 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -86,6 +86,9 @@
@see-slot{system-id}
@see-slot{public-id}
@see-slot{internal-subset}"))
+#+ccl
+(deftype document-type () 'cxml-stp:document-type)
+
(setf (find-class 'document-type) (find-class 'cxml-stp:document-
type))
(defclass cxml-stp:document (parent-node) ()
The problem is that (setf (find-class ...) ...) doesn't create the
type under ccl. Arguably, this shouldn't be necessary. But, as Gary
Byers has pointed out on openmcl-devel, that point is arguable and he
makes a decent case as to why this shouldn't work.
thoughts?
thanks,
Cyrus