# Pastebin lGJcWMTO
what I wanted was this beauty - (defmacro add-trigger (slot obj)
           `(defmethod (setf ,slot) :after (new-value (object (eql ,obj)))
              (print "==========")))