anchor.diff:      (values name
               qualifiers
               lambda-list)))
  +
  
positive.code: (defun add-reply-to-message (reply message)
    (set-arg-info message :new-reply reply)
    (push reply (message-replies message)))
  
  (defun remove-specific-reply (message qualifiers participants)
    (let ((reply (find-if (lambda (msg)
  
negative.code:     reply))
  
  (defun create-msg-lambda-list (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)))
  