anchor.diff:  
   (defmethod get-object-event ((object sup:timer))
     (sup::timer-event object))
  +
  +(defmethod name ((object sup:timer))
  +  (sup:timer-name object))
   
   (defmethod print-object ((object sup:timer) stream)
     (print-unreadable-object (object stream :type t :identity t)
  
positive.code: 
             #:semaphore
             #:make-semaphore
             #:semaphore-name
             #:semaphore-value
             #:semaphore-limit
             #:semaphore-up
  
negative.code: 
             #:mailbox
             #:make-mailbox
             #:mailbox-capacity
             #:mailbox-n-pending-messages
             #:mailbox-empty-p
  