Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3c14a1e)
Fixed typo
authorJuanjo Garcia-Ripoll <jjgarcia@users.sourcerforge.net>
Tue, 15 Oct 2013 07:55:43 +0000 (09:55 +0200)
committerJuanjo Garcia-Ripoll <jjgarcia@users.sourcerforge.net>
Tue, 15 Oct 2013 07:55:43 +0000 (09:55 +0200)
src/lsp/trace.lsp patch | blob | blame | history

diff --git a/src/lsp/trace.lsp b/src/lsp/trace.lsp
index 39a2a1b..d67b694 100644 (file)
--- a/src/lsp/trace.lsp
+++ b/src/lsp/trace.lsp
@@ -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))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)