Skip to content
Permalink
Browse files

Attempt to fix SBCL compile error in examples.

  • Loading branch information...
elliottslaughter committed Mar 24, 2019
1 parent c184151 commit 589b3c6d552bbec4b520f61388117d6c7b3de5ab
Showing with 1 addition and 1 deletion.
  1. +1 −1 lispbuilder-sdl/examples/metaballs.lisp
@@ -79,7 +79,7 @@
(declare (optimize (safety 0) (speed 3) (space 1))
(type fixnum strength)
(type float ival))
(setf (metaball-r mball) (sdl:cast float (sqrt (/ strength ival))))
(setf (metaball-r mball) (sdl:cast float (realpart (sqrt (/ strength ival)))))
;; Note: (/ 256 64) probably needs to change to screen-width and squares.
(setf (metaball-sqr mball) (sdl:cast float (/ (metaball-r mball) (/ 256 64)))))

0 comments on commit 589b3c6

Please sign in to comment.
You can’t perform that action at this time.