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