Function: PARENT-INDEX

Source

(defun parent-index (i)
  (floor (- i 1) 2))