anchor.diff:    (call-next-method))
   
   
  -;;;; IR Repository Pattern 
  +;;;; IR Repository Pattern
   
   (defclass REPOSITORY-PATTERN (pattern)
     ())
  
positive.code:     (setf (object-connection obj) *test-out-conn*)
      obj))
  
  (defun test-read-request (&key 
                               (stream *test-sink-stream*)
                               (orb *the-orb*) buffer 
                               request-pattern request-keys
                               args )
    (unless buffer (setq buffer (get-work-buffer orb)))
  
negative.code:         do (let ((def (op:lookup object name)))
               (cond ((null def) (fail-match object "has no definition named ~S" name))
                     (t
                      (handler-case
                        (match pattern def)
                        (match-fail (condition)
                                    (fail-match object "~S ~A" name (match-fail-message condition)))))))))
  