X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcopyprop.lisp;h=cd5293da3e649c66004246b0678d415235d5e8f5;hb=03df95052f395c205d7e5028e06bc043ee60125d;hp=4977d1cb9fd17c8a06b120df7dcf4008c3d1999d;hpb=1a6def3955b715472eb2c75b15660912b9f90173;p=sbcl.git

diff --git a/src/compiler/copyprop.lisp b/src/compiler/copyprop.lisp
index 4977d1c..cd5293d 100644
--- a/src/compiler/copyprop.lisp
+++ b/src/compiler/copyprop.lisp
@@ -120,7 +120,7 @@
 		      (sset-adjoin y kill))))))))))
 
     (setf (block-out block) (copy-sset gen))
-    (setf (block-kill-sset block) kill)
+    (setf (block-kill block) kill)
     (setf (block-gen block) gen))
   (values))
 
@@ -137,7 +137,7 @@
     (setf (block-in block) in)
     (sset-union-of-difference (block-out block)
 			      in
-			      (block-kill-sset block))))
+			      (block-kill block))))
 
 (defevent copy-deleted-move "Copy propagation deleted a move.")