cl-2sql

Lisp to SQL compiler for Common Lisp
git clone https://logand.com/git/cl-2sql.git/
Log | Files | Refs | README | LICENSE

2sql-dbquery.lisp (533B)

      1 ;;; cl-2sql Copyright (c) 2011 Tomas Hlavaty
      2 
      3 (defpackage :2sql-dbquery
      4   (:use :cl)
      5   (:export :make-backend))
      6 
      7 (in-package :2sql-dbquery)
      8 
      9 (defun make-backend (dbquery-server)
     10   (lambda (msg &rest args)
     11     (assert dbquery-server)
     12     (ecase msg
     13       (:finish
     14        (apply 'dbquery:finish dbquery-server args)
     15        (setq dbquery-server nil))
     16       (:query (apply 'dbquery:query dbquery-server args))
     17       (:prepare (apply 'dbquery:prepare dbquery-server args))
     18       (:execute (apply 'dbquery:execute dbquery-server args)))))