anchor.diff:        (handle-logical-block start end)
         (handle-standard-< start end)))
   
  +;; TODO.
   (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))))))
  +  (num-args-in-directive start end)
  +  (compile-format (1+ (params-end start)) (directive-start end)))
   
   (defun num-args-in-directive (start end)
     (let ((n 0) c i j)
  
positive.code:              (return nil))
              ((char= c #\') (incf i))
              (T (return n))))))
  
  (defun compile-format (start end)
    (let ((result nil))
  
negative.code: ;called is the internal routine that FORMAT uses to do the corresponding
  ;work.  However, this cannot be done in a portable way.
  
  (defun impl-integer (start end base)
    (declare (ignore end))
    (multiple-value-bind (colon atsign params)
        (parse-params start '(nil #\Space #\, 3))
      `(sys.format::format-integer ,(get-arg) ,base ',params ',atsign ',colon)))
  
  (def-format-handler #\D (start end) (impl-integer start end 10))
  (def-format-handler #\B (start end) (impl-integer start end 2))
  (def-format-handler #\O (start end) (impl-integer start end 8))
  (def-format-handler #\X (start end) (impl-integer start end 16))
  
  (def-format-handler #\R (start end)
    (declare (ignore end))
    (multiple-value-bind (colon atsign params)
        (parse-params start '(10 nil #\Space #\, 3))
      `(sys.format::format-radix ,(get-arg) ',params ',atsign ',colon)))
  
  (def-format-handler #\C (start end)
    (declare (ignore end))
    (multiple-value-bind (colon atsign)
        (parse-params start '())
      `(sys.format::format-character ,(get-arg) ',atsign ',colon)))
  
  ;; TODO.
  (def-format-handler #\F (start end) (impl-integer start end 10))
  (def-format-handler #\E (start end) (impl-integer start end 10))
  (def-format-handler #\G (start end) (impl-integer start end 10))
  (def-format-handler #\$ (start end) (impl-integer start end 10))
  
  ;Format directives that get open coded "P%&~|T*?^"
  
  