From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 7 Feb 2003 14:21:55 +0000 (+0000)
Subject: r3982: Auto commit for Debian build
X-Git-Tag: v1.96~279
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=8e31d13cfde9a2f7b6ea76a342a813e30dfe9696

r3982: Auto commit for Debian build
---

diff --git a/debian/changelog b/debian/changelog
index 624af2e..22496ce 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+cl-kmrcl (1.25-2) unstable; urgency=low
+
+  * Add nsubseq
+  * Rework list-to-delimited-sequence
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri,  7 Feb 2003 07:19:14 -0700
+
 cl-kmrcl (1.25-1) unstable; urgency=low
 
   * strings.lisp: add new functions
diff --git a/debian/copyright b/debian/copyright
index dc6c2cd..cb26fba 100644
--- a/debian/copyright
+++ b/debian/copyright
@@ -5,8 +5,6 @@ It was downloaded from ftp://ftp.b9.com/kmrcl
 
 Upstream Author: Kevin M. Rosenberg <kevin@rosenberg.net>
 
-Changes compared to upstream: none
- 
 Copyright (C) 2000-2002 by Kevin M. Rosenberg.
 
 This code is free software; you can redistribute it and/or modify it
diff --git a/genutils.lisp b/genutils.lisp
index cc7935a..cee438b 100644
--- a/genutils.lisp
+++ b/genutils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: genutils.lisp,v 1.14 2003/01/13 21:40:20 kevin Exp $
+;;;; $Id: genutils.lisp,v 1.15 2003/02/07 14:21:55 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -551,3 +551,9 @@
 	     (format t ", time per iteration: ")
 	     (print-seconds (coerce (/ secs ,n) 'double-float))))))))
 
+
+(defun nsubseq (sequence start &optional (end (length sequence)))
+  (make-array (- end start)
+	      :element-type (array-element-type sequence)
+	      :displaced-to sequence
+	      :displaced-index-offset start))
diff --git a/package.lisp b/package.lisp
index 78f264c..f518b81 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.19 2003/01/13 21:40:20 kevin Exp $
+;;;; $Id: package.lisp,v 1.20 2003/02/07 14:21:55 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -75,6 +75,7 @@
 	  #:time-iterations
 	  #:print-float-units
 	  #:print-seconds
+	  #:nsubseq
 	  
 	  ;; strings.lisp
 	  #:string-append
diff --git a/strings.lisp b/strings.lisp
index d91d9ac..35a177e 100644
--- a/strings.lisp
+++ b/strings.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: strings.lisp,v 1.6 2003/01/13 21:40:20 kevin Exp $
+;;;; $Id: strings.lisp,v 1.7 2003/02/07 14:21:55 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -66,12 +66,10 @@
 
 #-excl
 (defun list-to-delimited-string (list &optional (separator #\space))
-  (let ((output (when list (format nil "~A" (car list)))))
-    (dolist (obj (rest list))
-      (setq output (concatenate 'string output
-				(format nil "~A" separator)
-				(format nil "~A" obj))))
-    output))
+  (if (consp list)
+      (let ((fmt (format nil "~~A~~{~A~~A~~}" separator)))
+	(format nil fmt (first list) (rest list)))
+      ""))
 
 (defun string-invert (str)
   "Invert case of a string"