;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; KMRCL users are granted the rights to distribute and use this software
(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)
-