From b529872b2c3aeca9f9994b94c392383baea2c84a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 21 Jun 2011 00:32:24 +0000
Subject: 	* lisp/core.lisp.in (%fNaN?): New. 	*
 interp/spaderror.lisp (trapNumericErrors): Handle 	ARITHMETIC-ERROR too. 
 * interp/g-opt.boot ($VMsideEffectFreeOperators): Include %fNaN?. 	*
 algebra/clip.spad.pamphlet (TwoDimensionalPlotClipping): Use it. 	*
 algebra/plot.spad.pamphlet (Plot): Likewise.

---
 src/interp/spaderror.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/interp/spaderror.lisp')

diff --git a/src/interp/spaderror.lisp b/src/interp/spaderror.lisp
index 7d65b506..2967dc27 100644
--- a/src/interp/spaderror.lisp
+++ b/src/interp/spaderror.lisp
@@ -60,9 +60,8 @@
 
 #-:gcl
 (defmacro |trapNumericErrors| (form)
-  `(handler-bind ((division-by-zero
-		   #'(lambda (c) (declare (ignore c)) |%nothing|)))
-		 ,form))
+  `(handler-case ,form
+		 (arithmetic-error () |%nothing|)))
 
 ;; the following form embeds around the akcl error handler
 #+:gcl
-- 
cgit v1.2.3