From bf6bd9ff344569c983aad21c23e84fded79c26be Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 6 Nov 2005 18:18:43 +0000 Subject: [PATCH] 0.9.6.29: Make one (failing on sparc/sunos) compiler test a little more new-test-framework-friendly. --- tests/compiler.pure.lisp | 19 ++++++++++--------- version.lisp-expr | 2 +- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index 2d2bd98..a8ce73d 100644 --- a/tests/compiler.pure.lisp +++ b/tests/compiler.pure.lisp @@ -1723,15 +1723,16 @@ (error "bad RANDOM event")))) ;;; 0.8.17.28-sma.1 lost derived type information. -(handler-bind ((sb-ext:compiler-note #'error)) - (compile nil - '(lambda (x y v) - (declare (optimize (speed 3) (safety 0))) - (declare (type (integer 0 80) x) - (type (integer 0 11) y) - (type (simple-array (unsigned-byte 32) (*)) v)) - (setf (aref v 0) (* (* x #.(floor (ash 1 32) (* 11 80))) y)) - nil))) +(with-test (:name "0.8.17.28-sma.1" :fails-on :sparc) + (handler-bind ((sb-ext:compiler-note (lambda (c) (error "~A" c)))) + (compile nil + '(lambda (x y v) + (declare (optimize (speed 3) (safety 0))) + (declare (type (integer 0 80) x) + (type (integer 0 11) y) + (type (simple-array (unsigned-byte 32) (*)) v)) + (setf (aref v 0) (* (* x #.(floor (ash 1 32) (* 11 80))) y)) + nil)))) ;;; Bug reported by Robert J. Macomber: instrumenting of more-entry ;;; prevented open coding of %LISTIFY-REST-ARGS. diff --git a/version.lisp-expr b/version.lisp-expr index 26e9442..0a9cdfa 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.6.28" +"0.9.6.29" -- 1.7.10.4