Returns a sub list.

sublist.lisp

(defmacro sublist (1st start &optional (size nil))
  "(sublist start size?)

  Returns a list of the items in vector from start (inclusive)
  to start + size (exclusive). If size is not supplied,
  defaults to end of list."
  `(loop for item in (nthcdr ,start ,1st)
         ,@(if size
               `(for i from 1 to ,size))
         collect item))