From c08b33249cb9ba26eb1152d6c4bf97aecd86b70f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 15 Feb 1990 12:07:03 +0000 Subject: [PATCH] Fixed NODE-TLF-NUMBER to return the last element rather than the second. --- compiler/ir1util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 788b5f1e6..7e0309cca 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -260,7 +260,7 @@ ;;; (defun node-tlf-number (node) (declare (type node node)) - (second (node-source-path node))) + (car (last (node-source-path node)))) ;;;; Flow/DFO/Component hackery: -- GitLab