>>640が何を訊きたいのか判らんが、こう書きたかったんじゃないのか？

(defun test (lis &aux (a (first lis)) (b (rest lis)))
(if (not (null (first lis)))
(progn (print b)(test b))))