Skip to content
Snippets Groups Projects
Commit c08d5e5a authored by rtoy's avatar rtoy
Browse files

Fix typo. The check for whether we were trying to use encapsulation

to trace a local function was checking for the wrong thing.
parent eabcbe14
No related branches found
No related tags found
No related merge requests found
......@@ -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.46 2010/04/20 17:57:45 rtoy Rel $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.47 2011/02/01 15:35:00 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -515,9 +515,9 @@
(unless named
(error (intl:gettext "Can't use encapsulation to trace anonymous function ~S.")
fun))
(when (listp fun)
(when (listp function-or-name)
(error (intl:gettext "Can't use encapsulation to trace local flet/labels function ~S.")
fun))
function-or-name))
(fwrap function-or-name #'trace-fwrapper :type 'trace
:user-data info))
(t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment