[bknr-cvs] r2289 - branches/trunk-reorg/bknr/datastore/src/data

[bknr at bknr.net]

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)