Heapify all nodes in Common Lisp

Question

(defun heapify (heap i)
  (let ((r (right i))
    (l (left i))
    (smallest i)
    (n (heap-size heap)))
    (if (and (< l n)
        (less l i))
        (setf s