r11442: add compute-cached-value slot option

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index b9274aafb7834e10e19c95505d9dc0cbec94e07c..bc93bd97cdbfdaaf5147da987a7d214f6d5f99d8 100644 (file)
--- 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