From 7020e8ae7ee885f138741899627f57b6bdcceeae Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 29 Apr 2003 15:25:22 +0000 Subject: [PATCH] r4705: Auto commit for Debian build --- debian/changelog | 6 ++++++ strings.lisp | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/debian/changelog b/debian/changelog index 9acc888..330d425 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.33-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 diff --git a/strings.lisp b/strings.lisp index 975f1e2..404f33a 100644 --- a/strings.lisp +++ b/strings.lisp @@ -7,7 +7,7 @@ ;;;; 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 ;;;; @@ -191,7 +191,7 @@ list of characters and replacement strings." (defun escape-xml-string (string) "Escape invalid XML characters" (substitute-chars-strings - string '((#\& . "&") (#\> . ">") (#\< . "<")))) + string '((#\& . "&") (#\> . ">") (#\< . "<") (#\" . """))) (defun make-usb8-array (len) -- 2.34.1