[cxml-devel] cxml-stp patch for ccl

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