r10801: 4 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>
authorKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 4 Nov 2005 19:12:57 +0000 (19:12 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 4 Nov 2005 19:12:57 +0000 (19:12 +0000)
        * Version 3.3.4 [UFFI >= 1.5.5 needed]
        * db-odbc/odbc-api.lisp: Apply patch from Yaroslav Kavenchuk
        to add missing #\' character.
        * clsql.asd: Add support for CLSQLINIT environmental variable,
        based on patch from Yaroslav Kavenchcuk. New version of UFFI
        required.

ChangeLog
clsql-uffi.asd
clsql.asd
db-odbc/odbc-api.lisp

index cf2e75c..87a47a9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+4 Nov 2005  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.3.4 [UFFI >= 1.5.5 needed]
+       * db-odbc/odbc-api.lisp: Apply patch from Yaroslav Kavenchuk
+       to add missing #\' character.
+       * clsql.asd: Add support for CLSQLINIT environmental variable,
+       based on patch from Yaroslav Kavenchcuk. New version of UFFI
+       required.
+       
 30 Oct 2005  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.3.3
        * sql/oodml.lisp: Apply patch from Drew Crampsie to fix
index 51eb3f1..7541934 100644 (file)
 
 (in-package cl-user)
 
-;; need to load uffi for below output-files method 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (unless (find-package 'uffi)
-    (asdf:operate 'asdf:load-op 'uffi)))
-
 (defpackage clsql-uffi-system (:use #:asdf #:cl))
 (in-package clsql-uffi-system)
 
index 74f8376..c70fd78 100644 (file)
--- a/clsql.asd
+++ b/clsql.asd
 (defpackage #:clsql-system (:use #:asdf #:cl))
 (in-package #:clsql-system)
 
+;; need to load uffi for below perform :after method 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package 'uffi)
+    (asdf:operate 'asdf:load-op 'uffi)))
+
 (defsystem clsql
     :name "CLSQL"
     :author "Kevin Rosenberg <kevin@rosenberg.net>"
@@ -85,6 +90,8 @@ oriented interface."
   (operate 'test-op 'clsql-tests :force t))
 
 (defmethod perform :after ((o load-op) (c (eql (find-system 'clsql))))
-  (when (probe-file "/etc/clsql-init.lisp")
-    (load "/etc/clsql-init.lisp")))
+  (let* ((init-var (uffi:getenv "CLSQLINIT"))
+         (init-file (or (when init-var (probe-file init-var))
+                        (probe-file "/etc/clsql-init.lisp"))))
+    (when init-file (load init-file))))
 
index eb68f20..0dcefa4 100644 (file)
@@ -164,7 +164,7 @@ as possible second argument) to the desired representation of date/time/timestam
 
 (defun %new-db-connection-handle (henv)
   (with-foreign-object (phdbc 'sql-handle)
-    (setf (deref-pointer phdbc sql-handle) +null-handle-ptr+)
+    (setf (deref-pointer phdbc 'sql-handle) +null-handle-ptr+)
     (with-error-handling
       (:henv henv)
       (SQLAllocHandle $SQL_HANDLE_DBC henv phdbc)