From: Drew Crampsie <drewc@tech.coop>
Date: Tue, 8 Nov 2005 11:52:15 +0000 (-0800)
Subject: added a nil check in new slot presentations
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/79e13683bc810665d3f4fdeb33162166d440d138

added a nil check in new slot presentations

darcs-hash:20051108115215-5417e-600a23b955dad486a845e9a39048827ba917f397.gz
---

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 ()