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