Fix a regression in class accessors.

[sbcl.git] / src / pcl / dfun.lisp

diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp
index bb5d890..7fe8491 100644 (file)
--- 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)