Initial version.

darcs-hash:def92c268e831071d651f7c0dc315910359b1d07

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)))))