1
by Kevin M. Rosenberg
Import upstream version 1.73 |
1 |
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
|
2 |
;;;; *************************************************************************
|
|
3 |
;;;; FILE IDENTIFICATION
|
|
4 |
;;;;
|
|
5 |
;;;; Name: seqs.lisp
|
|
6 |
;;;; Purpose: Sequence functions for KMRCL package
|
|
7 |
;;;; Programmer: Kevin M. Rosenberg
|
|
8 |
;;;; Date Started: Apr 2000
|
|
9 |
;;;;
|
|
10 |
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
|
|
11 |
;;;;
|
|
12 |
;;;; KMRCL users are granted the rights to distribute and use this software
|
|
13 |
;;;; as governed by the terms of the Lisp Lesser GNU Public License
|
|
14 |
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
|
|
15 |
;;;; *************************************************************************
|
|
16 |
||
1.1.11
by Kevin M. Rosenberg
Import upstream version 1.102 |
17 |
(in-package #:kmrcl) |
1
by Kevin M. Rosenberg
Import upstream version 1.73 |
18 |
|
19 |
||
20 |
(defun nsubseq (sequence start &optional end) |
|
21 |
"Return a subsequence by pointing to location in original sequence"
|
|
22 |
(unless end (setq end (length sequence))) |
|
23 |
(make-array (- end start) |
|
1.1.8
by Kevin M. Rosenberg
Import upstream version 1.97 |
24 |
:element-type (array-element-type sequence) |
25 |
:displaced-to sequence |
|
26 |
:displaced-index-offset start)) |