Changeset 304

Timestamp:

Jan 15, 2004, 12:34:25 AM (21 years ago)

Author:

Gary Byers

Message:

Remove a stale comment. Might consider a less-hairy typespec.

File:

• trunk/ccl/compiler/optimizers.lisp (modified) (1 diff)

trunk/ccl/compiler/optimizers.lisp

@@ -172 +172 @@
                      (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)))))