anchor.diff:    (%with-brackets str info
       (++! (car (print-info-columns info)))
       (%late-print (car .x.) str info)
  -    (fresh-line str)
  +    (& *print-automatic-newline?*
  +       (fresh-line str))
       (%print-body (cdr .x.) str info))
       (--! (car (print-info-columns info))))
   
  
positive.code:       (%late-print .x. str info)
        (%print-gap str)
        (%late-print (car ..x.) str info)
        (fresh-line str)
        (push ! (print-info-columns info))
        (%print-body (cdr ..x.) str info)
        (pop (print-info-columns info)))))
  
negative.code:       (adolist x
          (? first?
             (= first? nil)
             (& *print-automatic-newline?*
                (fresh-line str)))
          (%late-print ! str info)))))
  
  (defun %print-call (x argdef str info)
  