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 (file)
--- a/src/slot-presentations.lisp
+++ b/src/slot-presentations.lisp
@@ -41,7 +41,9 @@
                 "")
         :rows (rows slot)
         :cols (columns slot))
                 "")
         :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 ()
 
 
 (defcomponent mewa-slot-presentation ()