Skip to content
Snippets Groups Projects
Commit 6b6e7abd authored by rtoy's avatar rtoy
Browse files

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))
parent 766ad7a3
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment