Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

small cleaning

  • Loading branch information...
commit a09b67c954668c33a22b1922184115f9a33b7fd9 1 parent 602be0b
@klimenko-serj authored
Showing with 2 additions and 4 deletions.
  1. +1 −3 cl-fbclient-functions.lisp
  2. +1 −1  cl-fbclient.asd
View
4 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
View
2  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")
Please sign in to comment.
Something went wrong with that request. Please try again.