r3982: Auto commit for Debian build

diff --git a/debian/changelog b/debian/changelog
index 624af2ef2401a3465b63c929163338ea8b333d86..22496cea18e36914869a6a8e44f8e47963396ec0 100644 (file)
--- 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 dc6c2cd95468c8c80fb92cc45b998a0b91f9b783..cb26fba64e79f2f606e7af3bedae10d04264c469 100644 (file)
--- 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 cc7935a0c21c6f84e7a4f86d293e39b66be0e688..cee438bcbf53ff4f5235015a45455aedf8efbc5d 100644 (file)
--- 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 78f264c7d9a2f3e4c76c6b837b982407f64b8489..f518b81c9472923d2be7e04f7d26eece580df79c 100644 (file)
--- 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 d91d9ac9e1d92a7316d3455fca89c13fb47d7b8d..35a177e9715371cc38eea292eddb09c05d380518 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.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"