anchor.diff:           (special *terminal-io*
                     *standard-output*
                     *standard-input*
  +                  *debug-io*
                     *screen-offset*
                     *keyboard-shifted*))
   
  
positive.code:         *terminal-io* *cold-stream*
          *standard-output* *cold-stream*
          *standard-input* *cold-stream*
          *screen-offset* 0
          *keyboard-shifted* nil
          *early-initialize-hook* '()
  
negative.code:   (proclaim `(constant ,name))
    name)
  
  (defun enter-debugger (condition)
    (write-char #\!)
    (write condition)
    (backtrace)
    (loop (%hlt)))
  
  (defun initialize-lisp ()
    (setf *next-symbol-tls-slot* 12
          *array-types* #(t
  