Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31372/src/compiler

Modified Files:
	ir1opt.lisp 
Log Message:
0.8.21.34:
	How to lose friends and alienate people...
	... actually make constant-folding failure a full warning in the 
		cross-compiler (but not the target).
	... fix the problem this reveals on x86-64.
	Meanwhile, "uname -p"?  Change to -m.


Index: ir1opt.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1opt.lisp,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -d -r1.107 -r1.108
--- ir1opt.lisp	9 Apr 2005 06:37:05 -0000	1.107
+++ ir1opt.lisp	11 Apr 2005 08:59:25 -0000	1.108
@@ -1126,7 +1126,15 @@
 		      ;; COMPILER-WARNING (and thus return FAILURE-P=T
 		      ;; from COMPILE-FILE) for legal code, so we we
 		      ;; use a wimpier COMPILE-STYLE-WARNING instead.
-		      #'compiler-style-warn
+		      #-sb-xc-host #'compiler-style-warn
+		      ;; On the other hand, for code we control, we
+		      ;; should be able to work around any bug
+		      ;; 173-related problems, and in particular we
+		      ;; want to be alerted to calls to our own
+		      ;; functions which aren't being folded away; a
+		      ;; COMPILER-WARNING is butch enough to stop the
+		      ;; SBCL build itself in its tracks.
+		      #+sb-xc-host #'compiler-warn
 		      "constant folding")
       (cond ((not win)
              (setf (combination-kind call) :error))

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31372/tests

Modified Files:
	foreign.test.sh 
Log Message:
0.8.21.34:
	How to lose friends and alienate people...
	... actually make constant-folding failure a full warning in the 
		cross-compiler (but not the target).
	... fix the problem this reveals on x86-64.
	Meanwhile, "uname -p"?  Change to -m.


Index: foreign.test.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/foreign.test.sh,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- foreign.test.sh	13 Feb 2005 14:27:11 -0000	1.20
+++ foreign.test.sh	11 Apr 2005 08:59:25 -0000	1.21
@@ -27,7 +27,7 @@
 
 build_so() {
   echo building $1.so
-  if [ $(uname -p) = x86_64 ]; then
+  if [ $(uname -m) = x86_64 ]; then
     CFLAGS="$CFLAGS -fPIC"
   fi
   if [ $(uname) = Darwin ]; then

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31372/src/code

Modified Files:
	cross-misc.lisp cross-type.lisp 
Log Message:
0.8.21.34:
	How to lose friends and alienate people...
	... actually make constant-folding failure a full warning in the 
		cross-compiler (but not the target).
	... fix the problem this reveals on x86-64.
	Meanwhile, "uname -p"?  Change to -m.


Index: cross-misc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/cross-misc.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- cross-misc.lisp	9 Apr 2005 06:37:04 -0000	1.20
+++ cross-misc.lisp	11 Apr 2005 08:59:24 -0000	1.21
@@ -136,6 +136,9 @@
   (assert (typep array '(simple-array * (*))))
   (values array start end 0))
 
+(defun sb!kernel:signed-byte-32-p (number)
+  (typep number '(signed-byte 32)))
+
 ;;; package locking nops for the cross-compiler
 
 (defmacro without-package-locks (&body body)

Index: cross-type.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/cross-type.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- cross-type.lisp	1 Nov 2004 12:35:59 -0000	1.25
+++ cross-type.lisp	11 Apr 2005 08:59:24 -0000	1.26
@@ -23,7 +23,7 @@
   ((call :initarg :call
 	 :reader cross-type-style-warning-call)
    (message :reader cross-type-style-warning-message
-	    #+cmu :initarg #+cmu :message ; (to stop bogus non-STYLE WARNING)
+	    #+cmu #+cmu :initarg :message ; (to stop bogus non-STYLE WARNING)
 	    ))
   (:report (lambda (c s)
 	     (format
@@ -38,7 +38,7 @@
 (define-condition cross-type-giving-up-conservatively
     (cross-type-style-warning)
   ((message :initform "giving up conservatively"
-	    #+cmu :reader #+cmu #.(gensym) ; (to stop bogus non-STYLE WARNING)
+	    #+cmu #+cmu :reader #.(gensym) ; (to stop bogus non-STYLE WARNING)
 	    )))
 
 ;;; This warning refers to the flexibility in the ANSI spec with

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31372

Modified Files:
	version.lisp-expr 
Log Message:
0.8.21.34:
	How to lose friends and alienate people...
	... actually make constant-folding failure a full warning in the 
		cross-compiler (but not the target).
	... fix the problem this reveals on x86-64.
	Meanwhile, "uname -p"?  Change to -m.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2085
retrieving revision 1.2086
diff -u -d -r1.2085 -r1.2086
--- version.lisp-expr	10 Apr 2005 16:51:48 -0000	1.2085
+++ version.lisp-expr	11 Apr 2005 08:59:22 -0000	1.2086
@@ -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.8.21.33"
+"0.8.21.34"