[flexichain-cvs] CVS update: flexichain/flexichain.asd flexichain/flexichain.lisp

[Cyrus Harmon]

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