[gsharp-cvs] CVS update: gsharp/Flexichain/flexichain.lisp

[Robert Strandh]

Update of /project/gsharp/cvsroot/gsharp/Flexichain
In directory common-lisp.net:/tmp/cvs-serv27532

Modified Files:
	flexichain.lisp 
Log Message:
Fixed a bug that made :initial-contents not work properly.

Date: Wed Nov 16 19:33:10 2005
Author: rstrandh

Index: gsharp/Flexichain/flexichain.lisp
diff -u gsharp/Flexichain/flexichain.lisp:1.7 gsharp/Flexichain/flexichain.lisp:1.8
--- gsharp/Flexichain/flexichain.lisp:1.7	Wed Nov 16 04:06:59 2005
+++ gsharp/Flexichain/flexichain.lisp	Wed Nov 16 19:33:10 2005
@@ -176,7 +176,7 @@
 							initial-contents
 							fill-list)))))
   (with-slots (gap-start gap-end data-start) chain
-     (setf gap-start 2
+     (setf gap-start (+ 2 (length initial-contents))
 	   gap-end 0
 	   data-start 1)))