X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=seqs.lisp;h=4cc4659e9ba7abff3f7c3a4168ff31e407eba790;hb=94c161e4a288d874d8d763b768312e1004a888ec;hp=302f5d5d04c62448af26475837bf7583f752350d;hpb=d11d6cc43fd9227a8aeed28dc2cfecdbc587ec4a;p=kmrcl.git diff --git a/seqs.lisp b/seqs.lisp index 302f5d5..4cc4659 100644 --- a/seqs.lisp +++ b/seqs.lisp @@ -23,6 +23,6 @@ "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 - :displaced-index-offset start)) + :element-type (array-element-type sequence) + :displaced-to sequence + :displaced-index-offset start))