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

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