Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15181

Modified Files:
	NEWS package-data-list.lisp-expr version.lisp-expr 
Log Message:
0.9.8.3:
	Make EQUAL faster (about 50% improvement for short lists on x86-64).
        As amazing as it might seem, there are actually real-world 
        applications where significant time is spent in EQUAL.
        
        * Inline EQL in EQUAL
        * Rearrange things a bit to enable the inlining
        * Rewrite EQUAL to use a local helper function


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.931
retrieving revision 1.932
diff -u -d -r1.931 -r1.932
--- NEWS	19 Dec 2005 10:49:33 -0000	1.931
+++ NEWS	28 Dec 2005 22:37:14 -0000	1.932
@@ -1,4 +1,7 @@
 ;;;; -*- coding: utf-8; -*-
+changes in sbcl-0.9.9 relative to sbcl-0.9.8:
+  * optimization: faster implementation of EQUAL
+
 changes in sbcl-0.9.8 relative to sbcl-0.9.7:
   * minor incompatible change: (SETF CLASS-NAME) and (SETF
     GENERIC-FUNCTION-NAME) are generic functions once more (reverting

Index: package-data-list.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v
retrieving revision 1.341
retrieving revision 1.342
diff -u -d -r1.341 -r1.342
--- package-data-list.lisp-expr	16 Dec 2005 15:06:09 -0000	1.341
+++ package-data-list.lisp-expr	28 Dec 2005 22:37:14 -0000	1.342
@@ -1114,7 +1114,7 @@
                "%CHECK-BOUND" "%CHECK-VECTOR-SEQUENCE-BOUNDS"
                "%CLOSURE-FUN" "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
                "%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
-               "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1" "%FIND-POSITION"
+               "%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION"
                "%FIND-POSITION-VECTOR-MACRO" "%FIND-POSITION-IF"
                "%FIND-POSITION-IF-VECTOR-MACRO" "%FIND-POSITION-IF-NOT"
                "%FIND-POSITION-IF-NOT-VECTOR-MACRO" "%FUN-DOC"

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2613
retrieving revision 1.2614
diff -u -d -r1.2613 -r1.2614
--- version.lisp-expr	28 Dec 2005 13:56:23 -0000	1.2613
+++ version.lisp-expr	28 Dec 2005 22:37:14 -0000	1.2614
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.8.2"
+"0.9.8.3"