From bca1f4053a039ee65aaf5dde4c39d3ceccc1bf91 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Fri, 12 Oct 2012 12:14:27 +0200
Subject: [PATCH] All accessors are now generic functions, including slot
 definition's ones

---
 src/clos/std-accessors.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/clos/std-accessors.lsp b/src/clos/std-accessors.lsp
index a046980fb..a53c08ad3 100644
--- a/src/clos/std-accessors.lsp
+++ b/src/clos/std-accessors.lsp
@@ -197,6 +197,7 @@
 (labels ((generate-accessors (class)
 	   (declare (optimize speed (safety 0)))
 	   (if (and (typep class 'std-class)
+		    #+(or)
 		    (not (member (slot-value class 'name)
 				 '(slot-definition
 				   direct-slot-definition