anchor.diff:  ;; ==========================================================================
   
   (defstruct (function-directive
  -	    (:include directive)
  +	    (:include format-directive)
   	    (:conc-name directive-))
     "Structure for user-defined function directives.
   This structure holds the associated function name (a symbol)."
  
positive.code: ;; ==========================================================================
  
  (defstruct (standard-directive
  	    (:include directive)
  	    (:conc-name directive-))
    "Base structure for standard directives.
  This structure holds the (upcase) directive character."
  
negative.code: (in-readtable :net.didierverna.focus)
  
  
  (defstruct format-directive "Base structure for FORMAT directives.")
  
  
  ;; ==========================================================================
  