anchor.diff:            (setf (stream-cursor-position stream)
                   (values (bounding-rectangle-max-x item-list)
                           (bounding-rectangle-max-y item-list)))
  -        (setf (stream-cursor-position stream)
  -              (values cursor-old-x cursor-old-y)))
  +          (setf (stream-cursor-position stream)
  +                (values cursor-old-x cursor-old-y)))
         (replay item-list stream)
         item-list)))
   
   (defun format-items (items
                        &rest args
                        &key (stream *standard-output*)
  -                          printer presentation-type
  -                          cell-align-x cell-align-y
  -                     &allow-other-keys)
  +                       printer presentation-type
  +                       cell-align-x cell-align-y
  +                       &allow-other-keys)
     (let ((printer (if printer
                        (if presentation-type
                            #'(lambda (item stream)
  
positive.code:                                           &rest more
                                            &key (record-type
                                                  ''standard-column-output-record))
                                  &body body)
      (setf stream (stream-designator-symbol stream '*standard-output*))
      (with-gensyms (record)
        (with-keywords-removed (more (:record-type))
  
negative.code: 
  (defun invoke-format-item-list (stream continuation
                                  &key x-spacing y-spacing n-columns n-rows
                                    max-width max-height
                                    initial-spacing (row-wise t) (move-cursor t)
                                    (record-type
                                     'standard-item-list-output-record))
    (setq x-spacing (parse-space stream (or x-spacing #\Space) :horizontal))
    (setq y-spacing (parse-space stream (or y-spacing
                                            (stream-vertical-spacing stream))
  