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 (file)
--- 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))))