anchor.diff:        :lambda-list ',ll
         :participants (list ,@participants)
         :documentation ,docstring
  -      :function ,(make-reply-lambda name ll body)
  -      :body '(block ,name ,@body))))
  +      :function ,(make-reply-lambda name ll body))))
   
   (defun make-reply-lambda (name lambda-list body)
     (let* ((msg (find-message name nil))
  
positive.code:        (ensure-reply writer
                       :lambda-list '(new-value sheep)
                       :participants (list =t= sheep)
                       :body `(setf (property-value sheep ',prop-name) new-value)
                       :function (eval (make-reply-lambda writer
                                                          '(new-value sheep)
                                                          `((setf (property-value sheep ',prop-name)
  
negative.code:        (ensure-reply reader
                       :lambda-list '(sheep)
                       :participants (list sheep)
                       :function (eval (make-reply-lambda reader
                                                          '(sheep)
                                                          `((property-value sheep ',prop-name)))))))
  