anchor.diff:    (setf (Qoffset xp (Qright xp)) nil)
     (setf (Qarg xp (Qright xp)) arg))
   
  -(defmacro Qnext (index) `(+ ,index #.queue-entry-size))
  +(defmacro Qnext (index) `(+ ,index +queue-entry-size+))
    
   (defvar *describe-xp-streams-fully* nil "Set to T to see more info.")
  
positive.code: (defun attempt-to-output (xp force-newlines? flush-out?)
    (do () ((> (Qleft xp) (Qright xp))
  	  (setf (Qleft xp) 0)
  	  (setf (Qright xp) #.(- queue-entry-size))) ;saves shifting
      (case (Qtype xp (Qleft xp))
        (:ind
         (unless (misering? xp)
  
negative.code:       (truncate fixnum 10)
      (unless (zerop digits)
        (print-fixnum xp digits))
      (write-char++ (code-char (+ (char-code #\0) d)) xp)))
  
  ;just wants to succeed fast in a lot of common cases.
  ;assumes no funny readtable junk for the characters shown.
  