clsql/db-mysql mysql-sql.lisp,1.3,1.4

Update of /pubcvs/clsql/db-mysql
In directory boa.b9.com:/tmp/cvs-serv24953/db-mysql

Modified Files:
	mysql-sql.lisp 
Log Message:
Auto commit for Debian build

Index: mysql-sql.lisp
===================================================================
RCS file: /pubcvs/clsql/db-mysql/mysql-sql.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** mysql-sql.lisp	14 Oct 2002 07:10:19 -0000	1.3
--- mysql-sql.lisp	16 Apr 2003 21:50:01 -0000	1.4
***************
*** 150,159 ****
  	   (let ((res-ptr (mysql-use-result mysql-ptr)))
  	     (if res-ptr
! 		 (let ((num-fields (mysql-num-fields res-ptr)))
! 		   (setq types (canonicalize-types 
! 				      types num-fields
! 				      res-ptr))
! 		   (unwind-protect
! 		       (loop for row = (mysql-fetch-row res-ptr)
  			      until (uffi:null-pointer-p row)
  			      collect
--- 150,159 ----
  	   (let ((res-ptr (mysql-use-result mysql-ptr)))
  	     (if res-ptr
! 		 (unwind-protect
! 		      (let ((num-fields (mysql-num-fields res-ptr)))
! 			(setq types (canonicalize-types 
! 				     types num-fields
! 				     res-ptr))
! 			(loop for row = (mysql-fetch-row res-ptr)
  			      until (uffi:null-pointer-p row)
  			      collect
***************
*** 162,167 ****
  				    (convert-raw-field
  				     (uffi:deref-array row '(:array (* :unsigned-char)) i)
! 				     types i)))
! 		     (mysql-free-result res-ptr)))
  	       (error 'clsql-sql-error
  		      :database database
--- 162,167 ----
  				    (convert-raw-field
  				     (uffi:deref-array row '(:array (* :unsigned-char)) i)
! 				     types i))))
! 		   (mysql-free-result res-ptr))
  	       (error 'clsql-sql-error
  		      :database database