(defun write-cdata (str s)
(declare (simple-string str) (optimize (speed 3) (safety 0) (space 0)))
+ (unless str
+ (return-from write-cdata nil))
(do ((len (length str))
(i 0 (1+ i)))
((= i len) str)
:organization organization :type type :label label :language language
:url url :entities entities))
stream)
-