anchor.diff:             (simple-condition-format-control condition)
              (simple-condition-format-arguments condition)))
     (:method :after ((condition condition) (stream stream))
  +           #+NIL
              "Ensure FINISH-OUTPUT is called onto STREAM"
              (finish-output stream)))
   
  
positive.code: 
  
  (defgeneric format-condition (condition stream)
    (:documentation
     "CLOS Utility for application within condition class REPORT forms
  
  
negative.code: 
    (:method ((condition condition) (stream symbol))
      ;; FIXME_DESIGN symbol as stream designator => constant
      #+NIL
  "Dispatch for FORMAT-CONDITION onto a symbolic output stream designator.
  This method allows for symbolic indication of an output stream to
  FORMAT-CONDITION, with a syntax compatible onto ANSI CL (CLtL2)"
  