anchor.diff:      (cons
        (write-char #\()
        (write (car object))
  -     (write-string " . ")
  -     (write (cdr object))
  -     (write-char #\)))
  -    (symbol (write-string (symbol-name object)))
  +     (do ((i (cdr object) (cdr i)))
  +         ((atom i)
  +          (when i
  +            (write-string " . ")
  +            (write i))
  +          (write-char #\)))
  +       (write-char #\Space)
  +       (write (car i))))
  +    (symbol
  +     (when (keywordp object)
  +       (write-char #\:))
  +     (write-string (symbol-name object)))
       (string
        (write-char #\")
        (dotimes (i (length object))
  
positive.code:        (write-integer (logior (sys.int::%%value-address object)
                                (sys.int::%%value-tag object))
                        16)
         (write-char #\>))))
  
  (defun fmakunbound (name)
    (sys.int::%fmakunbound (sys.int::function-symbol name))
    name)
  
  (loop
     (fresh-line)
     (write-char #\>)
     (let ((form (read)))
       (fresh-line)
       (write (eval form))))
  
negative.code:     (write-char #\Space)
      (write-integer (sys.int::memref-unsigned-byte-64 fp -2) 16)))
  
  (defun error (what &rest r)
    (fresh-line)
    (write-string "Error: ")
    (write what)
    (write-char #\Space)
    (write r)
    (fresh-line)
    (backtrace)
    (loop))
  
  