From: Nikodemus S. <de...@us...> - 2008-04-23 17:40:55
|
Update of /cvsroot/sbcl/sbcl In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv2377 Modified Files: NEWS package-data-list.lisp-expr version.lisp-expr Log Message: 1.0.16.7: slightly faster LAST * Remove MAYBE-INLINE declaration and separate into out-of-line %LAST0, %LAST1, %LASTN/FIXNUM, and (rather academically) %LASTN/BIGNUM. * Add a DEFTRANSFORM to optimize to the most specific version possible. Index: NEWS =================================================================== RCS file: /cvsroot/sbcl/sbcl/NEWS,v retrieving revision 1.1329 retrieving revision 1.1330 diff -u -d -r1.1329 -r1.1330 --- NEWS 23 Apr 2008 15:42:30 -0000 1.1329 +++ NEWS 23 Apr 2008 17:40:38 -0000 1.1330 @@ -3,6 +3,10 @@ * optimization: ADJOIN and PUSHNEW are upto ~70% faster in normal SPEED policies. * optimization: APPEND is upto ~10% faster in normal SPEED policies. + * optimization: two argument forms of LAST are upto ~10% faster + in normal SPEED policies. + * bug fix: LAST when always returned the whole list when given a bignum + as the second argument. * bug fix: dynamic extent allocation of nested lists and vectors could leak to otherwise accessible parts. * bug fix: invalid optimization of heap-allocated alien variable Index: package-data-list.lisp-expr =================================================================== RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v retrieving revision 1.447 retrieving revision 1.448 diff -u -d -r1.447 -r1.448 --- package-data-list.lisp-expr 14 Mar 2008 19:03:05 -0000 1.447 +++ package-data-list.lisp-expr 23 Apr 2008 17:40:38 -0000 1.448 @@ -1193,6 +1193,10 @@ "%FUN-FUN" "%FUN-NAME" "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10" + "%LAST0" + "%LAST1" + "%LASTN/FIXNUM" + "%LASTN/BIGNUM" "%LOG1P" #!+long-float "%LONG-FLOAT" "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" Index: version.lisp-expr =================================================================== RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v retrieving revision 1.3919 retrieving revision 1.3920 diff -u -d -r1.3919 -r1.3920 --- version.lisp-expr 23 Apr 2008 15:42:30 -0000 1.3919 +++ version.lisp-expr 23 Apr 2008 17:40:38 -0000 1.3920 @@ -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".) -"1.0.16.6" +"1.0.16.7" |