[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv16402/Drei

Modified Files:
	buffer.lisp 
Log Message:
Changed DELETE-BUFFER-REGION to use DELETE-ELEMENTS*.

Requires Flexichain 1.3 (currently, this means CVS).

Increases region-killing performance by more than a hundredfold for most cases.


--- /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp	2008/01/03 16:19:42	1.7
+++ /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp	2008/01/26 00:23:40	1.8
@@ -516,8 +516,7 @@
 	  (make-condition 'offset-after-end :offset offset))
   (assert (<= (+ offset n) (size buffer)) ()
           (make-condition 'offset-after-end :offset (+ offset n)))
-  (loop repeat n
-     do (delete* (contents buffer) offset)))
+  (delete-elements* (contents buffer) offset n))
 
 (defgeneric delete-range (mark &optional n)
   (:documentation "Delete `n' objects after `(if n > 0)' or