[cxml-devel] cxml-stp patch for ccl

[Cyrus Harmon]

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