added a nil check in new slot presentations

[clinton/lisp-on-lines.git] / src / slot-presentations.lisp

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