;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: seqs.lisp,v 1.2 2003/05/04 14:52:10 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
;;;;
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