Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/pcl/dfun.lisp [3820ea] .. [ea1220] Maximize Restore

  Switch to side-by-side view

--- a/src/pcl/dfun.lisp
+++ b/src/pcl/dfun.lisp
@@ -906,7 +906,11 @@
 		    (if (consp method)
 			(eq *the-class-standard-writer-method*
 			    (early-method-class method))
-			(standard-writer-method-p method)))
+			(and
+			 (standard-writer-method-p method)
+			 (eq (slot-definition-type
+			      (accessor-method-slot-definition method))
+			     t))))
 		  methods)
 	   'writer))))
 
@@ -1282,7 +1286,9 @@
 			 (find-slot-definition accessor-class slot-name)))))
     (when (and slotd
 	       (or early-p
-		   (slot-accessor-std-p slotd accessor-type)))
+		   (slot-accessor-std-p slotd accessor-type))
+	       (or early-p
+		   (eq (slot-definition-type slotd) t)))
       (values (if early-p
 		  (early-slot-definition-location slotd)
 		  (slot-definition-location slotd))