From dd09e391c3c780c948d02ce7bc214a8a9155aef3 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 20 Jan 2013 13:16:31 +0200 Subject: [PATCH] note FIRST fix in NEWS, fix stupid typo in tests --- NEWS | 1 + tests/compiler.pure.lisp | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index 220dbd3..fb73ea8 100644 --- a/NEWS +++ b/NEWS @@ -8,6 +8,7 @@ changes relative to sbcl-1.1.3: * bug fix: optimizations to MAKE-INSTANCE with literal list initargs no longer cause infinite loops (on circular data) or violate eqlity constraints. (lp#1099708) + * bug fix: FIRST was not being open coded. (regression from 1.1.0) changes in sbcl-1.1.3 relative to sbcl-1.1.2: * enhancement: warnings about bad locale settings, LANG, LC_CTYPE, etc. diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index 624feeb..833c5ee 100644 --- a/tests/compiler.pure.lisp +++ b/tests/compiler.pure.lisp @@ -4371,10 +4371,10 @@ (sb-c::mask-signed-field 31 (- x 1055131947)))))) (assert (= (funcall fun 10038) -1055121909)))) -(with-rest (:name :first-open-coded) +(with-test (:name :first-open-coded) (let ((fun (compile nil `(lambda (x) (first x))))) (assert (not (ctu:find-named-callees fun))))) -(with-rest (:name :second-open-coded) +(with-test (:name :second-open-coded) (let ((fun (compile nil `(lambda (x) (second x))))) (assert (not (ctu:find-named-callees fun))))) -- 1.7.10.4