r11447: major reworking of mop internals to support OpenMCL.

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index 91217bd44b6b864e64ed79f0b27ab4b69eb9dccd..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)