r11085: support clisp

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index b9274aafb7834e10e19c95505d9dc0cbec94e07c..91217bd44b6b864e64ed79f0b27ab4b69eb9dccd 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -281,8 +281,8 @@
         (user-name (esd-user-name slot))
         (xml-user-name (escape-xml-string user-name))
         (xml-tag (escape-xml-string user-name))
-        (type (slot-value slot #-sbcl 'type
-                                #+sbcl 'sb-pcl::%type))
+        (type (slot-definition-type slot))
+
         (cdata (not (null
                      (and (in vid :xml :xhtml :xml-link :xhtml-link
                               :xml-labels :ie-xml-labels