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

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index 6fc1af5..1969b96 100644
--- a/sql/conditions.lisp
+++ b/sql/conditions.lisp
@@ -153,11 +153,11 @@ connection is no longer usable."))
   (restart-case 
       (error 'sql-value-conversion-error
              :expected-type type :value val :database database)
+    (continue ()
+      :report "Continue using the unconverted value"
+      (values val t))
     (use-value (new-val)
-      :report
-      (lambda (stream)
-        (write-sequence
-         "Use a different value instead of this failed conversion" stream))
+      :report "Use a different value instead of this failed conversion"
       (values new-val t)
       )))