projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4802: Auto commit for Debian build
[kmrcl.git]
/
seqs.lisp
diff --git
a/seqs.lisp
b/seqs.lisp
index b86d5ec177f215a0a92d018831019671ec4b03e4..b2a7508282785cf78acbcc3fb1a2747e1a1a1337 100644
(file)
--- a/
seqs.lisp
+++ b/
seqs.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; 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
;;;;
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-61,8
+61,9
@@
accum)))
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"
"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
(make-array (- end start)
:element-type (array-element-type sequence)
:displaced-to sequence