From: Paul F. Dietz <pfdietz@users.sourceforge.net>
Date: Wed, 3 Aug 2005 01:44:41 +0000 (+0000)
Subject: 0.9.3.19:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4d9ce212ecdef5af8356873b56f88c72c4ed113d;p=sbcl.git

0.9.3.19:
  The LAST source transform appears to have slowed down STRING-CONCAT,
  so change it to a call to a specialized function rather than fully
  inlining it.
---

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 8e96110..620ab2a 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -128,12 +128,12 @@
 
 (define-source-transform nth (n l) `(car (nthcdr ,n ,l)))
 
-;; (define-source-transform last (x) `(sb!impl::last1 ,x))
-(define-source-transform last (x)
-  `(let* ((x (the list ,x))
-          (r (cdr x)))
-     (do () ((atom r) x)
-       (shiftf x r (cdr r)))))
+(define-source-transform last (x) `(sb!impl::last1 ,x))
+;; (define-source-transform last (x)
+;;  `(let* ((x (the list ,x))
+;;          (r (cdr x)))
+;;     (do () ((atom r) x)
+;;       (shiftf x r (cdr r)))))
 
 (defvar *default-nthcdr-open-code-limit* 6)
 (defvar *extreme-nthcdr-open-code-limit* 20)
diff --git a/version.lisp-expr b/version.lisp-expr
index 7bcf166..ac022b8 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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.3.18"
+"0.9.3.19"