diff options
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) |