X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffloat-trap.lisp;h=8aaae61ccdafc7c502afb64ac36367d578d9e866;hb=d48e55084636a84d1b54f1f7370fa98c55f3ec6e;hp=fcb29d0f41a6d363fa4b31c02912de9d65acd6fa;hpb=506253505641855dc8bb87033f7af894904f848b;p=sbcl.git

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index fcb29d0..8aaae61 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -137,7 +137,7 @@
 
 ;;; Signal the appropriate condition when we get a floating-point error.
 (defun sigfpe-handler (signal info context)
-  (declare (ignore signal info context))
+  (declare (ignore signal info))
   (declare (type system-area-pointer context))
   (let* ((modes (context-floating-point-modes
 		 (sb!alien:sap-alien context (* os-context-t))))