X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=views.lisp;h=a90064ad5197f0fa1a4919a8999c2fb21684e1e5;hb=57e04b430882b68decd80bb87c75fe482cdbf711;hp=bc93bd97cdbfdaaf5147da987a7d214f6d5f99d8;hpb=b5ae9d611ffe002ecdb5d19d926b952857cd26c4;p=hyperobject.git

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