/[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.38 by rtoy, Thu Aug 2 21:30:07 2007 UTC revision 1.39 by rtoy, Thu Sep 13 04:11:44 2007 UTC
# Line 60  Line 60 
60  ;;; A hash-table that maps each traced function to the TRACE-INFO.  The entry  ;;; A hash-table that maps each traced function to the TRACE-INFO.  The entry
61  ;;; for a closure is the shared function-entry object.  ;;; for a closure is the shared function-entry object.
62  ;;;  ;;;
63  (defvar *traced-functions* (make-hash-table :test #'eq))  (defvar *traced-functions* (make-hash-table :test #'equal))
64    
65  ;;; The TRACE-INFO structure represents all the information we need to trace a  ;;; The TRACE-INFO structure represents all the information we need to trace a
66  ;;; given function.  ;;; given function.

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5