From eefe5a5cc364731f05c560c8837895cbd97f7015 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 5 May 2003 21:49:48 +0000 Subject: [PATCH] r4816: 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 4ea7c77..5ef88d1 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.40-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 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) -- 2.34.1