Skip to content
Snippets Groups Projects
Commit 809d1e8a authored by wlott's avatar wlott
Browse files

Added declare ignorable to the lambda created by deferr, so the args don't

have to be used.
parent 8cdb44b6
Branches
Tags
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; Functions and macros to define and deal with internal errors (i.e.
;;; problems that can be signaled from assembler code). ;;; problems that can be signaled from assembler code).
...@@ -107,6 +107,7 @@ ...@@ -107,6 +107,7 @@
,(meta-error-number name) ,(meta-error-number name)
,description ,description
#'(lambda (name ,fp ,sigcontext ,sc-offsets) #'(lambda (name ,fp ,sigcontext ,sc-offsets)
(declare (ignorable name ,fp ,sigcontext ,sc-offset))
(macrolet ((set-value (var value) (macrolet ((set-value (var value)
(let ((pos (position var ',required))) (let ((pos (position var ',required)))
(unless pos (unless pos
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment