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))