From 2c2f8ecb911c69ebf44397a23ef735939b490325 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 20 Feb 2006 00:57:47 +0000 Subject: [PATCH] Oops. Restore ability to trace setf functions, which was broken when tracing of flet/labels was added. --- code/ntrace.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/code/ntrace.lisp b/code/ntrace.lisp index c7b7806f0..2a8ce7b34 100644 --- a/code/ntrace.lisp +++ b/code/ntrace.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/ntrace.lisp,v 1.34 2006/01/27 20:52:19 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.35 2006/02/20 00:57:47 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -164,9 +164,8 @@ (t (values (fdefinition x) t)))) (function x) - (list - ;; An extended function name for flets/labels. Should we - ;; make this check? + ((cons (member flet labels)) + ;; An extended function name for flet/labels functions. (values x t)) (t (values (fdefinition x) t))) (if (eval:interpreted-function-p res) -- GitLab