[elephant-cvs] CVS elephant/src/db-bdb - elephant-cvs@common-lisp.net - mailman3.common-lisp.net

17 Feb 2007

Update of /project/elephant/cvsroot/elephant/src/db-bdb
In directory clnet:/tmp/cvs-serv32211/src/db-bdb
Modified Files:
    bdb-controller.lisp 
Log Message:
Fixed unquoted macro in BDB

--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/02/17 12:13:19	1.28
+++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp	2007/02/17 19:28:53	1.29
@@ -63,10 +63,11 @@
 ;;
(defmacro my-current-transaction (sc)
-  (let ((txn-rec *current-transaction*))
-    (if (and txn-rec (eq (transaction-store txn-rec) sc))
-	(transaction-object txn-rec)
-	+NULL-VOID+)))
+  (let ((txn-rec (gensym)))
+    `(let ((,txn-rec *current-transaction*))
+       (if (and ,txn-rec (eq (transaction-store ,txn-rec) ,sc))
+	   (transaction-object ,txn-rec)
+	   +NULL-CHAR+))))
 ;;
 ;; Open/close     
 ;;

    