X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-type.lisp;h=43394ffa6d9e5a571897202d0ef1736a4745aab2;hb=50f728671defadb8f7b1e8691c984cb0e6aba17c;hp=bb5e8ead6b335b194eeae8ef287a5f568e4abeb7;hpb=2d3cb6dba6461e98744eca2a1df4f770cea468ca;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index bb5e8ea..43394ff 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -354,7 +354,6 @@
 	    (if (typep spec 'built-in-classoid)
 		(or (built-in-classoid-translation spec) spec)
 		spec))
-	   ;; FIXME: CL:CLASS objects are type specifiers.
 	   (t
 	    (let* (;; FIXME: This automatic promotion of FOO-style
 		   ;; specs to (FOO)-style specs violates the ANSI