From d2707d21c8bd29d7ec5e02d1d57d2e34c811d427 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 27 Jun 1992 21:51:42 +0000 Subject: [PATCH] Fixed MAKE-LOAD-TIME-CONSTANT-TN to quit looking once it found an matching constant, so that it actually uses the same constant slot for the same value. --- compiler/tn.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/tn.lisp b/compiler/tn.lisp index 26e42a631..cc5718c20 100644 --- a/compiler/tn.lisp +++ b/compiler/tn.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/tn.lisp,v 1.15 1991/11/24 23:47:32 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/tn.lisp,v 1.16 1992/06/27 21:51:42 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -295,7 +295,8 @@ (when (and (consp entry) (eq (car entry) kind) (eq (cdr entry) info)) - (setf (tn-offset res) i)))) + (setf (tn-offset res) i) + (return)))) (push-in tn-next res (ir2-component-constant-tns component)) res)) -- GitLab