anchor.diff:    ;; 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-gensyms (table cursor-old-x cursor-old-y)
       `(with-new-output-record
            (,stream ,record-type ,table
                     :x-spacing (parse-space ,stream ,(or x-spacing #\Space)
  
positive.code:   (check-type stream symbol)
    (when (eq stream 't)
      (setq stream '*standard-output*))
    (let ((record (gensym "RECORD"))
          (parent (gensym "PARENT")))
      `(progn
         (let ((,parent (stream-current-output-record ,stream)))
           (assert (or (row-output-record-p ,parent)
  
negative.code:   (declare (type symbol stream))
    (when (eq stream 't)
      (setq stream '*standard-output*))
    (with-gensyms (parent)
      `(progn
         (let ((,parent (stream-current-output-record ,stream)))
           (assert (table-output-record-p ,parent)))
  