From: Nikodemus S. <de...@us...> - 2010-11-18 13:52:15
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv32276/src/code Modified Files: macros.lisp numbers.lisp Log Message: 1.0.44.29: full warnings for duplicate CASE keys during SBCL build ...and fix the issue revealed. Thanks to Cyrus Harmon for the heads-up. Index: macros.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/macros.lisp,v retrieving revision 1.61 retrieving revision 1.62 diff -u -d -r1.61 -r1.62 --- macros.lisp 26 Sep 2009 21:34:46 -0000 1.61 +++ macros.lisp 18 Nov 2010 13:52:06 -0000 1.62 @@ -165,7 +165,8 @@ (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute) -(define-condition duplicate-case-key-warning (style-warning) +;;; Make this a full warning during SBCL build. +(define-condition duplicate-case-key-warning (#-sb-xc-host style-warning #+sb-xc-host warning) ((key :initarg :key :reader case-warning-key) (case-kind :initarg :case-kind Index: numbers.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/numbers.lisp,v retrieving revision 1.57 retrieving revision 1.58 diff -u -d -r1.57 -r1.58 --- numbers.lisp 28 Jun 2009 21:37:05 -0000 1.57 +++ numbers.lisp 18 Nov 2010 13:52:06 -0000 1.58 @@ -855,10 +855,10 @@ ;; conversion. (multiple-value-bind (lo hi) (case '(dispatch-type y) - ('single-float + (single-float (values most-negative-exactly-single-float-fixnum most-positive-exactly-single-float-fixnum)) - ('double-float + (double-float (values most-negative-exactly-double-float-fixnum most-positive-exactly-double-float-fixnum))) (if (<= lo y hi) @@ -872,10 +872,10 @@ ;; Likewise (multiple-value-bind (lo hi) (case '(dispatch-type x) - ('single-float + (single-float (values most-negative-exactly-single-float-fixnum most-positive-exactly-single-float-fixnum)) - ('double-float + (double-float (values most-negative-exactly-double-float-fixnum most-positive-exactly-double-float-fixnum))) (if (<= lo y hi) |