From 809d1e8ac268f3fa8659d8540d1bfa359c880966 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 14 Aug 1990 16:27:23 +0000
Subject: [PATCH] Added declare ignorable to the lambda created by deferr, so
 the args don't have to be used.

---
 code/interr.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/interr.lisp b/code/interr.lisp
index 3759ad305..e61dac6ad 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
-- 
GitLab