(defun multi-negative (list)
  "Return the product of the negative numbers in list."
  (cond ((null list) 1)
        ((and (numberp (car list)) (minusp (car list)))
         (* (multi-negative (cdr list))
            (car list)))
        (t (multi-negative (cdr list)))))