X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdfun.lisp;h=7fe8491f425e000feec1c7873d25c9345d3299a1;hb=3b9d0f932481fbc9cf2eabc5bb160452927682b6;hp=bb5d8902288a4e968d31ed745e1d09247b125149;hpb=b14a61c6af3e3005c94e633e727177346240066e;p=sbcl.git

diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp
index bb5d890..7fe8491 100644
--- a/src/pcl/dfun.lisp
+++ b/src/pcl/dfun.lisp
@@ -1201,7 +1201,7 @@ Except see also BREAK-VICIOUS-METACIRCLE.  -- CSR, 2003-05-28
             ((and (consp meth)
                   (early-method-standard-accessor-p meth))
              (early-method-standard-accessor-slot-name meth))
-            ((and (atom meth)
+            ((and (accessor-method-p meth)
                   (member *the-class-standard-object*
                           (if early-p
                               (early-class-precedence-list accessor-class)