X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-constants.lisp;h=0315e444e3a38627b2cd92fb3c8414a1d1b96a0d;hb=26cfa48009c72652e0ba8ce9aed8c53216e9a3d3;hp=591a3afa43fcc76c0f7a3f0df4e15bbd62652eae;hpb=5bfa219c5e3b387b9dd7c819441f0182ccb16dc8;p=clsql.git

diff --git a/db-odbc/odbc-constants.lisp b/db-odbc/odbc-constants.lisp
index 591a3af..0315e44 100644
--- a/db-odbc/odbc-constants.lisp
+++ b/db-odbc/odbc-constants.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: odbc -*-
+ ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: odbc -*-
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -24,6 +24,13 @@
 
 ;; (defconstant $ODBCVER	#x0210)
 
+
+;; for new SQLAllocHandle functiion
+(defconstant $SQL_HANDLE_ENV 1)
+(defconstant $SQL_HANDLE_DBC 2)
+(defconstant $SQL_HANDLE_STMT 3)
+(defconstant $SQL_HANDLE_DESC 4)
+
 ;; generally useful constants
 (defconstant $SQL_SPEC_MAJOR 2)		;; Major version of specification 
 (defconstant $SQL_SPEC_MINOR 10) 	;; Minor version of specification