From ab2e7a903f6032f5fa2dd938401a57c3f6064eff Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sat, 14 Jun 2003 10:58:10 +0000
Subject: [PATCH] =?UTF-8?q?=09Fix=20for=20(search=20'(1=202)=20'(3=204=200?=
 =?UTF-8?q?=201)=20:test=20#'<),=20which=20should=20=09return=200.=20=20Fr?=
 =?UTF-8?q?om=20Wolfhard=20Bu=C3=9F=20on=20cmucl-imp.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

	* src/code/seq.lisp (search-compare-list-list)
	(search-compare-list-vector, search-compare-vector-list)
	(search-compare-vector-vector): Reverse arguments to
	compare-elements.
---
 code/seq.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/code/seq.lisp b/code/seq.lisp
index f9f1388fd..bbe50ef17 100644
--- a/code/seq.lisp
+++ b/code/seq.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/seq.lisp,v 1.47 2003/05/26 20:20:31 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/seq.lisp,v 1.48 2003/06/14 10:58:10 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2459,14 +2459,14 @@
        ((or (null main) (null sub) (= (the fixnum end1) jndex))
 	t)
      (declare (fixnum jndex))
-     (compare-elements (car main) (car sub))))
+     (compare-elements (car sub) (car main))))
 
 (defmacro search-compare-list-vector (main sub)
   `(do ((main ,main (cdr main))
 	(index start1 (1+ index)))
        ((or (null main) (= index (the fixnum end1))) t)
      (declare (fixnum index))
-     (compare-elements (car main) (aref ,sub index))))
+     (compare-elements (aref ,sub index) (car main))))
 
 (defmacro search-compare-vector-list (main sub index)
   `(do ((sub (nthcdr start1 ,sub) (cdr sub))
@@ -2474,14 +2474,14 @@
 	(index ,index (1+ index)))
        ((or (= (the fixnum end1) jndex) (null sub)) t)
      (declare (fixnum jndex index))
-     (compare-elements (aref ,main index) (car sub))))
+     (compare-elements (car sub) (aref ,main index))))
 
 (defmacro search-compare-vector-vector (main sub index)
   `(do ((index ,index (1+ index))
 	(sub-index start1 (1+ sub-index)))
        ((= sub-index (the fixnum end1)) t)
      (declare (fixnum sub-index index))
-     (compare-elements (aref ,main index) (aref ,sub sub-index))))
+     (compare-elements (aref ,sub sub-index) (aref ,main index))))
 
 (defmacro search-compare (main-type main sub index)
   (if (eq main-type 'list)
-- 
GitLab