Author: hhubner Date: 2007-11-11 08:16:06 -0500 (Sun, 11 Nov 2007) New Revision: 2265
Modified: branches/trunk-reorg/bknr/datastore/src/data/encoding.lisp Log: Fix bug which resulted in vectors with fill pointers being incorrectly written to the snapshot file. Instead of writing the size of the array, the fill-pointer was written as array dimension, which resulted in snapshots that could not be restored.
Modified: branches/trunk-reorg/bknr/datastore/src/data/encoding.lisp =================================================================== --- branches/trunk-reorg/bknr/datastore/src/data/encoding.lisp 2007-11-10 19:47:50 UTC (rev 2264) +++ branches/trunk-reorg/bknr/datastore/src/data/encoding.lisp 2007-11-11 13:16:06 UTC (rev 2265) @@ -253,7 +253,7 @@ (write-byte flags stream) (cond (vectorp - (%encode-integer (length object) stream)) + (%encode-integer (car dims) stream)) (t (%encode-integer (length dims) stream) (dolist (d dims)