anchor.diff:  (defmethod get-object-event ((object sup:event))
     object)
   
  +(defmethod name ((object sup:event))
  +  (sup:event-name object))
  +
   (defmethod print-object ((object sup:event) stream)
     (print-unreadable-object (object stream :type t :identity t)
       (let ((name (sup:event-name object)))
  
positive.code:   (:default-initargs :name nil :capacity nil))
  
  (defmethod print-object ((object mailbox) stream)
    (cond ((mailbox-name object)
           (print-unreadable-object (object stream :type t :identity t)
             (format stream "~A" (mailbox-name object))))
          (t
           (print-unreadable-object (object stream :type t :identity t)))))
  
  
negative.code: (defmethod get-object-event ((object sup:simple-irq))
    (sup::simple-irq-event object))
  
  (defmethod name ((object sup:simple-irq))
    `(:irq ,(sup:simple-irq-irq object)))
  
  (defmethod print-object ((object sup:simple-irq) stream)
    (print-unreadable-object (object stream :type t :identity t)
      (format stream ":Irq ~A :Pending ~A :Masked ~A"
  