From 79e13683bc810665d3f4fdeb33162166d440d138 Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Tue, 8 Nov 2005 03:52:15 -0800
Subject: [PATCH] added a nil check in new slot presentations

darcs-hash:20051108115215-5417e-600a23b955dad486a845e9a39048827ba917f397.gz
---
 src/slot-presentations.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/slot-presentations.lisp b/src/slot-presentations.lisp
index d7e874d..5270062 100644
--- a/src/slot-presentations.lisp
+++ b/src/slot-presentations.lisp
@@ -41,7 +41,9 @@
 		 "")
 	 :rows (rows slot)
 	 :cols (columns slot))
-	(maybe-convert-newline-and-escape-html-then-print))))
+	(when (presentation-slot-value slot instance)
+	  (maybe-convert-newline-and-escape-html-then-print))
+	)))
 
 
 (defcomponent mewa-slot-presentation ()
-- 
2.20.1