/[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.122 by heller, Fri Oct 1 12:05:08 2004 UTC revision 1.123 by heller, Sun Oct 17 18:23:52 2004 UTC
# Line 1548  A utility for debugging DEBUG-FUNCTION-A Line 1548  A utility for debugging DEBUG-FUNCTION-A
1548  (defimplementation frame-catch-tags (index)  (defimplementation frame-catch-tags (index)
1549    (mapcar #'car (di:frame-catches (nth-frame index))))    (mapcar #'car (di:frame-catches (nth-frame index))))
1550    
1551    (defimplementation return-from-frame (index form)
1552      (let ((sym (find-symbol (string 'find-debug-tag-for-frame)
1553                              :debug-internals)))
1554        (if sym
1555            (let* ((frame (nth-frame index))
1556                   (probe (funcall sym frame)))
1557              (cond (probe (throw (car probe) (eval-in-frame form index)))
1558                    (t (format nil "Cannot return from frame: ~S" frame))))
1559            "return-from-frame is not implemented in this version of CMUCL.")))
1560    
1561  (defimplementation sldb-step (frame)  (defimplementation sldb-step (frame)
1562    (cond ((find-restart 'continue)    (cond ((find-restart 'continue)
1563           (set-step-breakpoints (nth-frame frame))           (set-step-breakpoints (nth-frame frame))
# Line 1888  The `symbol-value' of each element is a Line 1898  The `symbol-value' of each element is a
1898                   append (label-value-line i (kernel:code-header-ref o i)))                   append (label-value-line i (kernel:code-header-ref o i)))
1899             `("Code:" (:newline)             `("Code:" (:newline)
1900               , (with-output-to-string (s)               , (with-output-to-string (s)
1901                   (disassem:disassemble-code-component o :stream s))))))                   (cond ((kernel:%code-debug-info o)
1902                            (disassem:disassemble-code-component o :stream s))
1903                           (t
1904                            (disassem:disassemble-memory
1905                             (disassem::align
1906                              (+ (logandc2 (kernel:get-lisp-obj-address o)
1907                                           vm:lowtag-mask)
1908                                 (* vm:code-constants-offset vm:word-bytes))
1909                              (ash 1 vm:lowtag-bits))
1910                             (ash (kernel:%code-code-size o) vm:word-shift)
1911                             :stream s))))))))
1912    
1913  (defmethod inspect-for-emacs ((o kernel:fdefn) (inspector cmucl-inspector))  (defmethod inspect-for-emacs ((o kernel:fdefn) (inspector cmucl-inspector))
1914    (declare (ignore inspector))    (declare (ignore inspector))

Legend:
Removed from v.1.122  
changed lines
  Added in v.1.123

  ViewVC Help
Powered by ViewVC 1.1.5