Update of /project/climacs/cvsroot/climacs/Persistent In directory common-lisp.net:/tmp/cvs-serv31702/Persistent Modified Files: persistent-base-test.lisp persistent-buffer.lisp Log Message: Changes to indent-line, copyrights. Tests for indent-line. Date: Sun Feb 6 17:33:52 2005 Author: abakic Index: climacs/Persistent/persistent-base-test.lisp diff -u climacs/Persistent/persistent-base-test.lisp:1.5 climacs/Persistent/persistent-base-test.lisp:1.6 --- climacs/Persistent/persistent-base-test.lisp:1.5 Sun Feb 6 01:03:29 2005 +++ climacs/Persistent/persistent-base-test.lisp Sun Feb 6 17:33:52 2005 @@ -866,6 +866,15 @@ (deftest binseq-buffer-indent-line.test-2 (let ((buffer (make-instance 'binseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") + (let ((m (make-instance 'persistent-left-sticky-mark + :buffer buffer :offset 0))) + (indent-line m 5 4) + (buffer-sequence buffer 0 (size buffer)))) + " climacs ") + +(deftest binseq-buffer-indent-line.test-3 + (let ((buffer (make-instance 'binseq-buffer))) + (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-right-sticky-mark :buffer buffer :offset 0))) (indent-line m 5 4) @@ -1716,6 +1725,15 @@ " climacs ") (deftest obinseq-buffer-indent-line.test-2 + (let ((buffer (make-instance 'obinseq-buffer))) + (insert-buffer-sequence buffer 0 " climacs ") + (let ((m (make-instance 'persistent-left-sticky-mark + :buffer buffer :offset 0))) + (indent-line m 5 4) + (buffer-sequence buffer 0 (size buffer)))) + " climacs ") + +(deftest obinseq-buffer-indent-line.test-3 (let ((buffer (make-instance 'obinseq-buffer))) (insert-buffer-sequence buffer 0 " climacs ") (let ((m (make-instance 'persistent-right-sticky-mark Index: climacs/Persistent/persistent-buffer.lisp diff -u climacs/Persistent/persistent-buffer.lisp:1.5 climacs/Persistent/persistent-buffer.lisp:1.6 --- climacs/Persistent/persistent-buffer.lisp:1.5 Sun Feb 6 01:03:29 2005 +++ climacs/Persistent/persistent-buffer.lisp Sun Feb 6 17:33:52 2005 @@ -145,16 +145,6 @@ (setf high-mark (make-instance 'persistent-right-sticky-mark :buffer buffer)))) -;; (defmethod clone-mark ((mark persistent-left-sticky-mark) &optional type) -;; (unless type -;; (setf type 'persistent-left-sticky-mark)) -;; (make-instance type :buffer (buffer mark) :offset (offset mark))) - -;; (defmethod clone-mark ((mark persistent-right-sticky-mark) &optional type) -;; (unless type -;; (setf type 'persistent-right-sticky-mark)) -;; (make-instance type :buffer (buffer mark) :offset (offset mark))) - (defmethod size ((buffer binseq-buffer)) (binseq-length (slot-value buffer 'contents)))