[Sbcl-commits] master: Optimize (coerce x 'character) into (character x).

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  1afacba0d0df88ffa6b34ddd52e7f1e0144ec1ee (commit)
      from  aab5bd0d43016a52b5cf0df34885f0d97b03a804 (commit)

- Log -----------------------------------------------------------------
commit 1afacba0d0df88ffa6b34ddd52e7f1e0144ec1ee
Author: Stas Boukarev <sta...@gm...>
Date:   Sat Apr 19 15:33:10 2014 +0400

    Optimize (coerce x 'character) into (character x).
---
 src/compiler/typetran.lisp |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/src/compiler/typetran.lisp b/src/compiler/typetran.lisp
index 7b97c2f..d4a0f54 100644
--- a/src/compiler/typetran.lisp
+++ b/src/compiler/typetran.lisp
@@ -756,6 +756,8 @@
                  (if (typep x ',tval)
                      x
                      (replace (make-array (length x) :element-type 'character) x))))
+          ((eq tval 'character)
+           `(character x))
            ;; Special case VECTOR
            ((eq tval 'vector)
             `(the ,tval

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL