what is the functionality of this code?
Can anyone help me with this program on LISP 

(defun callie(x y) (if x (callie (cdr x) y))
	(if (= (mod (car x) y) 0) (format t "~a~%" (car x))))

I have to understand the functionality and repair it!!!
what is the functionality of this code?
===

Can anyone help me with this program on LISP 

(defun callie(x y) (if x (callie (cdr x) y))
	(if (= (mod (car x) y) 0) (format t "~a~%" (car x))))

I have to understand the functionality and repair it!!!