added a nil check in new slot presentations
authorDrew Crampsie <drewc@tech.coop>
Tue, 8 Nov 2005 11:52:15 +0000 (03:52 -0800)
committerDrew Crampsie <drewc@tech.coop>
Tue, 8 Nov 2005 11:52:15 +0000 (03:52 -0800)
darcs-hash:20051108115215-5417e-600a23b955dad486a845e9a39048827ba917f397.gz

src/slot-presentations.lisp

index d7e874d..5270062 100644 (file)
@@ -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 ()