From 50564327b0b41cb9ddc945910eacbd9148c020e8 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 13 May 2002 07:13:04 +0000
Subject: [PATCH] BYTECODES-SPLIT is now called BC-SPLIT

---
 src/lsp/trace.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/trace.lsp b/src/lsp/trace.lsp
index 59ce51b75..59a792a24 100644
--- a/src/lsp/trace.lsp
+++ b/src/lsp/trace.lsp
@@ -188,7 +188,7 @@ SI::ARGS."
 
 (defun tracing-body (fname &aux (fun (symbol-function fname)))
   (when (functionp fun)
-    (let ((bytecodes (si::bytecodes-split fun)))
+    (let ((bytecodes (si::bc-split fun)))
       (when bytecodes
 	(dotimes (i (length bytecodes))
 	  (when (eq (aref bytecodes i) +tracing-block+)