X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=views.lisp;h=a90064ad5197f0fa1a4919a8999c2fb21684e1e5;hb=de7eaca7f5f852ffb39102ecaa3e3368c4306faf;hp=91217bd44b6b864e64ed79f0b27ab4b69eb9dccd;hpb=3a8891dc54f83ccdc16bd4094f75cab2cd3dab6e;p=hyperobject.git

diff --git a/views.lisp b/views.lisp
index 91217bd..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
@@ -163,6 +163,7 @@
 				       &rest initargs
 				       &key
 				       &allow-other-keys)
+  (declare (ignore initargs))
   (initialize-view self))
 
 (defun initialize-view (view)