(in-package :xit)
(defparameter dr-inst nil)
(defmethod initialize-instance :around ((self drawable) &rest init-args)
   (prog1 (call-next-method)
          (if (eq (class-of self) (find-class 'drawable))
	      (progn (push self dr-inst)
		     (format t "~% ++++++ A drawable was initialized ++++++~%")
		     (break)))))
