- (if (editablep slot)
- (<ucw:textarea :accessor (presentation-slot-value slot instance)
- :rows (rows slot)
- :cols (columns slot))
- (if (escape-html-p slot)
- (<:as-html (presentation-slot-value slot instance))
- (<:as-is (presentation-slot-value slot instance)))))
+ (if (editablep slot)
+ (<ucw:textarea
+ :accessor (presentation-slot-value slot instance)
+ :reader (or (presentation-slot-value slot instance)
+ "")
+ :rows (rows slot)
+ :cols (columns slot))
+ (if (escape-html-p slot)
+ (<:as-html (presentation-slot-value slot instance))
+ (<:as-is (presentation-slot-value slot instance))))))