cl-2sql

commit 6771c383d06fd37545dc11d844b0b6a1cbb089ab
parent 333c47efc9a05b1c055b0faecad71d00c94b7cf2
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 13 Aug 2011 17:48:03 +0200

apply-query added

Diffstat:
M
compiler.lisp
 | 
3
+++
M
packages.lisp
 | 
1
+

2 files changed, 4 insertions(+), 0 deletions(-)
diff --git a/compiler.lisp b/compiler.lisp
@@ -50,6 +50,9 @@
 (defmacro qdefun (name args &body body)
   `(defun ,name ,args ,@(queries args body)))
 
+(defun apply-query (args vals form)
+  (apply (compiled-query-lambda args form) vals))
+
 #+nil
 (defmacro qlet (bindings &body body)
   `(flet ,(mapcar (lambda (x)
diff --git a/packages.lisp b/packages.lisp
@@ -19,6 +19,7 @@
    #:query
    #:qlambda
    #:qdefun
+   #:apply-query
    #:qlet
    #:qmacroexpand
    #:qmap