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:        (ensure-reply reader
                       :lambda-list '(sheep)
                       :participants (list sheep)
                       :function (eval (make-reply-lambda reader
                                                          '(sheep)
                                                          `((property-value sheep ',prop-name)))))))
  