X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdocumentation.lisp;h=df24ea81ca2244087b23375110daf57797c2cfc7;hb=80f222325e1f677e5cf8de01c6990906fa47f65d;hp=b728992f92b0b59ff746dbf81c83b739aaca598b;hpb=c7de1989d006e0b3a4f26143b7a81c9bdb754101;p=sbcl.git

diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp
index b728992..df24ea8 100644
--- a/src/pcl/documentation.lisp
+++ b/src/pcl/documentation.lisp
@@ -101,12 +101,12 @@
   (setf (random-documentation x 'method-combination) new-value))
 
 ;;; methods
-(defmethod documentation ((method standard-method) (doc-type (eql 't)))
-  (slot-value slotd 'documentation))
+(defmethod documentation ((x standard-method) (doc-type (eql 't)))
+  (slot-value x 'documentation))
 
 (defmethod (setf documentation)
-    (new-value (method standard-method) (doc-type (eql 't)))
-  (setf (slot-value method 'documentation) new-value))
+    (new-value (x standard-method) (doc-type (eql 't)))
+  (setf (slot-value x 'documentation) new-value))
 
 ;;; packages