Remove CVS $Id$ keyword

[clsql.git] / db-db2 / db2-api.lisp

diff --git a/db-db2/db2-api.lisp b/db-db2/db2-api.lisp
index 880f360351a2605d796708c97d9b56f109fca7d8..42d26097d361c324879855acf39f0101c74c35e2 100644 (file)
--- a/db-db2/db2-api.lisp
+++ b/db-db2/db2-api.lisp
@@ -5,8 +5,6 @@
 ;;;; Name:          db2.lisp
 ;;;; Purpose:       Package definition for CLSQL Db2 interface
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; This file is part of CLSQL.
 ;;;;
 ;;;; CLSQL users are granted the rights to distribute and use this software
@@ -47,36 +45,36 @@
 (defmacro def-cli-routine ((c-cli-symbol lisp-cli-fn) c-return &rest c-parms)
   (let ((ll (mapcar (lambda (x) (declare (ignore x)) (gensym)) c-parms)))
     `(let ((%lisp-cli-fn (uffi:def-function
-                            (,c-cli-symbol ,(intern (concatenate 'string "%" (symbol-name lisp-cli-fn))))
-                            ,c-parms
-                            :returning ,c-return)))
+                             (,c-cli-symbol ,(intern (concatenate 'string "%" (symbol-name lisp-cli-fn))))
+                             ,c-parms
+                             :returning ,c-return)))
        (defun ,lisp-cli-fn (,@ll &key database nulls-ok)
-        (let ((result (funcall %lisp-cli-fn ,@ll)))
-          (case result
-            (#.SQL_SUCCESS
-             SQL_SUCCESS)
-            (#.SQL_SUCCESS_WITH_INFO
-             (format *standard-output* "sucess with info")
-             SQL_SUCCESS)
-            (#.SQL_ERROR
-             (error 'sql-database-error
-                    :error-id result
-                    :message
-                    (format nil "DB2 error" result)))
-            (t
-             (error 'sql-database-error
-                    :message
-                    (format nil "DB2 unknown error, code=~A" result)))))))))
-  
+         (let ((result (funcall %lisp-cli-fn ,@ll)))
+           (case result
+             (#.SQL_SUCCESS
+              SQL_SUCCESS)
+             (#.SQL_SUCCESS_WITH_INFO
+              (format *standard-output* "sucess with info")
+              SQL_SUCCESS)
+             (#.SQL_ERROR
+              (error 'sql-database-error
+                     :error-id result
+                     :message
+                     (format nil "DB2 error" result)))
+             (t
+              (error 'sql-database-error
+                     :message
+                     (format nil "DB2 unknown error, code=~A" result)))))))))
+
 
 (defmacro def-raw-cli-routine
   ((c-cli-symbol lisp-cli-fn) c-return &rest c-parms)
   (let ((ll (mapcar (lambda (x) (declare (ignore x)) (gensym)) c-parms)))
     `(let ((%lisp-cli-fn (uffi:def-function (,c-cli-symbol ,(intern (concatenate 'string "%" (symbol-name lisp-cli-fn))))
-                            ,c-parms
-                          :returning ,c-return)))
+                             ,c-parms
+                           :returning ,c-return)))
        (defun ,lisp-cli-fn (,@ll &key database nulls-ok)
-        (funcall %lisp-cli-fn ,@ll)))))
+         (funcall %lisp-cli-fn ,@ll)))))
 
 
 (def-cli-routine ("SQLAllocHandle" sql-alloc-handle)