[climacs-cvs] CVS update: climacs/Persistent/persistent-base-test.lisp climacs/Persistent/persistent-buffer.lisp

[Aleksandar Bakic]

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