X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcheckgen.lisp;h=f7375d9b95d6826f020428ff5c42b158e6b56218;hb=f46d27c212eb12011b772cb8eefe904da4e7c778;hp=fa280abf5ecb87729182225e45e656c59b9f1578;hpb=29a9ccc860532b32c566aec095f570e999a9c52c;p=sbcl.git

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index fa280ab..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
@@ -404,7 +404,7 @@
 ;;; context. If the value is a constant, we print it specially. We
 ;;; ignore nodes whose type is NIL, since they are supposed to never
 ;;; return.
-(defun do-type-warning (node)
+(defun emit-type-warning (node)
   (declare (type node node))
   (let* ((*compiler-error-context* node)
 	 (cont (node-cont node))
@@ -491,7 +491,7 @@
 			   (node-derived-type use) atype)
 		    (mark-error-continuation cont)
 		    (unless (policy node (= inhibit-warnings 3))
-		      (do-type-warning use))))))
+		      (emit-type-warning use))))))
 	    (when (eq type-check t)
 	      (cond ((probable-type-check-p cont)
 		     (conts cont))