🚀 go-pugleaf

In article <64244@cup.portal.com> Thomas_E_Morgan@cup.portal.com writes:
>
>Now I've got a question on slots with allocation other than :instance
>or :class in the Aug 4 version of PCL.
> [...]
>When I make slots with :allocation :versioned, and supply the various
>ALLOCATE-INSTANCE, and SLOT-xxx-USING-CLASS behaviors to deal with
>slots with this :allocation, I'm missing some necessary step to make
>the slots  BOUNDP-FUNCTION, READER-FUNCTION WRITER-FUNCTION 
>of STANDARD-EFFECTIVE-SLOT-DEFINITION useable - I get failures because
>BOUNDP-FUNCTION is unbound, long before getting to my SLOT-xxx-USING-CLASS
>methods. 
>
>Can anyone suggest where I can look to see a working example of slots with
>allocation other than :instance or :class for this PCL version, or where
>in the PCL code I can see the protocol for initializing these slots.
>
>   Thanks
>   ...Tom M 

This looks like a bug from March-92-PCL that is apparently still in the
(unstable) August 4 version of PCL.  The problem is that the PCL internal
function INITIALIZE-INTERNAL-SLOT-FUNCTIONS is not called on effective
slot definitions that aren't of :allocation :instance or :class.

This bug is fixed in July 92 PCL, which is relatively stable.  So I would
suggest either using July 92 PCL;  or you can try replacing August 4's :around
method on COMPUTE-SLOTS specialized on std-class (in std-class.lisp)
with the one in July 92 (no guarantees here, however).

- Trent Lange

P.S.  Let us know when you get the final patches for MCL 2.0 so we can
include them in the next versions of PCL.