anchor.diff:  
   (defmethod invoke-formatting-row (stream cont record-type &rest initargs)
     (apply #'invoke-with-new-output-record stream
  -	 (lambda (s r)
  -	   (declare (ignore r))
  -	   (funcall cont s))
  -	 record-type initargs))
  +         (lambda (s r)
  +           (declare (ignore r))
  +           (funcall cont s))
  +         record-type initargs))
   
    
  
positive.code:              (map-over-output-records
                (lambda (record)
                  (if (row-output-record-p record)
  		    (funcall function record)
  		    (row-mapper record)))
                table-record)))
      (declare (dynamic-extent #'row-mapper))
      (row-mapper table-record)))
  
negative.code:                              (present item presentation-type :stream stream))
                           #'prin1))))
      (with-keywords-removed (args (:stream :printer :presentation-type
                                            :cell-align-x :cell-align-y))
        (apply #'invoke-format-item-list
               stream
               #'(lambda (stream)
  