From daf5ecc82c7f002c7f171de2595450e8d3d4f561 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Mon, 24 Jan 2011 22:21:03 +0100
Subject: [PATCH] In std-class-sealed-accessor, fixed typo in declaration (J.
 James).

---
 src/clos/standard.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index 8bc77c774..45b0f85b5 100644
--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -598,7 +598,7 @@ because it contains a reference to the undefined class~%  ~A"
 
 (defun std-class-sealed-accessors (index)
   (declare (si::c-local)
-	   (fixnum slot-index))
+	   (fixnum index))
   (values #'(lambda (self)
               (declare (optimize (safety 1) (speed 3) (debug 0))
                        (standard-object self))