r11480: make field position lookup more efficient by computing 'eq key at compile...

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index b9274aafb7834e10e19c95505d9dc0cbec94e07c..a90064ad5197f0fa1a4919a8999c2fb21684e1e5 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -65,7 +65,7 @@
    (obj-data-printer :type (or function null) :initform nil
                        :initarg :obj-data-printer
                        :accessor obj-data-printer)
-   (obj-data-print-code :type (or function null) :initform nil
+   (obj-data-print-code :type (or function list null) :initform nil
                  :initarg :obj-data-print-code
                  :accessor obj-data-print-code)
    (obj-data-start-printer :type (or function string null) :initform nil
@@ -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