X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=strings.lisp;h=af477bba105de8d2784fd0df16e9a7e63d51d0d0;hp=96aae865c3eeb98daa34a4c147b6ebc36d4e6c59;hb=eefe5a5cc364731f05c560c8837895cbd97f7015;hpb=f076fbe094b1fffc07ad9f9c5bacd9631fcb73ec

diff --git a/strings.lisp b/strings.lisp
index 96aae86..af477bb 100644
--- 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)