X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcheckgen.lisp;h=f7375d9b95d6826f020428ff5c42b158e6b56218;hb=369029d73f198b59135c6c005b7a70ae5a753650;hp=237906afbd7099bf947be992ef4116fef7452595;hpb=08307967c71c580058a503d46aa087cfefcf8c69;p=sbcl.git

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index 237906a..f7375d9 100644
--- a/src/compiler/checkgen.lisp
+++ b/src/compiler/checkgen.lisp
@@ -361,7 +361,7 @@
 	;; said that somewhere in here we
 	;;   Set the new block's start and end cleanups to the *start*
 	;;   cleanup of PREV's block. This overrides the incorrect
-	;;   default from WITH-BELATED-IR1-ENVIRONMENT.
+	;;   default from WITH-IR1-ENVIRONMENT-FROM-NODE.
 	;; Unfortunately I can't find any code which corresponds to this.
 	;; Perhaps it was a stale comment? Or perhaps I just don't
 	;; understand.. -- WHN 19990521