/[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.189 by mbaringer, Mon Feb 4 17:41:22 2008 UTC revision 1.190 by heller, Sat Feb 9 18:39:02 2008 UTC
# Line 1001  stack." Line 1001  stack."
1001    
1002  ;;;; Inspector  ;;;; Inspector
1003    
1004  (defmethod inspect-for-emacs ((o t))  (defmethod emacs-inspect ((o t))
1005    (cond ((sb-di::indirect-value-cell-p o)    (cond ((sb-di::indirect-value-cell-p o)
1006           (values "A value cell." (label-value-line*           (values "A value cell." (label-value-line*
1007                                    (:value (sb-kernel:value-cell-ref o)))))                                    (:value (sb-kernel:value-cell-ref o)))))
# Line 1013  stack." Line 1013  stack."
1013                 (values text (loop for value in parts  for i from 0                 (values text (loop for value in parts  for i from 0
1014                                    append (label-value-line i value))))))))                                    append (label-value-line i value))))))))
1015    
1016  (defmethod inspect-for-emacs ((o function))  (defmethod emacs-inspect ((o function))
1017    (let ((header (sb-kernel:widetag-of o)))    (let ((header (sb-kernel:widetag-of o)))
1018      (cond ((= header sb-vm:simple-fun-header-widetag)      (cond ((= header sb-vm:simple-fun-header-widetag)
1019             (values "A simple-fun."             (values "A simple-fun."
# Line 1034  stack." Line 1034  stack."
1034                                    i (sb-kernel:%closure-index-ref o i))))))                                    i (sb-kernel:%closure-index-ref o i))))))
1035            (t (call-next-method o)))))            (t (call-next-method o)))))
1036    
1037  (defmethod inspect-for-emacs ((o sb-kernel:code-component))  (defmethod emacs-inspect ((o sb-kernel:code-component))
1038    (values (format nil "~A is a code data-block." o)    (values (format nil "~A is a code data-block." o)
1039            (append            (append
1040             (label-value-line*             (label-value-line*
# Line 1062  stack." Line 1062  stack."
1062                           (ash (sb-kernel:%code-code-size o) sb-vm:word-shift)                           (ash (sb-kernel:%code-code-size o) sb-vm:word-shift)
1063                           :stream s))))))))                           :stream s))))))))
1064    
1065  (defmethod inspect-for-emacs ((o sb-ext:weak-pointer))  (defmethod emacs-inspect ((o sb-ext:weak-pointer))
1066    (values "A weak pointer."    (values "A weak pointer."
1067            (label-value-line*            (label-value-line*
1068             (:value (sb-ext:weak-pointer-value o)))))             (:value (sb-ext:weak-pointer-value o)))))
1069    
1070  (defmethod inspect-for-emacs ((o sb-kernel:fdefn))  (defmethod emacs-inspect ((o sb-kernel:fdefn))
1071    (values "A fdefn object."    (values "A fdefn object."
1072            (label-value-line*            (label-value-line*
1073             (:name (sb-kernel:fdefn-name o))             (:name (sb-kernel:fdefn-name o))
1074             (:function (sb-kernel:fdefn-fun o)))))             (:function (sb-kernel:fdefn-fun o)))))
1075    
1076  (defmethod inspect-for-emacs :around ((o generic-function))  (defmethod emacs-inspect :around ((o generic-function))
1077    (multiple-value-bind (title contents) (call-next-method)    (multiple-value-bind (title contents) (call-next-method)
1078      (values title      (values title
1079              (append              (append

Legend:
Removed from v.1.189  
changed lines
  Added in v.1.190

  ViewVC Help
Powered by ViewVC 1.1.5