Added tests for symbols valued slots, and better printer/reader bindings

[clsql.git] / sql / conditions.lisp

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