mcclim.diff

so I don't forget about this...

modified   Core/clim-basic/recording.lisp
@@ -1328,7 +1328,7 @@ were added."
                              (multiple-value-bind (ex2 ey2)
                                  (normalize-coords (- x xn) (- y yn))
                                (let* ((cos-a (+ (* ex1 ex2) (* ey1 ey2)))
-                                      (sin-a/2 (sqrt (* 0.5 (- 1.0 cos-a)))))
+                                      (sin-a/2 (realpart (sqrt (* 0.5 (- 1.0 cos-a))))))
                                  (if (< sin-a/2 sin-limit)
                                      (let ((nx (* border
                                                   (max (abs ey1) (abs ey2))))