anchor.diff:  (defun handle-standard-< (start end)
     (let ((n (num-args-in-directive start end)))
       `(using-format xp ,(subseq *string* (1- start) end)
  -		   ,@ (copy-tree (make-list n :initial-element (get-arg))))))
  +                   ,@ (copy-tree (make-list n :initial-element (get-arg))))))
   
   (defun num-args-in-directive (start end)
     (let ((n 0) c i j)
  
positive.code:   (flet ((white-space (c) (or (char= c #\space) (char= c #\tab))))
      (do ((index 0 end) (result) (end nil nil)) (nil)
        (let ((white (position-if #'white-space string :start index)))
  	(when white
  	  (setq end (position-if-not #'white-space string :start (1+ white))))
  	(when (null end)
  	  (setq end (length string)))
  	(push `(write-string++ ,(subseq string index end) xp ,0 ,(- end index))
  	      result)
  	(if white (push '(pprint-newline+ :fill xp) result))
  	(if (null white) (return (nreverse result)))))))
  
   ) ;end of eval when for all (formatter "...") stuff.
  
  
negative.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)
           (set-indentation-prefix xp
             (case (Qkind xp (Qleft xp))
               (:block (+ (initial-prefix-ptr xp) (Qarg xp (Qleft xp))))
               (T ; :current
                 (+ (LP<-TP xp (Qpos xp (Qleft xp)))
                    (Qarg xp (Qleft xp)))))))
         (setf (Qleft xp) (Qnext (Qleft xp))))
        (:start-block
         (cond ((maybe-too-large xp (Qleft xp))
                (push-prefix-stack xp)
                (setf (initial-prefix-ptr xp) (prefix-ptr xp))
                (set-indentation-prefix xp (LP<-TP xp (Qpos xp (Qleft xp))))
                (let ((arg (Qarg xp (Qleft xp))))
                  (when (consp arg) (set-prefix xp (cdr arg)))
                  (setf (initial-prefix-ptr xp) (prefix-ptr xp))
                  (cond ((not (listp arg)) (set-suffix xp arg))
                        ((car arg) (set-suffix xp (car arg)))))
                (setf (section-start-line xp) (line-no xp)))
               (T (incf (Qleft xp) (Qoffset xp (Qleft xp)))))
         (setf (Qleft xp) (Qnext (Qleft xp))))
        (:end-block (pop-prefix-stack xp) (setf (Qleft xp) (Qnext (Qleft xp))))
        (T ; :newline
         (when (case (Qkind xp (Qleft xp))
                 (:fresh (not (zerop (LP<-BP xp))))
                 (:miser (misering? xp))
                 (:fill (or (misering? xp)
                            (> (line-no xp) (section-start-line xp))
                            (maybe-too-large xp (Qleft xp))))
                 (T T)) ;(:linear :unconditional :mandatory)
           (output-line xp (Qleft xp))
           (setup-for-next-line xp (Qleft xp)))
         (setf (Qleft xp) (Qnext (Qleft xp))))))
    (when flush-out? (flush xp)))
  
  