- (setf (obj-data-print-code view) `(lambda (x s links)
- (declare (ignorable links))
- ,@(map 'list #'identity print-func)))
-
- (setf (obj-data-func view)
- (when print-func (compile nil (eval (obj-data-print-code view)))))
+ (when (plusp (length print-func))
+ (setf (obj-data-print-code view) `(lambda (x s links)
+ (declare (ignorable links))
+ ,@(map 'list #'identity print-func)))
+ (setf (obj-data-func view)
+ (compile nil (eval (obj-data-print-code view)))))