From 6bb4c2b51afefa5339643e4d9db07b2a2c90ef98 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Wed, 30 Apr 2003 15:41:59 +0000
Subject: [PATCH] 	* src/code/profile.lisp (unprofile): Default names to 
 *timed-functions*.

---
 code/profile.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/profile.lisp b/code/profile.lisp
index 6918d1fca..48c79de80 100644
--- a/code/profile.lisp
+++ b/code/profile.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.32 2003/03/22 16:15:20 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.33 2003/04/30 15:41:59 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -519,7 +519,7 @@ this, the functions are listed.  If NIL, then always list the functions.")
   "Unwraps the profiling code around the named functions.  Names defaults to
   the list of all currently profiled functions."
   (collect ((binds) (forms))
-    (let ((names names))
+    (let ((names (or names *timed-functions*)))
       (loop
 	 (unless names (return))
 	 (let ((name (pop names)))
-- 
GitLab