Lisp - co robi ten kod?

Siema, mam cos takiego:

(defun kod (w1 w2 w3)
             (let ((i 0))
              (do ((a w2 (incf a))
                )
                    ((> a w3) i)
                (if (= (mod a w1) 0) (incf i)))
                )
              )

Probowalem na roznych liczbach i nadal nie wiem co laczy te rozwiazania. :/

Przetłumaczone na Pythona wygląda jakoś tak:

def kod(w1, w2, w3):
    i = 0
    a = w2
    while True:
        if a > w3:
            return i
        if a % w1 == 0:
            i += 1
        a += 1