From bcae94a7958d2da68b8e03f3feb6c5f8fe9b4f06 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sun, 20 May 2012 16:24:02 +0200
Subject: [PATCH] Define a type for each aliased class (fixes CCL)

---
 classes.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/classes.lisp b/classes.lisp
index 026cfc3..b615759 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -87,6 +87,7 @@
     @see-slot{public-id}
     @see-slot{internal-subset}"))
 (setf (find-class 'document-type) (find-class 'cxml-stp:document-type))
+(deftype document-type () 'cxml-stp:document-type)
 
 (defclass cxml-stp:document (parent-node) ()
   (:documentation
@@ -101,6 +102,7 @@
     @see-slot{document-element}
     @see-slot{document-type}"))
 (setf (find-class 'document) (find-class 'cxml-stp:document))
+(deftype document () (find-class 'cxml-stp:document))
 
 (defclass element (parent-node named-node-mixin)
   ((attributes :initform nil :accessor %attributes)
-- 
2.11.4.GIT