[bknr-cvs] hans changed trunk/bknr/datastore/src/

[BKNR Commits]

Revision: 4109
Author: hans
URL: http://bknr.net/trac/changeset/4109

add print-store-object macro, fix dependencies
U   trunk/bknr/datastore/src/bknr.datastore.asd
U   trunk/bknr/datastore/src/data/object.lisp
U   trunk/bknr/datastore/src/data/package.lisp

Modified: trunk/bknr/datastore/src/bknr.datastore.asd
===================================================================
--- trunk/bknr/datastore/src/bknr.datastore.asd	2008-12-03 21:16:32 UTC (rev 4108)
+++ trunk/bknr/datastore/src/bknr.datastore.asd	2008-12-03 21:17:12 UTC (rev 4109)
@@ -22,6 +22,7 @@
                :unit-test
                :bknr.utils
                :bknr.indices
+               :yason
                :trivial-utf-8)
 
   :components ((:module "data" :components ((:file "package")

Modified: trunk/bknr/datastore/src/data/object.lisp
===================================================================
--- trunk/bknr/datastore/src/data/object.lisp	2008-12-03 21:16:32 UTC (rev 4108)
+++ trunk/bknr/datastore/src/data/object.lisp	2008-12-03 21:17:12 UTC (rev 4109)
@@ -282,6 +282,12 @@
   ;; running the transaction log.
   (initialize-transient-instance object))
 
+(defmacro print-store-object ((object stream &key type) &body body)
+  ;; variable capture accepted here.
+  `(print-unreadable-object (,object ,stream :type ,type)
+     (format stream "ID: ~D " (store-object-id ,object))
+     , at body))
+
 (defmethod print-object ((object store-object) stream)
   (print-unreadable-object (object stream :type t)
     (format stream "ID: ~D" (store-object-id object))))

Modified: trunk/bknr/datastore/src/data/package.lisp
===================================================================
--- trunk/bknr/datastore/src/data/package.lisp	2008-12-03 21:16:32 UTC (rev 4108)
+++ trunk/bknr/datastore/src/data/package.lisp	2008-12-03 21:17:12 UTC (rev 4109)
@@ -56,6 +56,7 @@
            #:store-object-id
            #:store-object-last-change
            #:store-object-touch
+           #:print-store-object
 
            #:delete-object
            #:delete-objects