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