* Programmer: Kevin M. Rosenberg
* Date Started: Mar 2002
*
- * $Id: clsql-uffi.c,v 1.1 2002/03/27 08:09:25 kevin Exp $
+ * $Id: clsql-uffi.c,v 1.2 2002/03/27 09:10:16 kevin Exp $
*
* This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
*
unsigned int
atol64 (const unsigned char* str, int* pHigh32)
{
+#ifdef WIN32
+ __int64 result = 0;
+#else
long long result = 0;
+#endif
int minus = 0;
int first_char = *str;
if (first_char == '+')
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: test-clsql.cl,v 1.1 2002/03/27 09:00:15 kevin Exp $
+;;;; $Id: test-clsql.cl,v 1.2 2002/03/27 09:11:30 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(in-package :cl-user)
-(defvar *config-pathname* (make-pathname :name "test-clsql"
+(defvar *config-pathname* (make-pathname :name "test"
:type "config"
:defaults *load-truename*))
(defparameter *config* nil)
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: xptest-clsql.cl,v 1.1 2002/03/27 09:00:15 kevin Exp $
+;;;; $Id: xptest-clsql.cl,v 1.2 2002/03/27 09:11:30 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(postgresql-socket-spec :accessor postgresql-socket-spec))
(:documentation "Test fixture for CLSQL testing"))
-(defvar *config-pathname* (make-pathname :name "test-clsql"
+(defvar *config-pathname* (make-pathname :name "test"
:type "config"
:defaults *load-truename*))
(defmethod setup ((fix clsql-fixture))