Update of /project/flexichain/cvsroot/flexichain In directory clnet:/tmp/cvs-serv11978
Modified Files: flexichain.asd flexichain.lisp Log Message: flexichain 1.4.1
* remove unnecessary hack that would set data-start to (1+ gap-end) in delete-elements*
Date: Thu Jan 31 12:10:58 2008 Author: charmon
Index: flexichain/flexichain.asd diff -u flexichain/flexichain.asd:1.6 flexichain/flexichain.asd:1.7 --- flexichain/flexichain.asd:1.6 Sun Jan 27 01:05:37 2008 +++ flexichain/flexichain.asd Thu Jan 31 12:10:58 2008 @@ -23,7 +23,7 @@ ;; for testing. (asdf:defsystem :flexichain :name "flexichain" - :version "1.4" + :version "1.4.1" :components ((:file "flexichain-package") (:file "utilities" :depends-on ("flexichain-package")) (:file "flexichain" :depends-on ("utilities" "flexichain-package"))
Index: flexichain/flexichain.lisp diff -u flexichain/flexichain.lisp:1.6 flexichain/flexichain.lisp:1.7 --- flexichain/flexichain.lisp:1.6 Sun Jan 27 01:05:37 2008 +++ flexichain/flexichain.lisp Thu Jan 31 12:10:58 2008 @@ -313,8 +313,7 @@ (t (let ((surplus-elements (- n (- (length buffer) gap-end)))) (fill-gap chain gap-end (length buffer)) (fill-gap chain 0 surplus-elements) - (setf gap-end surplus-elements - data-start (1+ gap-end))))) + (setf gap-end surplus-elements)))) (when (= gap-end (length buffer)) (setf gap-end 0)) (when (and (> (length buffer) (+ min-size 2))