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

[Robert Strandh]

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

Modified Files:
	flexichain.lisp 
Log Message:
Fixed a bug in resize-buffer that did not take the existence of
sentinels into account.


Date: Mon Sep  6 13:23:17 2004
Author: rstrandh

Index: gsharp/Flexichain/flexichain.lisp
diff -u gsharp/Flexichain/flexichain.lisp:1.4 gsharp/Flexichain/flexichain.lisp:1.5
--- gsharp/Flexichain/flexichain.lisp:1.4	Sun Aug 22 07:01:02 2004
+++ gsharp/Flexichain/flexichain.lisp	Mon Sep  6 13:23:16 2004
@@ -467,7 +467,7 @@
         (:gap-right
          (move-elements fc buffer-after buffer 0 0 gap-start))
         (:gap-left
-         (let ((gap-end-after (- new-buffer-size (nb-elements fc))))
+         (let ((gap-end-after (- new-buffer-size (+ 2 (nb-elements fc)))))
            (move-elements fc buffer-after buffer gap-end-after gap-end buffer-size)
            (setf gap-end gap-end-after)))
         (:gap-non-contiguous