#19 declare optimize speed for distance-coords -- increase of 20%

mck- · Mar 13, 2012 · 94d355b · 94d355b
1 parent 9b4a797
commit 94d355b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/network.lisp b/lib/network.lisp
@@ -14,6 +14,7 @@
 
 (defun distance-coords (x1 y1 x2 y2)
   "Calculates pythagoras distance"
+  (declare (optimize (speed 3))
   (flet ((square (x)
 	   (* x x)))
     (sqrt (+ (square (- x1 x2)) (square (- y1 y2))))))