## Documentation

Returns the first HOW-MANY elements of SEQ.

## Source

(defun head (seq &optional (how-many 1))
"Returns the first HOW-MANY elements of SEQ."
(let ((seq-length (length seq)))
(cond
((<= 0 how-many (length seq))
(subseq seq 0 how-many))
((< seq-length how-many)
(copy-seq seq))
(t
(tail seq (- how-many))))))

Source Context