[Sbcl-commits] CVS: sbcl/src/code seq.lisp,1.48,1.49

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv32308/src/code

Modified Files:
	seq.lisp 
Log Message:
0.8.0.70:
	A couple of fixes:
	... SEARCH and test predicate argument ordering: patch from 
		Wolfhard Buss cmucl-imp 2003-06-13
	... VECTOR-PUSH-EXTEND and type inference: disable MAKE-ARRAY
		dimension type inferencing for non-simple 1d arrays, as
		the dimension can change too easily.  Regressions noted
		by pfdietz' test suite.


Index: seq.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/seq.lisp,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- seq.lisp	26 May 2003 04:25:54 -0000	1.48
+++ seq.lisp	14 Jun 2003 13:39:30 -0000	1.49
@@ -2240,14 +2240,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))))
 
 (sb!xc: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))))
 
 (sb!xc:defmacro search-compare-vector-list (main sub index)
   `(do ((sub (nthcdr start1 ,sub) (cdr sub))
@@ -2255,14 +2255,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))))
 
 (sb!xc: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))))
 
 (sb!xc:defmacro search-compare (main-type main sub index)
   (if (eq main-type 'list)