(defparameter *v* (vector 1 2 3 4 5))
(print (count-if #'oddp *v*))