blob: 4d9ea4ea44a677c72b1ed074a6d2aebccf7dbddd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(in-package #:mulk.protocols)
(define-condition simple-style-warning (style-warning)
((format-control :initarg :format-control
:reader format-control)
(format-arguments :initarg :format-arguments
:reader format-arguments))
(:report (lambda (condition stream)
(apply #'format
stream
(format-control condition)
(format-arguments condition)))))
|