projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automated commit for debian release 1.110-2
[kmrcl.git]
/
xml-utils.lisp
diff --git
a/xml-utils.lisp
b/xml-utils.lisp
index a3305caa097ce68ed1d2b45df4e9f2acd565e8fe..fc80feb77e33ae86904fcfc6677cb4c324412a99 100644
(file)
--- a/
xml-utils.lisp
+++ b/
xml-utils.lisp
@@
-81,6
+81,8
@@
and position of character following end tag."
(defun write-cdata (str s)
(declare (simple-string str) (optimize (speed 3) (safety 0) (space 0)))
(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)
(do ((len (length str))
(i 0 (1+ i)))
((= i len) str)
@@
-171,4
+173,3
@@
and position of character following end tag."
:organization organization :type type :label label :language language
:url url :entities entities))
stream)
:organization organization :type type :label label :language language
:url url :entities entities))
stream)
-