projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(from parent 2:
329cc14
)
Merge branch 'master' of ssh://git.b9.com/home/gitpub/kmrcl
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 9 Apr 2013 07:37:37 +0000
(
01:37
-0600)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 9 Apr 2013 07:37:37 +0000
(
01:37
-0600)
xml-utils.lisp
patch
|
blob
|
history
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)))
+ (unless str
+ (return-from write-cdata nil))
(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)
-