Automated commit for debian release 6.7.2-1

[clsql.git] / sql / conditions.lisp

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index 1969b962ae28728e565ea2d6a11fd03f04c49acc..e19805248bd5e6f9601a98db29a3e76157741238 100644 (file)
--- 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))