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:       (or the-table
  	  (and errorp (error 'missing-table :name table))))))
  
  
  (define-condition format-table-registration (focus-error)
    ((table :documentation "The table."
  	  :initarg :table
  	  :reader table))
    (:report (lambda (error stream)
  	     (format stream
  		 "Table ~A cannot be (un)registered because it is anonymous."
  
negative.code: 	(print-unreadable-object (table str :type t :identity t)
  	  (princ "(ANONYMOUS)" str)))))
  
  (define-condition format-table-error (focus-error)
    ((table :documentation "The format table."
  	  :initarg :table
  	  :reader table))
    (:documentation "An format table error."))
  
  
  
  ;; ==========================================================================
  