История изменений

Исправление monk, 13.11.23 21:38 (текущая версия) :

Полный аналог:

(do ((p-float start (inc-pointer p-float (foreign-type-size :float))))
    (pointer-eq p-float end)
  (calculate p-float))

Исправление monk, 13.11.23 21:37:

(do ((p-float start (inc-pointer p-float (foreign-type-size :float))))
    (pointer-eq p-float end)
  (calculate p-float))

Исправление monk, 13.11.23 21:37:

(do ((p-float start (inc-pointer p-float (foreign-type-size :float)))
    (pointer-eq p-float end)
  (calculate p-float))

Исправление monk, 13.11.23 21:37:

(do ((p-float start (inc-pointer p-float (foreign-type-size :double)))
    (pointer-eq p-float end)
  (calculate p-float))

Исправление monk, 13.11.23 21:34:

(do ((p-float start (inc-pointer p-float))
    (pointer-eq p-float end)
  (calculate p-float))

Исходная версия monk, 13.11.23 21:34:

(do ((p-float start (inc-pointer p-float))
    (pointer-rq p-float end)
  (calculate p-float))