From 58526a9d17b3e150eb26468f95fcce876b153964 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 15 Feb 1990 11:00:16 +0000
Subject: [PATCH] Fixed kill/yank lossage in addition of :LABEL load-time
 constant support.

---
 compiler/old-rt/core.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/old-rt/core.lisp b/compiler/old-rt/core.lisp
index bf65e8d1d..0d6aa7da0 100644
--- a/compiler/old-rt/core.lisp
+++ b/compiler/old-rt/core.lisp
@@ -142,7 +142,7 @@
 			    (core-function-or-lose (cdr const) object)))
 	       (:label
 		(%primitive header-set code-obj i
-			    (+ (label-location (cdr entry))
+			    (+ (label-location (cdr const))
 				clc::i-vector-header-size))))))))))
   (undefined-value))
 
-- 
GitLab