From 4d9ce212ecdef5af8356873b56f88c72c4ed113d Mon Sep 17 00:00:00 2001 From: "Paul F. Dietz" Date: Wed, 3 Aug 2005 01:44:41 +0000 Subject: [PATCH] 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. --- src/compiler/srctran.lisp | 12 ++++++------ version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) 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" -- 1.7.10.4