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