compatibility: Fix ECL loading issues

Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>

diff --git a/ChangeLog b/ChangeLog
index 947d2eb20c8250dfb5057323c00fb400be83e43b..63a2b167499b171d7ad093b4bb6a86e39194ac8f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2015-06-02 Daniel Kochmański <dkochmanski@turtle-solutions.eu>
+       * clsql.asd, sql/package.lisp: Add ECL compatibility fixes
+       * sql/db-interface.lisp: Fix declaration typo
+
 2015-04-06 Russ Tyndall <russ@acceleration.net>
        * sql/operations, sql/expressions: add postgresql E-string
        operator / expression.  Needed for correct regex handling
@@ -9,7 +13,7 @@
        sql-value-conversion-error
        * default read-sql-value for list
        * tests for sql-value-conversion-errors and list
-       
+
 2015-03-18 Russ Tyndall <russ@acceleration.net>
        * {uffi,db-mysql}/Makefile: remove -pie build hardening for
        which caused load issues for Linux Mint

diff --git a/clsql.asd b/clsql.asd
index 5d9adf219577dd1fb0a6f2c36c64eacab78a0c5d..74afd3b6b89c22f91536fa15d7229c4ca78c2e82 100644 (file)
--- a/clsql.asd
+++ b/clsql.asd
@@ -101,7 +101,7 @@ oriented interface."
   (operate 'test-op 'clsql-tests :force t))
 
 (defmethod perform :after ((o load-op) (c (eql (find-system 'clsql))))
-  (let* ((init-var (uffi:getenv "CLSQLINIT"))
+  (let* ((init-var (uffi::getenv "CLSQLINIT"))
          (init-file (or (when init-var (probe-file init-var))
                         (probe-file
                          (concatenate 'string

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 5cdb719f3ea00cdc4915701fff2abec177aaff49..3454a84ee8d992372e07ba3abf7a7c3d07258a1c 100644 (file)
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -380,8 +380,8 @@ of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
 
 (defgeneric db-type-has-auto-increment? (db-type)
   (:method (db-type)
-    (declare (ignore db-type)
-            nil))
+    (declare (ignore db-type))
+            nil)
   (:documentation "NIL [default] if database-type supports auto-incrementing columns."))
 
 ;;; Large objects support (Marc Battyani)

diff --git a/sql/package.lisp b/sql/package.lisp
index 470be84e22d06ec30ea0dac20c305ac861f3f3c9..8915b06781011292d8fdbdbe7ca5f452c96ffb33 100644 (file)
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -37,6 +37,7 @@
           #+clsql-cmucl-mop #:mop
           #+allegro #:mop
           #+clisp #:clos
+          #+ecl #:mop
           #+lispworks #:clos
           #+scl #:clos
           #+openmcl #:openmcl-mop)