question for LISP hackers

Имеем Lisp-код:

(defun DOF (lis)
      (do
           (
              (newlist nil (cons (abs (car lis)) newlist))
           )
           ((null lis) (reverse newlist))
           (setq lis (cdr lis))
       )
)

(print (DOF '(-1 -2 -3)))

Должно печататься (1 2 3).
Интерпретатор - clisp 2.27
Идет ругань: *** - argument to ABS should be a number: NIL.
Но список lis определен (аргумент функции DOF), стало быть, и (car lis) тоже определен.
Кто может прояснить это дело ?

Thanx.