0.7.7.20-backend-cleanup-1.5:

[sbcl.git] / src / compiler / checkgen.lisp

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index fa280ab..f7375d9 100644 (file)
--- 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))