[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv32211/src/elephant

Modified Files:
	transactions.lisp 
Log Message:
Fixed unquoted macro in BDB

--- /project/elephant/cvsroot/elephant/src/elephant/transactions.lisp	2007/02/17 12:13:19	1.8
+++ /project/elephant/cvsroot/elephant/src/elephant/transactions.lisp	2007/02/17 19:28:53	1.9
@@ -78,19 +78,19 @@
   "Get the store that owns the transaction from a transaction record"
   (car txnrec))
 
-(define-compiler-macro transaction-store (&whole form arg)
-  (if (atom arg)
-      `(car ,arg)
-      form))
+;;(define-compiler-macro transaction-store (&whole form arg)
+;;  (if (atom arg)
+;;      `(car ,arg)
+;;      form))
 
 (defun transaction-object (txnrec)
   "Get the backend-specific transaction object"
   (cdr txnrec))
 
-(define-compiler-macro transaction-object (&whole form arg)
-  (if (atom arg)
-      `(cdr ,arg)
-      form))
+;;(define-compiler-macro transaction-object (&whole form arg)
+;;  (if (atom arg)
+;;      `(cdr ,arg)
+;;      form))
 
 (defun transaction-object-p (txnrec)
   (consp txnrec))