X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=973f66badb9ce17997d1f5a7874ddfb1baed6fed;hb=8dc064d2296902f01afd9107e89a81146e3771fe;hp=a361fde7a43232fb74da5e46029aa894949332fd;hpb=204f2fa9771ad9e55718dc76205afec7d11b3011;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index a361fde..973f66b 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -266,10 +266,3 @@
 		     (safety 1)
 		     (space 1)
 		     (speed 1)))
-
-;;; FIXME: It would be good to unintern stuff we will no longer need
-;;; before we go on to PURIFY. E.g.
-;;;  * various PCL stuff like INITIAL-CLASSES-AND-WRAPPERS; and
-;;;  * *BUILT-IN-CLASSES* (which can't actually be freed by UNINTERN at
-;;;    this point, since it passed through another PURIFY earlier
-;;;    at cold init time).