anchor.diff:    (let* ((bottom (1- (array-rank array)))
   	 (indices (make-list (1+ bottom) :initial-element 0))
   	 (dims (array-dimensions array))
  -	 (*prefix* (cl:format nil "#~DA(" (1+ bottom))))
  +	 (*prefix* (format nil "#~DA(" (1+ bottom))))
       (labels ((pretty-slice (slice)
   	       (pprint-logical-block (xp nil :prefix *prefix* :suffix ")")
   		 (let ((end (nth slice dims))
  
positive.code: ;command.  This includes the matching end command for paired commands.
  
  (defmacro def-format-handler (char args &body body)
    (let ((name (intern (cl:format nil "FORMAT-~A" char) :mezzano.xp)))
      `(eval-when (eval load compile)
         (defun ,name ,args ,@ body)
         (setf (gethash (char-upcase ,char) *fn-table*) (function ,name))
  
negative.code:     (setq kind :unconditional)))
  
  (def-format-handler #\| (start end) (declare (ignore end))
    (multiple-chars start #\Page))
  
  (def-format-handler #\~ (start end) (declare (ignore end))
    (multiple-chars start #\~))
  