Fix typo in string.

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index d7bab6f..0995883 100644 (file)
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -331,7 +331,7 @@
                 (error 'arithmetic-error
                        :operation fop
                        :operands operands)
-                (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D"
+                (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D)"
                        code)))))))
 
 ;;; WITH-FLOAT-TRAPS-MASKED  --  Public