From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 14 May 2003 04:45:05 +0000 (+0000)
Subject: r4922: Auto commit for Debian build
X-Git-Tag: debian-2.11.0-2~84
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=2272c8f3fad706bece472bc5a1909e3ea0cc53e3

r4922: Auto commit for Debian build
---

diff --git a/views.lisp b/views.lisp
index caf7ad3..2c2713e 100644
--- 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)))