dbquery

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

minor cl changes

Diffstat:
M
dbquery.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)