r11447: major reworking of mop internals to support OpenMCL.

[hyperobject.git] / views.lisp

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