X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=seqs.lisp;h=302f5d5d04c62448af26475837bf7583f752350d;hp=92a4aa05818cce6454f0de95de635de031b440e8;hb=526eef1b59e071cbb4ecd35f73a14c1a3f8e32b6;hpb=b7af043786744aaf0b67a5ee6f4d42a647dc738d

diff --git a/seqs.lisp b/seqs.lisp
index 92a4aa0..302f5d5 100644
--- a/seqs.lisp
+++ b/seqs.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: seqs.lisp,v 1.1 2003/04/29 00:26:21 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -19,51 +19,9 @@
 (in-package :kmrcl)
 
 
-(defun mapappend (func seq)
-  (apply #'append (mapcar func seq)))
-
-(defun mapcar-append-string-nontailrec (func v)
-  "Concatenate results of mapcar lambda calls"  
-  (aif (car v)
-       (concatenate 'string (funcall func it)
-		    (mapcar-append-string-nontailrec func (cdr v)))
-       ""))
-
-
-(defun mapcar-append-string (func v &optional (accum ""))
-  "Concatenate results of mapcar lambda calls"  
-  (aif (car v)
-       (mapcar-append-string 
-	func 
-	(cdr v) 
-	(concatenate 'string accum (funcall func it)))
-       accum))
-
-(defun mapcar2-append-string-nontailrec (func la lb)
-  "Concatenate results of mapcar lambda call's over two lists"  
-  (let ((a (car la))
-	(b (car lb)))
-    (if (and a b)
-      (concatenate 'string (funcall func a b)
-		   (mapcar2-append-string-nontailrec func (cdr la) (cdr lb)))
-      "")))
-  
-(defun mapcar2-append-string (func la lb &optional (accum ""))
-  "Concatenate results of mapcar lambda call's over two lists"  
-  (let ((a (car la))
-	(b (car lb)))
-    (if (and a b)
-	(mapcar2-append-string 
-	 func 
-	 (cdr la) 
-	 (cdr lb)
-	 (concatenate 'string accum (funcall func a b)))
-      accum)))
-  
-
-
-(defun nsubseq (sequence start &optional (end (length sequence)))
+(defun nsubseq (sequence start &optional end)
   "Return a subsequence by pointing to location in original sequence"
+  (unless end (setq end (length sequence)))
   (make-array (- end start)
 	      :element-type (array-element-type sequence)
 	      :displaced-to sequence