Primes in common lisp

(defun range (b e)
  (loop for n from b below e by 1
        collect n))

(defun zero (x)
  (= x 0))

(defun nzero (x)
  (not (zero x)))

(defun prime(v)
  (zero
    (length
      (remove-if
        'nzero
           (map
             'list
               (lambda (x) (mod v x))
               (range 2 (sqrt v)))))))

(defun nprime(v)
  (not (prime v)))

(defun primes(v)
  (remove-if 'nprime (range 2 v)))