diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/spaderror.lisp | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index d9f908ed..66a108af 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2011-06-22 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/spaderror.lisp (trapNumericErrors): Fix typo. + +2011-06-22 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/g-opt.boot ($VMsideEffectFreeOperators): Include FUNCALL. ($simpleVMoperators): Include SPADCALL. 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) |