r4922: Auto commit for Debian build

diff --git a/views.lisp b/views.lisp
index caf7ad3747831cc5a4ef2808e04abeef1408d040..2c2713e54079a34f850fac50dd68040ba18382ed 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.34 2003/05/14 04:38:36 kevin Exp $
+;;;; $Id: views.lisp,v 1.35 2003/05/14 04:45:05 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -323,12 +323,12 @@
       (when (and (view-has-links-p view) (esd-hyperlink slot))
        (push (slot-definition-name slot) links)))
 
-    (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)))))
     
     (setf (link-slots view) (nreverse links)))