From 264836b63f7ccd44453f9f1209e77dd1e5133ae8 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 15 Jul 2003 13:51:41 +0000
Subject: [PATCH] Fix bug that prevented (SETF DOCUMENTATION) from working with
 classes

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

diff --git a/src/clos/inspect.lsp b/src/clos/inspect.lsp
index 75223960f..551fc67da 100644
--- a/src/clos/inspect.lsp
+++ b/src/clos/inspect.lsp
@@ -463,7 +463,7 @@ q (or Q):             quits the inspection.~%~
   (when (member doc-type '(t type))
     (si::get-documentation (class-name object) 'structure)))
 
-(defmethod (setf documentation) (new-value (object class) doc-type)
+(defmethod (setf documentation) (new-value (object structure-class) doc-type)
   (when (member doc-type '(t type))
     (setf (documentation (class-name object) 'structure) new-value)))