(defclass my-class (...) (...))
(defvar *my-class-instances* nil)
(defmethod initialize-instance ((self my-class) ...)
(call-next-method) ; initialize base classes
(push self *my-class-instances*) ; add to instance list
; your own instance initialization here
)
Users browsing this forum: Google [Bot] and 1 guest