From a627819a71b14a7c92bf7b5b3d0b044f385e4765 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 10 Mar 2003 14:02:44 +0000
Subject: [PATCH] Typo fixed.

---
 src/lsp/trace.lsp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/lsp/trace.lsp b/src/lsp/trace.lsp
index 4a3212a3e..036542515 100644
--- a/src/lsp/trace.lsp
+++ b/src/lsp/trace.lsp
@@ -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)))