anchor.diff:  
   (defvar *format-tables* (make-hash-table)
     "The collection of all named format tables.")
  -
   
   (define-condition format-table-lookup-error (focus-error)
     ((name :documentation "The table name."
  
positive.code: 	(print-unreadable-object (table str :type t :identity t)
  	  (princ "(ANONYMOUS)" str)))))
  
  
  
  ;; ==========================================================================
  
negative.code: ;; Table Contents Management
  ;; ==========================================================================
  
  (define-condition format-table-directive-error (format-table-error)
    ((character :documentation "The directive character."
  	      :initarg :directive
  