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

Diff of /slime/swank-scl.lisp

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

revision 1.14 by dcrosher, Sat Dec 22 13:24:49 2007 UTC revision 1.15 by mbaringer, Mon Feb 4 17:35:03 2008 UTC
# Line 1740  The `symbol-value' of each element is a Line 1740  The `symbol-value' of each element is a
1740                                    :key #'symbol-value)))                                    :key #'symbol-value)))
1741            (format t ", type: ~A" type-symbol))))))            (format t ", type: ~A" type-symbol))))))
1742    
1743  (defmethod inspect-for-emacs ((o t) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o t))
1744    (cond ((di::indirect-value-cell-p o)    (cond ((di::indirect-value-cell-p o)
1745           (values (format nil "~A is a value cell." o)           (values (format nil "~A is a value cell." o)
1746                   `("Value: " (:value ,(c:value-cell-ref o)))))                   `("Value: " (:value ,(c:value-cell-ref o)))))
# Line 1759  The `symbol-value' of each element is a Line 1759  The `symbol-value' of each element is a
1759                  (loop for value in parts  for i from 0                  (loop for value in parts  for i from 0
1760                        append (label-value-line i value))))))                        append (label-value-line i value))))))
1761    
1762  (defmethod inspect-for-emacs ((o function) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o function))
   (declare (ignore inspector))  
1763    (let ((header (kernel:get-type o)))    (let ((header (kernel:get-type o)))
1764      (cond ((= header vm:function-header-type)      (cond ((= header vm:function-header-type)
1765             (values (format nil "~A is a function." o)             (values (format nil "~A is a function." o)
# Line 1789  The `symbol-value' of each element is a Line 1788  The `symbol-value' of each element is a
1788             (call-next-method)))))             (call-next-method)))))
1789    
1790    
1791  (defmethod inspect-for-emacs ((o kernel:code-component) (_ backend-inspector))  (defmethod inspect-for-emacs ((o kernel:code-component))
   (declare (ignore _))  
1792    (values (format nil "~A is a code data-block." o)    (values (format nil "~A is a code data-block." o)
1793            (append            (append
1794             (label-value-line*             (label-value-line*
# Line 1817  The `symbol-value' of each element is a Line 1815  The `symbol-value' of each element is a
1815                           (ash (kernel:%code-code-size o) vm:word-shift)                           (ash (kernel:%code-code-size o) vm:word-shift)
1816                           :stream s))))))))                           :stream s))))))))
1817    
1818  (defmethod inspect-for-emacs ((o kernel:fdefn) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o kernel:fdefn))
   (declare (ignore inspector))  
1819    (values (format nil "~A is a fdenf object." o)    (values (format nil "~A is a fdenf object." o)
1820            (label-value-line*            (label-value-line*
1821             ("name" (kernel:fdefn-name o))             ("name" (kernel:fdefn-name o))
# Line 1827  The `symbol-value' of each element is a Line 1824  The `symbol-value' of each element is a
1824                          (sys:int-sap (kernel:get-lisp-obj-address o))                          (sys:int-sap (kernel:get-lisp-obj-address o))
1825                          (* vm:fdefn-raw-addr-slot vm:word-bytes))))))                          (* vm:fdefn-raw-addr-slot vm:word-bytes))))))
1826    
1827  (defmethod inspect-for-emacs ((o array) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o array))
   inspector  
1828    (cond ((kernel:array-header-p o)    (cond ((kernel:array-header-p o)
1829           (values (format nil "~A is an array." o)           (values (format nil "~A is an array." o)
1830                   (label-value-line*                   (label-value-line*
# Line 1847  The `symbol-value' of each element is a Line 1843  The `symbol-value' of each element is a
1843                    (:header (describe-primitive-type o))                    (:header (describe-primitive-type o))
1844                    (:length (length o)))))))                    (:length (length o)))))))
1845    
1846  (defmethod inspect-for-emacs ((o simple-vector) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o simple-vector))
   inspector  
1847    (values (format nil "~A is a vector." o)    (values (format nil "~A is a vector." o)
1848            (append            (append
1849             (label-value-line*             (label-value-line*

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5