[climacs-cvs] CVS update: climacs/buffer-test.lisp
Aleksandar Bakic
abakic at common-lisp.net
Sun Jan 16 00:41:45 UTC 2005
Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv23248
Modified Files:
buffer-test.lisp
Log Message:
A bug fix in a test.
Date: Sun Jan 16 01:41:44 2005
Author: abakic
Index: climacs/buffer-test.lisp
diff -u climacs/buffer-test.lisp:1.1 climacs/buffer-test.lisp:1.2
--- climacs/buffer-test.lisp:1.1 Sun Jan 16 00:23:45 2005
+++ climacs/buffer-test.lisp Sun Jan 16 01:41:44 2005
@@ -37,11 +37,11 @@
(deftest standard-buffer-clone-mark.test-1
(flet ((%all-eq (&optional x y)
(cond
- ((or (null x) (null y) t))
+ ((null x) nil)
(t (when (eq x y) y))))
(%all-= (&optional x y)
(cond
- ((or (null x) (null y) t))
+ ((null x) nil)
(t (when (= x y) y)))))
(let* ((buffer (make-instance 'standard-buffer))
(low (slot-value buffer 'low-mark))
@@ -50,13 +50,12 @@
(high2 (clone-mark high))
(low3 (clone-mark high 'standard-left-sticky-mark))
(high3 (clone-mark low 'standard-right-sticky-mark)))
- (and (every #'%all-eq
+ (and (reduce #'%all-eq
(list (class-of low) (class-of low2) (class-of low3)))
- (every #'%all-eq
+ (reduce #'%all-eq
(list (class-of high) (class-of high2) (class-of high3)))
- (every #'%all-=
- (list (offset low) (offset low2) (offset low3)
- (offset high) (offset high2) (offset high3) 0)))))
+ (= (offset low) (offset low2) (offset low3)
+ (offset high) (offset high2) (offset high3) 0))))
t)
;;; NOTE: the current implementation uses vectors wherever sequences are
More information about the Climacs-cvs
mailing list