From 7e52d3cf184126838285c8d49a2ac6bf9accfa5a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 12 Jun 2003 17:58:45 +0000 Subject: [PATCH] r5114: 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 31a9f5e..7a0ff2d 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.49-1) unstable; urgency=low + + * Fix type + + -- Kevin M. Rosenberg Thu, 12 Jun 2003 11:40:22 -0600 + cl-kmrcl (1.48-1) unstable; urgency=low * New upstream, new functions diff --git a/strings.lisp b/strings.lisp index efce498..6c3eb44 100644 --- a/strings.lisp +++ b/strings.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: strings.lisp,v 1.38 2003/06/12 11:10:38 kevin Exp $ +;;;; $Id: strings.lisp,v 1.39 2003/06/12 17:58:45 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -169,7 +169,7 @@ (defun replaced-string-length (str repl-alist) (declare (simple-string str) - (declare (fixnum orig-len new-len)) + (fixnum orig-len new-len) (optimize (speed 3) (safety 0) (space 0))) (do* ((i 0 (1+ i)) (orig-len (length str)) -- 2.34.1