small cleaning

klimenko-serj · Aug 4, 2012 · a09b67c · a09b67c
1 parent 602be0b
commit a09b67c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/cl-fbclient-functions.lisp b/cl-fbclient-functions.lisp
@@ -102,15 +102,13 @@
     'xsqlvar index) 'xsqlvar 'sqllen))
 ;-----------------------------------------------------------------------------------
 (defun alloc-var-data-default (xsqlda* index)
-(progn
-  (format t "index: ~a ;ln: ~a~%" index (get-var-sqlln xsqlda* index))
   (setf (cffi:foreign-slot-value 
 	 (cffi:mem-aref 
 	  (cffi:foreign-slot-value xsqlda* 'xsqlda 'sqlvar) 
 	  'xsqlvar index) 'xsqlvar 'sqldata) 
 	(cffi:foreign-alloc :char 
 			    :initial-element 0 
-			    :count (get-var-sqlln xsqlda* index)))))
+			    :count (get-var-sqlln xsqlda* index))))
 ;-----------------------------------------------------------------------------------
 (defun alloc-vars-data (sqlda)
   (loop for i from 0 to (- (cffi:foreign-slot-value sqlda 'xsqlda 'sqld) 1) do

diff --git a/cl-fbclient.asd b/cl-fbclient.asd
@@ -4,7 +4,7 @@
   :serial t
   :description "Common Lisp library for working with firebird databases(using fbclient)"
   :author "Klimenko Serj <klimenko.serj@gmail.com>"
-  :license ""
+  :license "LGPL"
   :depends-on (#:cffi
 	       #:local-time)
   :components ((:file "package")