X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fconditions.lisp;h=e19805248bd5e6f9601a98db29a3e76157741238;hp=1969b962ae28728e565ea2d6a11fd03f04c49acc;hb=HEAD;hpb=c1d990950afa607b9d7e428da384b057fd5c74f3

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index 1969b96..e198052 100644
--- a/sql/conditions.lisp
+++ b/sql/conditions.lisp
@@ -151,8 +151,9 @@ connection is no longer usable."))
 
 (defun error-converting-value (val type &optional (database *default-database*))
   (restart-case 
-      (error 'sql-value-conversion-error
-             :expected-type type :value val :database database)
+      (error (make-condition
+              'sql-value-conversion-error
+              :expected-type type :value val :database database))
     (continue ()
       :report "Continue using the unconverted value"
       (values val t))