Index: /trunk/ccl/compiler/optimizers.lisp
===================================================================
--- /trunk/ccl/compiler/optimizers.lisp	(revision 303)
+++ /trunk/ccl/compiler/optimizers.lisp	(revision 304)
@@ -172,6 +172,5 @@
                      (nx-form-typep thing
                                      '(or fixnum
-                                       character symbol ;redundant but subtypep
-                                       ; doesn't know that...
+                                       character symbol 
                                        (and (not number) (not macptr))) env))))
   (or (fixnump thing) (and (not (numberp thing)) (not (macptrp thing)))))