anchor.diff:       (write-char #\Space)
        (write-integer (sys.int::lisp-object-address object) 16)
        (write-char #\>))
  +    (simple-condition
  +     (write-char #\#)
  +     (write-char #\<)
  +     (write (class-name (class-of object)))
  +     (write-char #\Space)
  +     (write (simple-condition-format-control object))
  +     (write-char #\Space)
  +     (write-integer (sys.int::lisp-object-address object) 16)
  +     (write-char #\>))
       (t (write-char #\#)
          (write-char #\<)
          (write-string "Unknown-object ")
  
positive.code:     (incf *bump-pointer* (truncate total-size 8))
      ;; Return value.
      (sys.int::%%assemble-value address #b0111)))
  
  (defun sys.int::make-simple-vector (length)
    "Allocate a SIMPLE-VECTOR with LENGTH elements.
  
negative.code: (defvar *keyboard-shifted* nil)
  
  (defun write-char (c &optional stream)
    (setf (system:io-port/8 #xE9) (logand (char-code c) #xFF))
    (cond ((eql c #\Newline)
           (incf *screen-offset* (- 80 (rem *screen-offset* 80))))
          (t (setf (sys.int::memref-unsigned-byte-16 #x80000B8000 *screen-offset*)
  