Add a message for assertion failure, to make it easier to find where …

…it went wrong.
arielnetworks · Mar 24, 2011 · a4755f0 · a4755f0
1 parent 490222f
commit a4755f0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/error-handling.lisp b/src/core/error-handling.lisp
@@ -36,5 +36,5 @@
 
 (defmacro protocol-assert (&body body)
   `(unless (progn ,@body)
-     (raise-error 'bad-request)))
+     (raise-error 'bad-request "Failed protocol assertion")))