slot-method-using-class

[Christian Rathke <rathke@is.informatik.uni-stuttgart.de>]

there seems to be a problem in May-Day-PCL (under LUCID 3.0) with extending
slot-method-using-class.  The following does not lead to the execution of the
additional before method:

    (in-package 'pcl)
    
    (defclass foo () ((x :initform nil)))
    
    (defmethod slot-value-using-class :before ((c standard-class) (o foo) slotname)
      (format t "~%executing slot-value-using-class"))
    
    (setq bar (make-instance 'foo))
    
    (slot-value-using-class (find-class 'foo) bar 'x)



This used to work in Victoria-Day-PCL. Please help. Thank you.

	-Christian

==============================================================================
Christian Rathke                            rathke@informatik.uni-stuttgart.de
Institut fuer Informatik
Universitaet Stuttgart
Forststrasse 86
D - 7000 Stuttgart 1                                  Tel.: (+49 711) 121-1436
==============================================================================