From ...
From: Erik Naggum <clerik@naggum.no>
Subject: Re: Inherited shared slots
Date: 1998/04/15
Message-ID: <3101601770297297@naggum.no>#1/1
X-Deja-AN: 344183320
References: <gat-1304981159400001@milo.jpl.nasa.gov> <3101493995517947@naggum.no> <gat-1404980954500001@milo.jpl.nasa.gov>
mail-copies-to: never
Organization: Naggum Software; +47 8800 8879; http://www.naggum.no
Newsgroups: comp.lang.lisp


* Erann Gat
| Almost.  In also want a second class, baz, that inherits from foo
| to have a shared slot that is distinct from the one shared by all
| instances of bar.  i.e. if I do:
| 
|   (defclass baz (foo) ())
| 
| then
| 
|   (eq (setf (slot-value (make-instance 'baz) 'zot) (cons nil nil))
|       (slot-value (make-instance 'bar) 'zot))
| 
| should return nil.

  continuing the example,

(defclass baz (foo)
  ((zot :allocation :class :initform ())))

  should do that.

#:Erik
-- 
  religious cult update in light of new scientific discoveries:
  "when we cannot go to the comet, the comet must come to us."