(message :initarg :message :reader gerror-message))
(:report (lambda (condition stream)
(write-string (gerror-message condition) stream))))
(message :initarg :message :reader gerror-message))
(:report (lambda (condition stream)
(write-string (gerror-message condition) stream))))