anchor.diff:    (ensure-reply reader
                   :lambda-list '(object)
                   :participants (list object)
  -                :function (eval (make-reply-lambda reader '(object) ()
  -                                                   `((property-value object ',prop-name))))))
  +                :function (eval (make-reply-lambda
  +                                 `(lambda (object) (property-value object ',prop-name))))))
   
   (defun add-readers-to-object (readers prop-name object)
     (map nil (fun (add-reader-to-object _ prop-name object)) readers)
  
positive.code:                        :lambda-list ',lambda-list
                         :participants (list ,@participants)
                         :documentation ,docstring
                         :function ,(make-reply-lambda name lambda-list ignorable
            #|| FIXME: This is such a kludge ||#       (append declarations body)))))))
  
  (defun make-reply-lambda (name lambda-list ignorable body)
    (with-gensyms (args next-erfun reply-function)
      `(lambda (,args ,next-erfun)
         (declare (ignorable ,next-erfun))
  
negative.code:                     (error "No next reply")
                      (funcall ,next-erfun (or cnr-args ,args)))))
           (declare (ignorable #'next-reply-p #'call-next-reply))
           (flet ((,reply-function ,@(cdr lambda-expression)))
             (declare (inline ,reply-function))
             (apply #',reply-function ,args))))))
  
  