anchor.diff:      reply))
   
   (defun create-msg-lambda-list (lambda-list)
  -  ;;; Create a message lambda list from a reply lambda list
  +  "Create a message lambda list from a reply lambda list"
     (loop for x in lambda-list
        collect (if (consp x) (list (car x)) x)
        if (eq x '&key) do (loop-finish)))
  
positive.code:                  (sheep-direct-roles sheep) :key 'role-reply)
      t))
  
  (defun ensure-reply (name &rest all-keys
                       &key lambda-list participants
                       &allow-other-keys)
  
negative.code:     (values name
              qualifiers
              lambda-list)))
  
  