From 67224a4d49a701a780ccff0e5bb5923d1f2c9b98 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sun, 15 Nov 2009 11:02:26 +0100
Subject: [PATCH] src/clos/standard.lsp: a previous patch prevented class slots
 to be reinitialized.

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

diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index 98126e59b..f285504c8 100644
--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -70,7 +70,6 @@
 	 (when (and slot-names
 		    (or (eq slot-names 'T)
 			(member slot-name slot-names))
-		    (not (eq (slot-definition-allocation slotd) :class))
 		    (not (slot-boundp instance slot-name)))
 	   (let ((initfun (slot-definition-initfunction slotd)))
 	     (when initfun