X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-api.lisp;h=66c9936b041193327782a1bc31f0f9ffcb8700e0;hb=09f07ac9d914a83f9426609f3264f4e66b5a6d97;hp=a320d7e3f561543d87314f5469b698de2de48dbe;hpb=a6576bcf62dd1e710085ec74089d0730d599001b;p=clsql.git

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index a320d7e..66c9936 100644
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -128,7 +128,20 @@ as possible second argument) to the desired representation of date/time/timestam
 	     'clsql-base:clsql-odbc-error
 	     :odbc-message error-message
 	     :sql-state sql-state)))
+	 (#.$SQL_NO_DATA_FOUND
+	  (progn ,result-code ,@body))
+	 ;; work-around for Allegro 7.0beta AMD64 which
+	 ;; has for negative numbers
 	 (otherwise
+	  (multiple-value-bind (error-message sql-state)
+	      (handle-error (or ,henv +null-handle-ptr+)
+			    (or ,hdbc +null-handle-ptr+)
+			    (or ,hstmt +null-handle-ptr+))
+            (error
+	     'clsql-base:clsql-odbc-error
+	     :odbc-message error-message
+	     :sql-state sql-state))
+	  #+ignore
           (progn ,result-code ,@body))))))
 
 (defun %new-environment-handle ()