Corrected TRACE.

Pascal J. Bourguignon [2014-10-10 02:24]
Corrected TRACE.
Filename
standard-macros.lisp
diff --git a/standard-macros.lisp b/standard-macros.lisp
index afc9065..43fc0de 100644
--- a/standard-macros.lisp
+++ b/standard-macros.lisp
@@ -595,8 +595,10 @@
 (defmacro time ()
   `())

-(defmacro trace ()
-  `(progn ,@(mapcar (lambda (fname) `(trace-function ',fname)) function-names)))
+(defmacro trace (&rest function-names)
+  (if function-names
+      `(progn ,@(mapcar (lambda (fname) `(trace-function ',fname)) function-names))
+      `(traced-functions)))

 (defmacro untrace (&rest function-names)
   `(progn ,@(mapcar (lambda (fname) `(untrace-function ',fname)) function-names)))
ViewGit