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: 
    (:method ((condition condition) (stream symbol))
      ;; FIXME_DESIGN symbol as stream designator => constant
  "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)"
  
negative.code:                         ((nil) *standard-output*))))
  
    (:method ((condition simple-condition) (stream stream))
      #+NIL
      "Apply the format control and format arguments for the CONDITION,
  with output to the specified STREAM.
  
  