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

Fixed typo

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2013-10-15 09:55:43 +02:00
parent 3c14a1e2c5
commit 3a8cf6849c
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

@ -67,7 +67,7 @@ all functions."
step (barfp t) fname oldf)
(cond ((si::valid-function-name-p spec)
(setq fname spec))
((si::proper-list-p spec)
((not (si::proper-list-p spec))
(error "Not a valid argument to TRACE: ~S" spec))
((si::valid-function-name-p (first spec))
(setq fname (first spec))