X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=views.lisp;h=91217bd44b6b864e64ed79f0b27ab4b69eb9dccd;hb=3a8891dc54f83ccdc16bd4094f75cab2cd3dab6e;hp=b9274aafb7834e10e19c95505d9dc0cbec94e07c;hpb=920865199d81789ced3a9e0a24f4c95b3ec6fa7f;p=hyperobject.git

diff --git a/views.lisp b/views.lisp
index b9274aa..91217bd 100644
--- 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