From: Paul Khuong <pvk@pvk.ca>
Date: Sat, 11 Jun 2011 05:45:55 +0000 (-0400)
Subject: Fix #!- vs #- confusion in number's singleton-p type method
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=30a7667ec095ac9b78a826c445b9af78c9c183ba;p=sbcl.git

Fix #!- vs #- confusion in number's singleton-p type method
---

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 56c8c79..2ae43c5 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -1731,7 +1731,7 @@
              (eql low high)
              (eql (numeric-type-complexp type) :real)
              (member (numeric-type-class type) '(integer rational
-                                                 #!-sb-xc-host float)))
+                                                 #-sb-xc-host float)))
         (values t (numeric-type-low type))
         (values nil nil))))