Cosmetic stuff

--=-=-=

And while I'm at it - here a some cosmetic patches to avoid
unnecessary warnings.


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment; filename=cosmetic.diff

diff -ru clsql-3.7.9.orig/db-oracle/oracle-api.lisp clsql-3.7.9/db-oracle/oracle-api.lisp
--- clsql-3.7.9.orig/db-oracle/oracle-api.lisp  2006-12-30 14:37:46.000000000 +0100
+++ clsql-3.7.9/db-oracle/oracle-api.lisp       2006-12-31 00:48:32.428342400 +0100
@@ -75,6 +75,7 @@
                             ,c-parms
                           :returning ,c-return)))
        (defun ,lisp-oci-fn (,@ll &key database nulls-ok)
+         (declare (ignore database nulls-ok))
          (funcall %lisp-oci-fn ,@ll)))))
 
 
diff -ru clsql-3.7.9.orig/db-oracle/oracle-sql.lisp clsql-3.7.9/db-oracle/oracle-sql.lisp
--- clsql-3.7.9.orig/db-oracle/oracle-sql.lisp  2006-12-30 14:37:46.000000000 +0100
+++ clsql-3.7.9/db-oracle/oracle-sql.lisp       2006-12-31 00:49:09.932270400 +0100
@@ -643,7 +643,6 @@
                                (colname '(* :unsigned-char))
                                (colnamelen 'ub4)
                                (colsize 'ub2)
-                               (colsizesize 'ub4)
                                (defnp ':pointer-void))
       (let ((buffer nil)
            (sizeof nil))
diff -ru clsql-3.7.9.orig/sql/expressions.lisp clsql-3.7.9/sql/expressions.lisp
--- clsql-3.7.9.orig/sql/expressions.lisp       2006-12-30 14:37:46.000000000 +0100
+++ clsql-3.7.9/sql/expressions.lisp    2006-12-31 00:42:02.737995200 +0100
@@ -390,7 +390,7 @@
   (:documentation "An SQL between expression."))
 
 (defmethod output-sql ((expr sql-between-exp) database)
-  (with-slots (name args)
+  (with-slots (args)
       expr
     (output-sql (first args) database)
     (write-string " BETWEEN " *sql-stream*)
diff -ru clsql-3.7.9.orig/sql/loop-extension.lisp clsql-3.7.9/sql/loop-extension.lisp
--- clsql-3.7.9.orig/sql/loop-extension.lisp    2006-12-30 14:37:46.000000000 +0100
+++ clsql-3.7.9/sql/loop-extension.lisp 2006-12-31 00:42:56.665539200 +0100
@@ -141,7 +141,7 @@
 (defun clsql-loop-method (method-name iter-var iter-var-data-type
                          prep-phrases inclusive? allowed-preps
                          method-specific-data)
-  (declare (ignore method-name inclusive? allowed-preps method-specific-data))
+  (declare (ignore method-name iter-var-data-type inclusive? allowed-preps method-specific-data))
   (let ((in-phrase nil)
        (from-phrase nil))
     (loop for (prep . rest) in prep-phrases

--=-=-=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
CLSQL-Devel mailing list
[email protected]
http://lists.b9.com/mailman/listinfo/clsql-devel

--=-=-=--