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