X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fconstraint.lisp;h=6362e4dbb90328f563fcba758baa6cd180b2a58b;hb=1c2d2fa984c9d0bf07b5a1e5eeae2eade5cc4cb4;hp=c8b5715bb0c8ff7b12f0059d2906a0a338800810;hpb=17d48b6525fdd5f188961c863e1d1f1d44d29107;p=sbcl.git diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp index c8b5715..6362e4d 100644 --- a/src/compiler/constraint.lisp +++ b/src/compiler/constraint.lisp @@ -443,7 +443,7 @@ ;;; Our OUT is: ;;; out U (in - kill) ;;; -;;; BLOCK-KILL-LIST is just a list of the lambda-vars killed, so we must +;;; BLOCK-KILL-LIST is just a list of the LAMBDA-VARs killed, so we must ;;; compute the kill set when there are any vars killed. We bum this a ;;; bit by special-casing when only one var is killed, and just using ;;; that var's constraints as the kill set. This set could possibly be