[gsharp-cvs] CVS update: gsharp/Flexichain/flexichain.lisp - gsharp-cvs@common-lisp.net - mailman3.common-lisp.net

16 Nov 2005

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)))

    