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

diff --git a/views.lisp b/views.lisp
index b9274aa..bc93bd9 100644
--- a/views.lisp
+++ b/views.lisp
@@ -163,6 +163,7 @@
 				       &rest initargs
 				       &key
 				       &allow-other-keys)
+  (declare (ignore initargs))
   (initialize-view self))
 
 (defun initialize-view (view)
@@ -281,8 +282,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