diff --git a/code/interr.lisp b/code/interr.lisp
index 3759ad3055b327a6adc0918cbf16694a035a679f..e61dac6ada3a3ddac55a710e84681e70977b3128 100644
--- a/code/interr.lisp
+++ b/code/interr.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.7 1990/08/12 00:40:55 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.8 1990/08/14 16:27:23 wlott Exp $
 ;;;
 ;;; Functions and macros to define and deal with internal errors (i.e.
 ;;; problems that can be signaled from assembler code).
@@ -107,6 +107,7 @@
 	      ,(meta-error-number name)
 	      ,description
 	      #'(lambda (name ,fp ,sigcontext ,sc-offsets)
+		  (declare (ignorable name ,fp ,sigcontext ,sc-offset))
 		  (macrolet ((set-value (var value)
 			       (let ((pos (position var ',required)))
 				 (unless pos