(defun line(k n)(cond((> k n) t)(t (prin1 k)(line((+ k 1) n)))))

лишние скобки..теперь все работает

(defun line(k n)(cond((> k n) t)(t (prin1 k)(line(+ k 1) n))))