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

Diff of /slime/swank-sbcl.lisp

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

revision 1.187 by nsiivola, Thu Jan 17 05:53:44 2008 UTC revision 1.188 by mbaringer, Mon Feb 4 17:35:03 2008 UTC
# Line 1006  stack." Line 1006  stack."
1006  (defimplementation make-default-inspector ()  (defimplementation make-default-inspector ()
1007    (make-instance 'sbcl-inspector))    (make-instance 'sbcl-inspector))
1008    
1009  (defmethod inspect-for-emacs ((o t) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o t))
1010    (declare (ignore inspector))    (declare (ignore inspector))
1011    (cond ((sb-di::indirect-value-cell-p o)    (cond ((sb-di::indirect-value-cell-p o)
1012           (values "A value cell." (label-value-line*           (values "A value cell." (label-value-line*
# Line 1019  stack." Line 1019  stack."
1019                 (values text (loop for value in parts  for i from 0                 (values text (loop for value in parts  for i from 0
1020                                    append (label-value-line i value))))))))                                    append (label-value-line i value))))))))
1021    
1022  (defmethod inspect-for-emacs ((o function) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o function))
   (declare (ignore inspector))  
1023    (let ((header (sb-kernel:widetag-of o)))    (let ((header (sb-kernel:widetag-of o)))
1024      (cond ((= header sb-vm:simple-fun-header-widetag)      (cond ((= header sb-vm:simple-fun-header-widetag)
1025             (values "A simple-fun."             (values "A simple-fun."
# Line 1041  stack." Line 1040  stack."
1040                                    i (sb-kernel:%closure-index-ref o i))))))                                    i (sb-kernel:%closure-index-ref o i))))))
1041            (t (call-next-method o)))))            (t (call-next-method o)))))
1042    
1043  (defmethod inspect-for-emacs ((o sb-kernel:code-component) (_ backend-inspector))  (defmethod inspect-for-emacs ((o sb-kernel:code-component))
   (declare (ignore _))  
1044    (values (format nil "~A is a code data-block." o)    (values (format nil "~A is a code data-block." o)
1045            (append            (append
1046             (label-value-line*             (label-value-line*
# Line 1070  stack." Line 1068  stack."
1068                           (ash (sb-kernel:%code-code-size o) sb-vm:word-shift)                           (ash (sb-kernel:%code-code-size o) sb-vm:word-shift)
1069                           :stream s))))))))                           :stream s))))))))
1070    
1071  (defmethod inspect-for-emacs ((o sb-ext:weak-pointer) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o sb-ext:weak-pointer))
   (declare (ignore inspector))  
1072    (values "A weak pointer."    (values "A weak pointer."
1073            (label-value-line*            (label-value-line*
1074             (:value (sb-ext:weak-pointer-value o)))))             (:value (sb-ext:weak-pointer-value o)))))
1075    
1076  (defmethod inspect-for-emacs ((o sb-kernel:fdefn) (inspector backend-inspector))  (defmethod inspect-for-emacs ((o sb-kernel:fdefn))
   (declare (ignore inspector))  
1077    (values "A fdefn object."    (values "A fdefn object."
1078            (label-value-line*            (label-value-line*
1079             (:name (sb-kernel:fdefn-name o))             (:name (sb-kernel:fdefn-name o))
1080             (:function (sb-kernel:fdefn-fun o)))))             (:function (sb-kernel:fdefn-fun o)))))
1081    
1082  (defmethod inspect-for-emacs :around ((o generic-function)  (defmethod inspect-for-emacs :around ((o generic-function))
                                       (inspector backend-inspector))  
   (declare (ignore inspector))  
1083    (multiple-value-bind (title contents) (call-next-method)    (multiple-value-bind (title contents) (call-next-method)
1084      (values title      (values title
1085              (append              (append

Legend:
Removed from v.1.187  
changed lines
  Added in v.1.188

  ViewVC Help
Powered by ViewVC 1.1.5