;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2009 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
(defun mysql-num-rows (res)
(uffi:with-foreign-object (p-high32 :unsigned-int)
(let ((low32 (clsql-mysql-num-rows res p-high32))
- (high32 (uffi:deref-pointer p-high32 :unsigned-int)))
+ (high32 (uffi:deref-pointer p-high32 :unsigned-int)))
(if (zerop high32)
- low32
- (make-64-bit-integer high32 low32)))))
+ low32
+ (make-64-bit-integer high32 low32)))))
(uffi:def-function "clsql_mysql_affected_rows"
((mysql (* mysql-mysql))
(defun mysql-affected-rows (mysql)
(uffi:with-foreign-object (p-high32 :unsigned-int)
(let ((low32 (clsql-mysql-affected-rows mysql p-high32))
- (high32 (uffi:deref-pointer p-high32 :unsigned-int)))
+ (high32 (uffi:deref-pointer p-high32 :unsigned-int)))
(if (zerop high32)
- low32
- (make-64-bit-integer high32 low32)))))
+ low32
+ (make-64-bit-integer high32 low32)))))
(uffi:def-function "clsql_mysql_insert_id"
((res (* mysql-mysql))
(defun mysql-insert-id (mysql)
(uffi:with-foreign-object (p-high32 :unsigned-int)
(let ((low32 (clsql-mysql-insert-id mysql p-high32))
- (high32 (uffi:deref-pointer p-high32 :unsigned-int)))
+ (high32 (uffi:deref-pointer p-high32 :unsigned-int)))
(if (zerop high32)
- low32
+ low32
(make-64-bit-integer high32 low32)))))