dbquery

Query RDBMS and return S-expression
git clone https://logand.com/git/dbquery.git/
Log | Files | Refs | README

commit 0f0992bce47f0af0af0ceccbca8f75ea8eb93d08
parent d62ba1174046188903bebea58972a6116a589c11
Author: Tomas Hlavaty <tom@logand.com>
Date:   Fri, 15 Mar 2013 03:32:37 +0100

minor cl changes

Diffstat:
Mdbquery.lisp | 11+++++------
1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/dbquery.lisp b/dbquery.lisp @@ -21,7 +21,10 @@ ;;; DEALINGS IN THE SOFTWARE. (defpackage :dbquery - (:use :cl)) + (:use :cl) + (:export :make-mysql-server + :make-pg-server + :make-sqlite-server)) (in-package :dbquery) @@ -108,7 +111,7 @@ (funcall writer x s))))) (let ((l (ccl:make-lock 'program-server-lock)) (s (ccl:external-process-output-stream p))) - (lambda (&optional query) + (lambda (query) (ccl:with-lock-grabbed (l) (when wq (cond @@ -143,22 +146,18 @@ ;; (setq c (make-pg-server "cat" "-")) ;; (funcall c "123") ;; (funcall c nil) -;; (funcall c) ;; (setq c (make-sqlite-server "./dbquery-sqlite" "sqlite.db")) ;; (time (funcall c "select 1, 2+3")) ;; (time (funcall c "select 4, 'hello'")) ;; (funcall c nil) -;; (funcall c) ;; (setq c (make-pg-server "./dbquery-pg" "dbname='pokus' user='tomas'")) ;; (time (funcall c "select 1, 2+3")) ;; (time (funcall c "select 4, 'hello'")) ;; (funcall c nil) -;; (funcall c) ;; (setq c (make-mysql-server "./dbquery-mysql" "localhost" "tomas" "Ri3OoL3h" "pokus")) ;; (time (funcall c "select 1, 2+3")) ;; (time (funcall c "select 4, 'hello'")) ;; (funcall c nil) -;; (funcall c)