From: Lars Rune Nøstdal
Subject: Re: virtual, static, member (?)
Date:
Message-ID: <1227225191.16144.21.camel@blackbox.nostdal.org>
On Thu, 2008-11-20 at 18:49 -0500, Kenny wrote:
> Lars Rune Nøstdal wrote:
> > err, ups .. correct version:
> >
> > (let ((id-generators (make-hash-table :test #'eq :weakness :key)))
> > (defmethod generate-id-for (object)
> > (multiple-value-bind (id-generator found-p)
> > (gethash (class-of object) id-generators)
> > (if found-p
> > (funcall id-generator)
> > (prog1 0
> > (setf (gethash (class-of object) id-generators)
> > (let ((id 0))
> > (lambda () (incf id)))))))))
>
> I am alarmed at identity being identical only in conjunction with
> class-of.
..it isn't; at least not if i missed something here (again) .. i posted
this the minute i wrote it