;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: xml-utils.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $
+;;;; $Id: xml-utils.lisp,v 1.3 2002/10/09 14:24:47 kevin Exp $
;;;;
-;;;; This file, part of Webutils, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
-;;;; Webutils users are granted the rights to distribute and use this software
+;;;; Kmrcl users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
;;;; *************************************************************************
-(in-package :webutils)
+(in-package :kmrcl)
(declaim (optimize (speed 3) (safety 1)))
(values (subseq xmlstr startpos endpos) nextpos)
(values nil nil))))
+(defun xml-cdata (str)
+ (concatenate 'string "<![CDATA[" str "]]>"))
+