-
- Downloads
"README.md" did not exist on "6c8db206827302c7dd5cf4ce06c069cfe5c4df64"
Fix issue with slot-value-using-class and
get-accessor-method-function. See cmucl-imp, 2008/04/03, PCL bug?. Bug and link to solution provided by Hans Hubner. Solution based on sbcl patch 0.8.14.27. Here's the test case: (in-package :cl-user) (use-package :pcl) (defclass test-metaclass (standard-class) ()) (defmethod validate-superclass ((sub test-metaclass) (super standard-class)) t) (defmethod (setf slot-value-using-class) :before (newval (class test-metaclass) object slotd) (print 'setf-slot-value-using-class-before)) (defmethod (setf slot-value-using-class) :after (newval (class test-metaclass) object slotd) (print 'setf-slot-value-using-class-after)) (defclass test-class () (slot) (:metaclass test-metaclass))
Loading
Please register or sign in to comment