r4816: Auto commit for Debian build

diff --git a/debian/changelog b/debian/changelog
index 4ea7c77c7e2cd52f91317f96b7657c7763f61862..5ef88d1da0c1b61d78c59b803903dc4fd2d7aa13 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.40-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon,  5 May 2003 15:49:29 -0600
+
 cl-kmrcl (1.39-1) unstable; urgency=low
 
   * Fix test suite

diff --git a/strings.lisp b/strings.lisp
index 96aae865c3eeb98daa34a4c147b6ebc36d4e6c59..af477bba105de8d2784fd0df16e9a7e63d51d0d0 100644 (file)
--- a/strings.lisp
+++ b/strings.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: strings.lisp,v 1.19 2003/05/05 20:08:17 kevin Exp $
+;;;; $Id: strings.lisp,v 1.20 2003/05/05 21:49:48 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -70,7 +70,7 @@ my algorithm. Does allegro use assembly?"
        ((null end)
        (if (< pos len)
            (push (subseq string pos) output)
-           (unless (or skip-terminal (null output))
+           (when (or (not skip-terminal) (zerop len))
              (push "" output)))
        (nreverse output))
     (declare (type fixnum pos len)