anchor.diff:    ;; we're able to latch on to the lexical environment the reply was defined in (so they can be
     ;; closures)
     message qualifiers lambda-list
  -  (body '(lambda () nil)) ; I could get rid of this. It makes messages pretty heavy...
     (function (lambda () nil)))
   
   (defun reply-name (reply)
  
positive.code:       :lambda-list ',ll
        :participants (list ,@participants)
        :documentation ,docstring
        :function ,(make-reply-lambda name ll body)
        :body '(block ,name ,@body))))
  
  (defun make-reply-lambda (name lambda-list body)
    (let* ((msg (find-message name nil))
  
negative.code:                        participants
                         message
                         function
                         (documentation ""))
    (let ((reply (%make-reply
                  :message message
                  :lambda-list lambda-list
                  :qualifiers qualifiers
                  :function function
                  :documentation documentation)))
      (remove-specific-reply message qualifiers participants)
      (add-reply-to-message reply message)
  