need help , программа на лиспе

помогите плз с методом Флойда(нахождение путя минимальной суммарной длины во взвешенном графе с произвольными весами для всех пар вершин) надо написать на лиспе
сам алгоритм находиться здесь.
http://khpi-iip.mipk.kharkiv.edu/library/datastr/book_sod/kgsu/din_0124.html
проблема с реализацией

Если не найдёшь помощи , советую ещё также обратиться на форум по Lisp.