From dd1122b8a0577c7004d2b41c993cad1faaa8d333 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 15 Jan 2008 22:13:21 +0000 Subject: [PATCH] 1.0.13.42: character untagging test from Lutz Euler sbcl-devel 2007-05-01 --- tests/character.pure.lisp | 12 ++++++++++++ version.lisp-expr | 2 +- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp index 37f4b49..e26fed4 100644 --- a/tests/character.pure.lisp +++ b/tests/character.pure.lisp @@ -73,3 +73,15 @@ (assert name)))) (assert (null (name-char 'foo))) + +;;; Between 1.0.4.53 and 1.0.4.69 character untagging was broken on +;;; x86-64 if the result of the VOP was allocated on the stack, failing +;;; an aver in the compiler. +(with-test (:name :character-untagging) + (compile nil + '(lambda (c0 c1 c2 c3 c4 c5 c6 c7 + c8 c9 ca cb cc cd ce cf) + (declare (type character c0 c1 c2 c3 c4 c5 c6 c7 + c8 c9 ca cb cc cd ce cf)) + (char< c0 c1 c2 c3 c4 c5 c6 c7 + c8 c9 ca cb cc cd ce cf)))) diff --git a/version.lisp-expr b/version.lisp-expr index 84df7f1..68d14b4 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".) -"1.0.13.41" +"1.0.13.42" -- 1.7.10.4