anchor.diff:  (defun %print-call? (x info)
     (& (print-info-pretty-print? info)
        (symbol? x.)
  -     (| (get-printer-argument-definition x)
  +     (| (%get-printer-argument-definition x.)
           (alet (symbol-function x.)
             (?
               (builtin? x.)   nil
  
positive.code:   (%with-brackets str info
      (%late-print x. str info)
      (!? (%print-call? x info)
          (%print-call .x ! str info)
          (%print-rest .x str info))))
  
  (defun %print-abbreviation (abbreviation x str info)
  
negative.code:        ,@body
         (princ ")" ,str)
         (pop (print-info-columns info)))))
  
  (defun pretty-print-named-lambda (x str info)
    (%print-gap str)
    (%late-print .x. str info)
    (%print-gap str)
    (%with-brackets str info
      (%print-gap str)
      (%late-print (car ..x.) str info)
      (fresh-line str)
      (%print-body (cdr ..x.) str info)))
  
  (defun pretty-print-lambda (x str info)
    (%with-brackets str info
      (%late-print (car ..x.) str info)
      (fresh-line str)
      (%print-body (cdr ..x.) str info)))
  
  (defun pretty-print-lambdas (x str info)
    (? ..x
       (pretty-print-named-lambda x str info)
       (pretty-print-lambda x str info))
    t)
  
  (add-printer-argument-definition 'function #'pretty-print-lambdas)
  
  (defun %print-rest (x str info)
    (when x
  