[bknr-cvs] r2372 - branches/bos/projects/bos/m2

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Mon Jan 21 07:27:05 2008
New Revision: 2372

Modified:
   branches/bos/projects/bos/m2/allocation-cache.lisp
Log:
new SNAPSHOT-SUBSYSTEM method for ALLOCATION-CACHE-SUBSYSTEM,
which simply does nothing


Modified: branches/bos/projects/bos/m2/allocation-cache.lisp
==============================================================================
--- branches/bos/projects/bos/m2/allocation-cache.lisp	(original)
+++ branches/bos/projects/bos/m2/allocation-cache.lisp	Mon Jan 21 07:27:05 2008
@@ -227,3 +227,6 @@
     (store (subsystem allocation-cache-subsystem) &key until)
   (declare (ignore until))
   (rebuild-cache))
+
+(defmethod bknr.datastore::snapshot-subsystem (store (subsystem allocation-cache-subsystem))
+  )
\ No newline at end of file