/[cmucl]/src/code/ntrace.lisp
ViewVC logotype

Diff of /src/code/ntrace.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46 by rtoy, Tue Apr 20 17:57:45 2010 UTC revision 1.47 by rtoy, Tue Feb 1 15:35:00 2011 UTC
# Line 515  Line 515 
515          (unless named          (unless named
516            (error (intl:gettext "Can't use encapsulation to trace anonymous function ~S.")            (error (intl:gettext "Can't use encapsulation to trace anonymous function ~S.")
517                   fun))                   fun))
518          (when (listp fun)          (when (listp function-or-name)
519            (error (intl:gettext "Can't use encapsulation to trace local flet/labels function ~S.")            (error (intl:gettext "Can't use encapsulation to trace local flet/labels function ~S.")
520                   fun))                   function-or-name))
521          (fwrap function-or-name #'trace-fwrapper :type 'trace          (fwrap function-or-name #'trace-fwrapper :type 'trace
522                 :user-data info))                 :user-data info))
523         (t         (t

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

  ViewVC Help
Powered by ViewVC 1.1.5