From 30a7667ec095ac9b78a826c445b9af78c9c183ba Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Sat, 11 Jun 2011 01:45:55 -0400 Subject: [PATCH] Fix #!- vs #- confusion in number's singleton-p type method --- src/code/late-type.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 1.7.10.4