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

[bknr at bknr.net]

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)