mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 01:10:53 -08:00
Code Issues Projects Releases Packages Wiki Activity

BYTECODES-SPLIT is now called BC-SPLIT

Browse source
This commit is contained in:
jjgarcia 2002-05-13 07:13:04 +00:00
parent 6ec3b91890
commit 50564327b0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/trace.lsp
View file

@ -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+)