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

code/ntrace.lisp

+3 −3
Original line number Diff line number Diff line
@@ -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