(defmethod subarray :around (array start (end (eql nil)))
  (subarray array start (end array)))

(defmethod subarray :around (array (start (eql nil)) end)
  (subarray array (start array) end))