anchor.diff:  (defmethod decompose-describe-object ((object (eql *ginspect-unbound-object-marker*)))
     (values "The slot is unbound" nil nil))
   
  -#+cmu
  +#+(or cmu clisp)
   (defmethod decompose-describe-object ((object symbol))
     (values 
      (call-next-method) t
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: ginspect.lisp,v 1.11 2006-09-05 13:12:50 espen Exp $
  
  #+sbcl(require :gtk)
  #+cmu(asdf:oos 'asdf:load-op :gtk)
  
  (defpackage "GINSPECT"
    (:use "COMMON-LISP" "GFFI" "GLIB" "GTK" #+cmu"PCL" #+sbcl"SB-PCL")
    (:export "GINSPECT" "GINSPECT-TOPLEVELS"))
  
  (in-package "GINSPECT")
  
  (defvar *ginspect-unbound-object-marker* 
    #+cmu (gensym "UNBOUND-OBJECT-")
    #+sbcl sb-impl::*inspect-unbound-object-marker*)
  
  
  
negative.code: 				 *ginspect-unbound-object-marker*)))
  	      (cons (string slot-name) slot-value)))))
  
  #+clisp
  (defmethod decompose-describe-object ((object vector))
    (values   
     (format nil "The object is a ~A of length ~A" (type-of object) (length object))
     nil
     (coerce object 'list)))
  
  
  (defmethod object-has-parts-p ((object t))
    (nth-value 2 (decompose-describe-object object)))
  