From 3a8cf6849c297747888ea5c526e68acdedfc40df Mon Sep 17 00:00:00 2001
From: Juanjo Garcia-Ripoll <jjgarcia@users.sourcerforge.net>
Date: Tue, 15 Oct 2013 09:55:43 +0200
Subject: [PATCH] Fixed typo

---
 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 39a2a1b16..d67b69467 100644
--- 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))