From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Thu, 18 Nov 2010 13:52:06 +0000 (+0000)
Subject: 1.0.44.29: full warnings for duplicate CASE keys during SBCL build
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b29df9f33777ef5f318e85fedc7c42fce1ab3655;p=sbcl.git

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.
---

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index 6adf8ef..b886d20 100644
--- a/src/code/macros.lisp
+++ b/src/code/macros.lisp
@@ -165,7 +165,8 @@ invoked. In that case it will store into PLACE and start over."
 
 (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
diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index 6a2dd70..58fdb29 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -855,10 +855,10 @@ the first."
          ;; 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 @@ the first."
              ;; 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)
diff --git a/version.lisp-expr b/version.lisp-expr
index d82366a..3d1e9e1 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -20,4 +20,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.44.28"
+"1.0.44.29"