/[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.199 by heller, Sat Oct 11 08:30:52 2008 UTC revision 1.200 by heller, Sat Oct 11 08:30:57 2008 UTC
# Line 1932  The `symbol-value' of each element is a Line 1932  The `symbol-value' of each element is a
1932     (loop for i from vm:code-constants-offset     (loop for i from vm:code-constants-offset
1933           below (kernel:get-header-data o)           below (kernel:get-header-data o)
1934           append (label-value-line i (kernel:code-header-ref o i)))           append (label-value-line i (kernel:code-header-ref o i)))
1935     `("Code:" (:newline)     `("Code:"
1936               , (with-output-to-string (s)       (:newline)
1937                   (cond ((c::compiled-debug-info-p (kernel:%code-debug-info o))       , (with-output-to-string (*standard-output*)
1938                          (disassem:disassemble-code-component o :stream s))           (cond ((c::compiled-debug-info-p (kernel:%code-debug-info o))
1939                         ((c::debug-info-p (kernel:%code-debug-info o))                  (disassem:disassemble-code-component o))
1940                          (let ((*standard-output* s))                 ((or
1941                            (c:disassem-byte-component o)))                   (c::debug-info-p (kernel:%code-debug-info o))
1942                         (t                   (consp (kernel:code-header-ref
1943                          (disassem:disassemble-memory                           o vm:code-trace-table-offset-slot)))
1944                           (disassem::align                  (c:disassem-byte-component o))
1945                            (+ (logandc2 (kernel:get-lisp-obj-address o)                 (t
1946                                         vm:lowtag-mask)                  (disassem:disassemble-memory
1947                               (* vm:code-constants-offset vm:word-bytes))                   (disassem::align
1948                            (ash 1 vm:lowtag-bits))                    (+ (logandc2 (kernel:get-lisp-obj-address o)
1949                           (ash (kernel:%code-code-size o) vm:word-shift)                                 vm:lowtag-mask)
1950                           :stream s)))))))                       (* vm:code-constants-offset vm:word-bytes))
1951                      (ash 1 vm:lowtag-bits))
1952                     (ash (kernel:%code-code-size o) vm:word-shift))))))))
1953    
1954  (defmethod emacs-inspect ((o kernel:fdefn))  (defmethod emacs-inspect ((o kernel:fdefn))
1955    (label-value-line*    (label-value-line*

Legend:
Removed from v.1.199  
changed lines
  Added in v.1.200

  ViewVC Help
Powered by ViewVC 1.1.5