#!/usr/local/bin/sbcl --script
(defun elements_are_numbers (list) 
  (if (null list)
      t
      (if (not (numberp (car list)))
          nil
          (elements_are_numbers (cdr list)))))
(elements_are_numbers '(1 2 3 4 5))