From 3eae72c237cbf119bfc4e8e6e9dd213d45eb6eed Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 7 Nov 2009 10:03:22 +0000 Subject: [PATCH] 1.0.32.14: fix build under clisp It already worked with 'clisp -on-error -abort', but since there's only one type declaration in the whole system that clisp doesn't understand, we might as well fix it. Report and patch by Josh Elasser, lp #396597. --- NEWS | 3 +++ src/compiler/ir1util.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index afdedd1..7e3c547 100644 --- a/NEWS +++ b/NEWS @@ -23,6 +23,9 @@ changes relative to sbcl-1.0.32: (launchpad bug #460283) * bug fix: WITH-STANDARD-IO-SYNTAX now binds *PRINT-PPRINT-DISPATCH* to the standard pprint dispatch table as specified by CLHS. + * bug fix: give CLISP a hint about a type declaration to enable it to build + the cross-compiler without warnings. (thanks to Josh Elasser; launchpad + bug #396597) changes in sbcl-1.0.32 relative to sbcl-1.0.31: * optimization: faster FIND and POSITION on strings of unknown element type diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp index f27b60d..257fbe5 100644 --- a/src/compiler/ir1util.lisp +++ b/src/compiler/ir1util.lisp @@ -429,7 +429,7 @@ (lvar-dynamic-extent it))) (defun flushable-combination-p (call) - (declare (combination call)) + (declare (type combination call)) (let ((kind (combination-kind call)) (info (combination-fun-info call))) (when (and (eq kind :known) (fun-info-p info)) diff --git a/version.lisp-expr b/version.lisp-expr index 6c2e42a..4f6cbb6 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.32.12" +"1.0.32.14" -- 1.7.10.4