anchor.diff:                :multiple-columns-x-spacing multiple-columns-x-spacing
                 :equalize-column-widths equalize-column-widths)
       (multiple-value-bind (cursor-old-x cursor-old-y)
  -	(stream-cursor-position stream)
  +        (stream-cursor-position stream)
         (with-output-recording-options (stream :record t :draw nil)
           (funcall continuation stream)
           (force-output stream))
  
positive.code:                       #'(lambda (item)
                            (formatting-cell (stream :align-x cell-align-x
                                                     :align-y cell-align-y)
                                             (funcall printer item stream)))
                        items))
               args))))
  
  
negative.code:              (map-over-output-records
                (lambda (record)
                  (if (cell-output-record-p record)
                      (funcall function record)
                      (foo record)))
                row-record)))
      (declare (dynamic-extent #'foo))
      (foo block)))
  