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

Typo fixed.

Browse source
This commit is contained in:
jjgarcia 2003-03-10 14:02:44 +00:00
parent 5f6f65b407
commit a627819a71
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/trace.lsp
View file

@ -56,7 +56,6 @@ SI::ARGS."
(defvar *inside-trace* nil)
(defun trace-one (spec)
(declare (si::c-local))
(let* (break exitbreak (entrycond t) (exitcond t) entry exit
step (barfp t) fname oldf)
(cond ((atom spec)
@ -122,7 +121,7 @@ SI::ARGS."
(setq values
(let (*inside-trace*)
(multiple-value-list
`(apply ',oldf args)
(apply ',oldf args)
#+nil
,(if step
`(let (*step-quit*)
@ -173,7 +172,6 @@ SI::ARGS."
extras))))
(defun untrace-one (fname)
(declare (si::c-local))
(cond ((get fname 'TRACED)
(if (tracing-body fname)
(sys:fset fname (symbol-function (get fname 'TRACED)))