anchor.diff:      (ratio
        (write-ratio object stream))
       (cons
  -     (write-char #\( stream)
  -     (write (car object) :stream stream)
  -     (do ((i (cdr object) (cdr i)))
  -         ((atom i)
  -          (when i
  -            (write-string " . " stream)
  -            (write i :stream stream))
  -          (write-char #\) stream))
  -       (write-char #\Space stream)
  -       (write (car i) :stream stream)))
  +     (write-cons object stream))
       (symbol
        (write-symbol object stream))
       (string
  
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:            (write-char #\0 stream)
             (write-char #\1 stream))))
      (vector
       (write-vector object stream))
      (complex
       (write-string "#C(" stream)
       (write (realpart object))
  