anchor.diff:      (--! (car (print-info-columns info))))
   
   (fn pretty-print-named-lambda (x str info)
  -  (%with-brackets str info
  +  (%with-parens str info
       (!= (++ (car (print-info-columns info)))
         (princ "FUNCTION " str)
         (%late-print .x. str info)
  
positive.code:   (with-default-stream s str
      (? (& (cons? x)
            (cons? x.))
         (%with-brackets s print-info
           (%print-body x s print-info))
         (%late-print x s print-info))
      (& *print-automatic-newline?*
  
negative.code:         (%late-print i str info)))))
  
  (fn %print-call (x argdef str info)
    (%with-parens str info
      (%late-print x. str info)
      (let expanded (%print-get-args .x argdef)
        (? (eq expanded 'error)
  