Attempt to fix SBCL compile error in examples.

lispbuilder · Mar 24, 2019 · 589b3c6 · 589b3c6
1 parent c184151
commit 589b3c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lispbuilder-sdl/examples/metaballs.lisp b/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)))))