/[slime]/slime/swank-cmucl.lisp
ViewVC logotype

Diff of /slime/swank-cmucl.lisp

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

revision 1.235 by heller, Sun Nov 6 17:39:29 2011 UTC revision 1.236 by heller, Mon Nov 21 16:34:12 2011 UTC
# Line 1641  A utility for debugging DEBUG-FUNCTION-A Line 1641  A utility for debugging DEBUG-FUNCTION-A
1641  (defimplementation frame-catch-tags (index)  (defimplementation frame-catch-tags (index)
1642    (mapcar #'car (di:frame-catches (nth-frame index))))    (mapcar #'car (di:frame-catches (nth-frame index))))
1643    
1644    (defimplementation frame-package (frame-number)
1645      (let* ((frame (nth-frame frame-number))
1646             (dbg-fun (di:frame-debug-function frame)))
1647        (typecase dbg-fun
1648          (di::compiled-debug-function
1649           (let* ((comp (di::compiled-debug-function-component dbg-fun))
1650                  (dbg-info (kernel:%code-debug-info comp)))
1651             (typecase dbg-info
1652               (c::compiled-debug-info
1653                (find-package (c::compiled-debug-info-package dbg-info)))))))))
1654    
1655  (defimplementation return-from-frame (index form)  (defimplementation return-from-frame (index form)
1656    (let ((sym (find-symbol (string 'find-debug-tag-for-frame)    (let ((sym (find-symbol (string 'find-debug-tag-for-frame)
1657                            :debug-internals)))                            :debug-internals)))

Legend:
Removed from v.1.235  
changed lines
  Added in v.1.236

  ViewVC Help
Powered by ViewVC 1.1.5