anchor.diff:             (write-char #\0 stream)
              (write-char #\1 stream))))
       (vector
  -     (write-char #\# stream)
  -     (write-char #\( stream)
  -     (dotimes (i (length object))
  -       (unless (zerop i)
  -         (write-char #\Space stream))
  -       (write (aref object i) :stream stream))
  -     (write-char #\) stream))
  +     (write-vector object stream))
       (complex
        (write-string "#C(" stream)
        (write (realpart object))
  
positive.code:     (cond
        (pretty
         (write-pretty object stream))
        (t (write-object object stream)))))
  
  (defmacro print-unreadable-object ((object stream &rest keys &key type identity) &body body)
    `(%print-unreadable-object ,(when body `(lambda () (progn ,@body))) ,object ,stream ,@keys))
  
negative.code:     (ratio
       (write-ratio object stream))
      (cons
       (write-cons object stream))
      (symbol
       (write-symbol object stream))
      (string
  