/[cmucl]/src/pcl/defs.lisp
ViewVC logotype

Diff of /src/pcl/defs.lisp

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

revision 1.33.2.1 by gerd, Sun Mar 9 12:47:21 2003 UTC revision 1.33.2.2 by gerd, Mon Mar 10 13:09:01 2003 UTC
# Line 53  Line 53 
53  ;;; unadvised, traced etc. definition.  This lets me get at the generic  ;;; unadvised, traced etc. definition.  This lets me get at the generic
54  ;;; function object even when it is traced.  ;;; function object even when it is traced.
55  ;;;  ;;;
56    ;;; Note that FDEFINITION takes care of encapsulations.  PROFILE
57    ;;; isn't using encapsulations, so it has to be treated specially.
58    ;;;
59  (declaim (inline gdefinition))  (declaim (inline gdefinition))
60  (defun gdefinition (symbol)  
61    (fdefinition symbol))  (defun gdefinition (name)
62      (let ((fdefn (fdefinition name))
63            (info (gethash name profile::*profile-info*)))
64        (if (and info
65                 (eq fdefn (profile::profile-info-new-definition info)))
66            (profile::profile-info-old-definition info)
67            fdefn)))
68    
69  ;;;  ;;;
70  ;;; If symbol names a function which is traced or advised, redefine  ;;; If symbol names a function which is traced or advised, redefine
# Line 65  Line 74 
74    (c::%%defun name new-definition nil)    (c::%%defun name new-definition nil)
75    (c::note-name-defined name :function)    (c::note-name-defined name :function)
76    new-definition)    new-definition)
77    
78    
79  (declaim (special *the-class-t*  (declaim (special *the-class-t*
80                    *the-class-vector* *the-class-symbol*                    *the-class-vector* *the-class-symbol*

Legend:
Removed from v.1.33.2.1  
changed lines
  Added in v.1.33.2.2

  ViewVC Help
Powered by ViewVC 1.1.5