(cl:in-package #:acclimation)

(defgeneric report-condition (condition stream language))

(define-condition condition ()
  ()
  (:report (lambda (condition stream)
	     (report-condition condition stream (language *locale*)))))

(cl:in-package #:acclimation)

(defgeneric report-condition (condition stream language))

(define-condition condition ()
  ()
  (:report (lambda (condition stream)
	     (report-condition condition stream (language *locale*)))))
