anchor.diff:         ,@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
  
positive.code: (defun %print-call? (x info)
    (& (print-info-pretty-print? info)
       (symbol? x.)
       (| (get-printer-argument-definition x)
          (alet (symbol-function x.)
            (?
              (builtin? x.)   nil
  
negative.code:   (%with-brackets str info
      (%late-print x. str info)
      (!? (%print-call? x info)
          (? (function? !)
             (funcall ! x str info)
             (%print-call .x ! str info))
          (%print-rest .x str info))))
  
  (defun %print-abbreviation (abbreviation x str info)
  