Author: hhubner Date: 2007-11-26 07:42:03 -0500 (Mon, 26 Nov 2007) New Revision: 2289
Modified: branches/trunk-reorg/bknr/datastore/src/data/object.lisp Log: enhance error message
Modified: branches/trunk-reorg/bknr/datastore/src/data/object.lisp =================================================================== --- branches/trunk-reorg/bknr/datastore/src/data/object.lisp 2007-11-26 11:54:55 UTC (rev 2288) +++ branches/trunk-reorg/bknr/datastore/src/data/object.lisp 2007-11-26 12:42:03 UTC (rev 2289) @@ -81,8 +81,8 @@ (defmethod (setf slot-value-using-class) :before (newval (class persistent-class) object slotd) (when (and (persistent-slot-p slotd) (not (in-transaction-p))) - (error "Attempt to set persistent slot outside of a transaction : (~A ~A)" - (slot-definition-name slotd) (type-of object)))) + (error "Attempt to set persistent slot ~A of ~A outside of a transaction" + (slot-definition-name slotd) object)))
(defmethod (setf slot-value-using-class) :after (newval (class persistent-class) object slotd) (when (in-anonymous-transaction-p)