Plaster

(defclass my-class (standard-class) ())

​

(defmethod initialize-instance :around ((class my-class) &key)

  (let ((instance (call-next-method)))

    (format t "I got an instance: ~S~%" instance)

    instance))

​

(defmethod c2mop:validate-superclass ((c my-class) (s standard-class)) t)

​

​

​

CL-USER> (defclass foo () () 

           (:metaclass my-class))

; I got an instance: #<MY-CLASS COMMON-LISP-USER::FOO {10106063D3}>

#<MY-CLASS COMMON-LISP-USER::FOO>