+cl-kmrcl (1.47-2) unstable; urgency=low
+
+ * New upstring
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 26 May 2003 15:24:45 -0600
+
cl-kmrcl (1.47-1) unstable; urgency=low
* New upstream
- -- Kevin M. Rosenberg <kmr@debian.org> Sat, 17 May 2003 01:45:19 -0600
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 26 May 2003 15:24:37 -0600
cl-kmrcl (1.46-1) unstable; urgency=low
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.32 2003/05/16 08:32:10 kevin Exp $
+;;;; $Id: package.lisp,v 1.33 2003/05/26 21:43:05 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#:xml-tag-contents
#:positions-xml-tag-contents
#:xml-cdata
+ #:write-xml-cdata
;; From console
*console-msgs*
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: strings.lisp,v 1.33 2003/05/17 07:34:45 kevin Exp $
+;;;; $Id: strings.lisp,v 1.34 2003/05/26 21:43:05 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(defun escape-xml-string (string)
"Escape invalid XML characters"
- (substitute-chars-strings
- string '((#\& . "&") (#\> . ">") (#\< . "<") (#\" . """))))
-
+ (substitute-chars-strings string '((#\& . "&") (#\< . "<"))))
(defun make-usb8-array (len)
(make-array len :adjustable nil
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: xml-utils.lisp,v 1.6 2002/12/04 16:49:23 kevin Exp $
+;;;; $Id: xml-utils.lisp,v 1.7 2003/05/26 21:43:05 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(defun xml-cdata (str)
(concatenate 'string "<![CDATA[" str "]]>"))
+(defun write-xml-cdata (str s)
+ (declare (simple-string str) (optimize (speed 3) (safety 0)))
+ (do* ((len (length str))
+ (i 0 (1+ i)))
+ ((= i len) str)
+ (declare (fixnum i len))
+ (let ((c (schar str i)))
+ (case c
+ (#\< (write-string "<" s))
+ (#\& (write-string "&" s))
+ (t (write-char c s))))))
+