;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: seqs.lisp,v 1.1 2003/04/29 00:26:21 kevin Exp $
+;;;; $Id: seqs.lisp,v 1.3 2003/05/04 15:09:59 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(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