diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-22 12:52:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-22 12:52:47 +0000 |
| commit | 044ec4f17ae0098af6dba5a02787d39a7558e1e1 (patch) | |
| tree | f2768795feb93691dc073ca3e01f865606fb8a55 /src/interp/spaderror.lisp | |
| parent | 507f80f13241b81d794003f4f9117bc145fdfdf1 (diff) | |
| download | open-axiom-044ec4f17ae0098af6dba5a02787d39a7558e1e1.tar.gz | |
* interp/spaderror.lisp (trapNumericErrors): Fix typo.
Diffstat (limited to 'src/interp/spaderror.lisp')
| -rw-r--r-- | src/interp/spaderror.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/spaderror.lisp b/src/interp/spaderror.lisp index 2967dc27..3a07ad21 100644 --- a/src/interp/spaderror.lisp +++ b/src/interp/spaderror.lisp @@ -54,9 +54,9 @@ #+:gcl (defmacro |trapNumericErrors| (form) `(let ((|$oldBreakMode| |$BreakMode|) - (|$BreakMode| '|trapNumerics|)) - (val)) - (catch '|trapNumerics| ,form)) + (|$BreakMode| '|trapNumerics|) + (val)) + (catch '|trapNumerics| ,form))) #-:gcl (defmacro |trapNumericErrors| (form) |