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

Signal an error if we try to trace flet/labels functions using

encapsulation.  We can't do that because there's nothing to wrap.
parent 4a90a3d2
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.33 2006/01/23 14:11:02 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.34 2006/01/27 20:52:19 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -167,7 +167,7 @@ ...@@ -167,7 +167,7 @@
(list (list
;; An extended function name for flets/labels. Should we ;; An extended function name for flets/labels. Should we
;; make this check? ;; make this check?
(values x nil)) (values x t))
(t (values (fdefinition x) t))) (t (values (fdefinition x) t)))
(if (eval:interpreted-function-p res) (if (eval:interpreted-function-p res)
(values res named-p (if (eval:interpreted-function-closure res) (values res named-p (if (eval:interpreted-function-closure res)
...@@ -470,6 +470,9 @@ ...@@ -470,6 +470,9 @@
(unless named (unless named
(error "Can't use encapsulation to trace anonymous function ~S." (error "Can't use encapsulation to trace anonymous function ~S."
fun)) fun))
(when (listp fun)
(error "Can't use encapsulation to trace local flet/labels function ~S."
fun))
(fwrap function-or-name #'trace-fwrapper :type 'trace (fwrap function-or-name #'trace-fwrapper :type 'trace
:user-data info)) :user-data info))
(t (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