anchor.diff:              (write-char #\" stream))
              (t (write-string object stream))))
       (character
  -     (cond ((or *print-readably* *print-escape*)
  -            (write-char #\# stream)
  -            (write-char #\\ stream)
  -            (cond ((and (or *print-space-char-ansi* (not (eql object #\Space)))
  -                        (not (eql object #\Newline))
  -                        (standard-char-p object))
  -                   (write-char object stream))
  -                  (t (write-string (char-name object) stream))))
  -           (t (write-char object stream))))
  +     (write-character object stream))
       (function
        (cond ((and (not *print-safe*)
                    (typep object 'mezzano.clos:funcallable-standard-object))
  
positive.code:         (return)))
      (write-char #\) stream)))
  
  (defun write-object (object stream)
    (typecase object
      (integer
  
negative.code:                       (write name :stream stream))
                      (print-unreadable-object (object stream :type t :identity t)))))))
      (bit-vector
       (write-bit-vector object stream))
      (vector
       (write-vector object stream))
      (complex
       (write-complex object stream))
      (t (if *print-safe*
             (print-unreadable-object (object stream :type t :identity t))
             (print-object object stream))))
  