anchor.diff:  
   (fn %print-array (x str info)
     (princ "#" str)
  -  (%with-brackets str info
  +  (%with-parens str info
       (doarray (i x)
         (| (zero? i)
            (princ #\  str))
  
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:       (? (function? !)
           (funcall ! x str info)
           (%print-call x ! str info))
        (%with-parens str info
          (%late-print x. str info)
          (%print-rest .x str info))))
  
  