X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=seqs.lisp;h=4cc4659e9ba7abff3f7c3a4168ff31e407eba790;hp=302f5d5d04c62448af26475837bf7583f752350d;hb=03712fbb06acbb103602bae10f41aeae7fa05127;hpb=739b14ee8844dc777b174105646df3abcb865282 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))