From: Lars Rune Nøstdal
Subject: Re: virtual, static, member (?)
Date: Fri, 21 Nov 2008 00:26:30 +0000
Message-ID: <1227227190.16144.35.camel@blackbox.nostdal.org>

sorry, drunk .. again:


(defmethod get-obj (id class)
  (when (symbolp class)
    (setf class (find-class class)))
  (multiple-value-bind (object-cache found-p)
      (gethash class (global-object-cache-mapping-of (closer-mop:class-prototype class)))
    (if found-p
        (gethash id object-cache)
        (error "No object cache for ~A." class))))



AMU> (let ((obj-a (make-instance 'test))
           (obj-b (make-instance 'test2)))
       (assert (and (equal (get-obj (id-of obj-a) 'test)
                           obj-a)
                    (equal (get-obj (id-of obj-b) 'test2)
                           obj-b))))


hm .. yay, it seems to work! .. i gotta try this out now; so i'll stop
spamming :}