anchor.diff:    (declare (type symbol stream))
     (when (eq stream 't)
       (setq stream '*standard-output*))
  -  (let ((parent (gensym)))
  +  (with-gensyms (parent)
       `(progn
          (let ((,parent (stream-current-output-record ,stream)))
            (assert (table-output-record-p ,parent)))
  
positive.code:   ;; FIXME!!! Possible recomputation
    (when (eq stream t)
      (setq stream '*standard-output*))
    (let ((table (gensym "TABLE"))
          (cursor-old-x (gensym "CURSOR-OLD-X-"))
          (cursor-old-y (gensym "CURSOR-OLD-Y-")))
      `(with-new-output-record
           (,stream ,record-type ,table
                    :x-spacing (parse-space ,stream ,(or x-spacing #\Space)
  
negative.code:                                                `(stream-vertical-spacing ,stream))
                                            :vertical)
                    :multiple-columns ,multiple-columns
                    :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)
  