summaryrefslogtreecommitdiff
path: root/conditions.lisp
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)))))