anchor.diff:        (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))
  +(define-condition format-table-registration (format-table-error)
  +  ()
     (:report (lambda (error stream)
   	     (format stream
   		 "Table ~A cannot be (un)registered because it is anonymous."
  
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
  