+cl-kmrcl (1.33-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Tue, 29 Apr 2003 09:24:35 -0600
+
cl-kmrcl (1.32-1) unstable; urgency=low
* Vary signature of DIRECT-SLOT-DEFINITION-CLASS depending on
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: strings.lisp,v 1.14 2003/04/29 00:49:09 kevin Exp $
+;;;; $Id: strings.lisp,v 1.15 2003/04/29 15:25:22 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 '((#\& . "&") (#\> . ">") (#\< . "<"))))
+ string '((#\& . "&") (#\> . ">") (#\< . "<") (#\" . """)))
(defun make-usb8-array (len)