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.

diff --git a/NEWS b/NEWS
index afdedd1..7e3c547 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"