9 lines
211 B
Common Lisp
9 lines
211 B
Common Lisp
(in-package :alexandria-2)
|
|
|
|
|
|
(defun subseq* (sequence start &optional end)
|
|
"Like SUBSEQ, but limits END to the length."
|
|
(subseq sequence start
|
|
(if end
|
|
(min end (length sequence)))))
|
|
|