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