Changeset 15781 for release/1.9/source


Ignore:
Timestamp:
Mar 21, 2013, 10:40:57 PM (6 years ago)
Author:
gb
Message:

propage r15773 to 1.9

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.9/source/lib/encapsulate.lisp

    r15523 r15781  
    354354(defun trace-inside-frame-p (name)
    355355  (if (packagep name)
    356     (map-call-frames #'(lambda (p)
     356    (map-call-frames #'(lambda (p context)
     357                         (declare (ignore context))
    357358                         (let* ((fn (cfp-lfun p))
    358359                                (fname (and fn (function-name fn)))
     
    366367    (let ((fn (%encap-binding name)))
    367368      (when fn
    368         (map-call-frames #'(lambda (p)
     369        (map-call-frames #'(lambda (p context)
     370                             (declare (ignore context))
    369371                             (when (eq (cfp-lfun p) fn)
    370372                               (return-from trace-inside-frame-p t))))))))
Note: See TracChangeset for help on using the changeset viewer.