🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.clos
Article #147

Example of other slot :allocation

#147
From: Thomas_E_Morgan
Date: Wed, 19 Aug 1992 00:06
29 lines
1661 bytes
Back again; I got PCL running on MCL 2.0 (but slowly - still trying to
find out how to do the implimentation specific code for funcallable instances 
from Apple. In the mean time its running with closures and a hash table for the
 fins)

Now I've got a question on slots with allocation other than :instance
or :class in the Aug 4 version of PCL.

Apparently, there are some slots in the STANDARD-EFFECTIVE-SLOT-DEFINITION
(for BOUNDP-FUNCTION, READER-FUNCTION and WRITER-FUNCTION) that get initialized
for slots with :allocation :instance or :class.

I need to make slots with dynamic allocation, something like the 
example on page 101 of the MOP book.

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 
Technical Details
Message-ID: <64244@cup.portal.com>
Path: arc1-ca.pugleaf.net!sparky!uunet!portal!cup.portal.com!Thomas_E_Morgan

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!portal!cup.portal.com!Thomas_E_Morgan
From: Thomas_E_Morgan@cup.portal.com
Newsgroups: comp.lang.clos
Subject: Example of other slot :allocation
Message-ID: <64244@cup.portal.com>
Date: Tue, 18 Aug 92 17:06:45 PDT
Organization: The Portal System (TM)
Distribution: world
Lines: 29