stklos-modification

From: Thomas Buerger <buerger_at_serv1.iaa.tu-clausthal.de>
Date: Fri, 15 May 1998 12:38:27 +0200 (MET DST)

In CHANGES one finds:
--------
   About STklos
...
   * Standard behavior of class slots is now identical to
     CLOS: when a class-slot is inherited, it is shared
     with instances of the superclass. If it is redefined,
     a new slot is created
...

This is nice! But I need also the behaviour of STk-3.1 in my application.
So I patched stklos.stk defining a :thisclass-SLOT with the
behaviour of the :class-SLOT in STk-3.1:

$ diff stklos.stk.orig stklos.stk
658a659,665
> (:thisclass ;; As in STk-3.1:
> ;; shared by objects of only one class and not its derived
> ;; objects! (Thomas Buerger, April 1998)
> (let ((shared-cell (make-vector 1)))
> (list (lambda (o) (vector-ref shared-cell 0))
> (lambda (o v) (vector-set! shared-cell 0 v)))))
>

Perhaps this "feature" can be integrated in future STk-Versions?

Thomas

-- 
****************************************************************************
INSTITUT FUER APPARATEBAU UND ANLAGENTECHNIK      Dipl.-Ing. Thomas Buerger
     TECHNISCHE UNIVERSITAET CLAUSTHAL            Tel.: (49)5323/953-412
               Am Regenbogen 15                   Fax.: (49)5323/953-499
       D-38678 Clausthal-Z. (Germany)  Email:thomas.buerger_at_tu-clausthal.de
Schwerpunkt: Einsatz der Nahbereichsphotogrammetrie im Anlagenbau.
    Project: Application of close-range-photogrammetry in plant engineering.
*************************************************** FIAT LinUX ;-) ********* 

Received on Fri May 15 1998 - 11:36:19 CEST