From 348010e5a810750c2e9dce31aae5524c5ed3aa4f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 30 Apr 2003 02:16:21 +0000 Subject: [PATCH] r4707: 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 330d425..265128a 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.34-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Tue, 29 Apr 2003 20:14:55 -0600 + cl-kmrcl (1.33-1) unstable; urgency=low * New upstream diff --git a/strings.lisp b/strings.lisp index 404f33a..7e9be34 100644 --- a/strings.lisp +++ b/strings.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: strings.lisp,v 1.15 2003/04/29 15:25:22 kevin Exp $ +;;;; $Id: strings.lisp,v 1.16 2003/04/30 02:16:21 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