diff options
Diffstat (limited to 'conditions.lisp')
-rw-r--r-- | conditions.lisp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/conditions.lisp b/conditions.lisp new file mode 100644 index 0000000..4d9ea4e --- /dev/null +++ b/conditions.lisp @@ -0,0 +1,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))))) |