From 9caecf5187d6ca959750f31517ba4e99dae3a8a7 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sun, 20 May 2012 21:15:24 +0200
Subject: [PATCH] Make the previous fix clozure-specific

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

diff --git a/classes.lisp b/classes.lisp
index b615759..e03d0f7 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -87,7 +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)
+#+clozure (deftype document-type () 'cxml-stp:document-type)
 
 (defclass cxml-stp:document (parent-node) ()
   (:documentation
@@ -102,7 +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))
+#+clozure (deftype document () (find-class 'cxml-stp:document))
 
 (defclass element (parent-node named-node-mixin)
   ((attributes :initform nil :accessor %attributes)
-- 
2.11.4.GIT