anchor.diff:  
   (defun set-prefix (xp prefix-string)
     (replace (prefix xp) prefix-string
  -	   :start1 (- (prefix-ptr xp) (length prefix-string)))
  +           :start1 (- (prefix-ptr xp) (length prefix-string)))
     (setf (non-blank-prefix-ptr xp) (prefix-ptr xp)))
   
   (defun set-suffix (xp suffix-string)
     (let* ((end (length suffix-string))
  -	 (new-end (+ (suffix-ptr xp) end)))
  +         (new-end (+ (suffix-ptr xp) end)))
       (check-size xp suffix new-end)
       (do ((i (1- new-end) (1- i)) (j 0 (1+ j))) ((= j end))
         (setf (char (suffix xp) i) (char suffix-string j)))
  
positive.code: (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))))))
  
  (defun num-args-in-directive (start end)
    (let ((n 0) c i j)
  
negative.code: 
  (defun get-printer (object table)
    (let* ((entry (if (consp object)
                      (gethash (car object) (conses-with-cars table))
                      (gethash (type-of object) (structures table)))))
      (if (not entry)
          (setq entry (find object (others table) :test #'fits))
          (do ((i (test entry) (1- i))
               (l (others table) (cdr l)))
              ((zerop i))
            (when (fits object (car l)) (setq entry (car l)) (return nil))))
      (when entry (fn entry))))
  
  (defun fits (obj entry) (funcall (test entry) obj))
  
  (defun specifier-category (spec)
    (cond ((and (consp spec)
                (eq (car spec) 'cons)
                (consp (cdr spec))
                (null (cddr spec))
                (consp (cadr spec))
                (eq (caadr spec) 'member)
                (consp (cdadr spec))
                (null (cddadr spec)))
           'cons-with-car)
          ((and (symbolp spec) (structure-type-p spec)) 'structure-type)
          (T 'other)))
  
  (defvar *preds-for-specs*
    '((T always-true) (cons consp) (simple-atom simple-atom-p) (other otherp)
  