Fix division by zero.

mishoo · Jun 19, 2015 · 39d1519 · 39d1519
1 parent c42d452
commit 39d1519
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/squeeze.lisp b/src/squeeze.lisp
@@ -18,7 +18,8 @@
     (:method ((op (eql :*)) (left number) (right number))
       (* left right))
     (:method ((op (eql :/)) (left number) (right number))
-      (/ left right))
+      (unless (zerop right)
+	(/ left right)))
     (:method ((op (eql :<<)) (left number) (right number))
       (ash left right))
     (:method ((op (eql :>>)) (left number) (right number))