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