anchor.diff:              (write-char #\" stream))
              (t (write-string object stream))))
       (character
  -     (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)))))
  +     (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)))))
  +           (t (write-char object stream))))
       (function
        (print-unreadable-object (object stream :type t :identity t)
          (write (function-name object) :stream stream)))
  
positive.code: 
  (defun write-object (object stream)
    (typecase object
      (integer (write-integer object *print-base* stream))
      (cons
       (write-char #\( stream)
       (write (car object) :stream stream)
  
negative.code:        (write-char #\Space stream)
         (write (car i) :stream stream)))
      (symbol
       (cond ((or *print-escape* *print-readably*)
              (cond ((null (symbol-package object))
                     (when *print-gensym*
                       (write-string "#:" stream)))
                    ((keywordp object)
                     (write-char #\: stream))
                    (t (multiple-value-bind (symbol status)
                           (find-symbol (symbol-name object) *package*)
                         (unless (and status (eql symbol object))
                           ;; Not accessible in the current package.
                           (multiple-value-bind (symbol status)
                               (find-symbol (symbol-name object) (symbol-package object))
                             (write-string (package-name (symbol-package object)) stream)
                             (write-char #\: stream)
                             (when (not (eql status :external))
                               (write-char #\: stream)))))))
              (write-string (symbol-name object) stream))
             (t (write-string (symbol-name object) stream))))
      (string
       (cond ((or *print-escape* *print-readably*)
              (write-char #\" stream)
              (dotimes (i (length object))
                (let ((c (char object i)))
  