r4816: Auto commit for Debian build

[kmrcl.git] / strings.lisp

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)