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

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