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

diff --git a/seqs.lisp b/seqs.lisp
index b2a7508..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.3 2003/05/04 15:09:59 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -19,48 +19,6 @@
 (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)
   "Return a subsequence by pointing to location in original sequence"
   (unless end (setq end (length sequence)))