anchor.diff:                            (ash 1 sb-vm:n-lowtag-bits))
                            (ash (sb-kernel:%code-code-size o) sb-vm:word-shift)
                            :stream s)))))))
  +|#
   
   (defmethod emacs-inspect ((o sb-ext:weak-pointer))
             (label-value-line*
  
positive.code:                                   i (sb-kernel:%closure-index-ref o i)))))
  	  (t (call-next-method o)))))
  
  (defmethod emacs-inspect ((o sb-kernel:code-component))
            (append
             (label-value-line*
  
negative.code:     #+sb-thread
      (dolist (thread (remove (current-thread) (all-threads)))
        (ignore-errors (sb-thread:terminate-thread thread)))
      (sb-ext:exit)))
  
  
  