История изменений
Исправление ringill, (текущая версия) :
Видимо, оно намекает, что цикл по x не закончится, поэтому до (1+ y) дело не дойдёт.
Не дойдёт потому, что ошибочно написан цикл (do*). То есть, смотреть надо не на варнинг с unreachable code, а на то, что за ним. Твоя ошибка, видимо, в этом:
(make-array 3 :element-type 'single-float
:initial-contents (vector x-coord y-coord 1) )На это компилятор говорит, что
Constant 1 conflicts with its asserted type SINGLE-FLOAT.
Исправление константы на 1.0 поправит ситуацию и с make-array, и с do.
Исходная версия ringill, :
Видимо, оно намекает, что цикл по x не закончится, поэтому до (1+ y) дело не дойдёт.
Не дойдёт потому, что ошибочно написан цикл (do*). То есть, смотреть надо не на варнинг с unreachable code, а на то, что за ним. Твоя ошибка, видимо, в этом:
(make-array 3 :element-type 'single-float
:initial-contents (vector x-coord y-coord 1) )На это компилятор, говорит, что
Constant 1 conflicts with its asserted type SINGLE-FLOAT.
Исправление константы на 1.0 поправит ситуацию и с make-array, и с do.