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