(defparameter *v* (vector 1 2 3 4 5))

(print (count-if
	#'(lambda (x) (> x 3))
*v*))