anchor.diff:  
     (: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)"
  
positive.code: ;; NOTE analogous definitions in CMUCL, SBCL
  ;; NOTE portability (is not privatization)
  
  (define-condition simple-style-warning (style-warning simple-warning
    ())
  
  (defmacro simple-style-warning (fmt-ctrl &rest args)
  
negative.code: 
  
  (defgeneric format-condition (condition stream)
    #+NIL
    (:documentation
     "CLOS Utility for application within condition class REPORT forms
  
  