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