From 3f681b0c398b76630956a41d2cb7058b36d9c32a Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 14 Aug 1990 16:34:25 +0000 Subject: [PATCH] typo. --- code/interr.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/interr.lisp b/code/interr.lisp index e61dac6ad..def62d506 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.8 1990/08/14 16:27:23 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.9 1990/08/14 16:34:25 wlott Exp $ ;;; ;;; Functions and macros to define and deal with internal errors (i.e. ;;; problems that can be signaled from assembler code). @@ -107,7 +107,7 @@ ,(meta-error-number name) ,description #'(lambda (name ,fp ,sigcontext ,sc-offsets) - (declare (ignorable name ,fp ,sigcontext ,sc-offset)) + (declare (ignorable name ,fp ,sigcontext ,sc-offsets)) (macrolet ((set-value (var value) (let ((pos (position var ',required))) (unless pos -- GitLab