From eec49f5b95266253a1f82497d828236fc43a3dfd Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 24 Sep 2007 16:02:54 +0200
Subject: Initial version.

darcs-hash:def92c268e831071d651f7c0dc315910359b1d07
---
 conditions.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 conditions.lisp

(limited to 'conditions.lisp')

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)))))
-- 
cgit v1.2.3