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