anchor.diff:  ;; 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 $
  +;; $Id: ginspect.lisp,v 1.12 2006-09-06 11:07:36 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")
  +  (:use "COMMON-LISP" "GFFI" "GLIB" "GTK" #+cmu"PCL" #+sbcl"SB-PCL" #+clisp"MOP")
  +  #+clisp(:shadowing-import-from "MOP" "SLOT-DEFINITION-TYPE")
     (:export "GINSPECT" "GINSPECT-TOPLEVELS"))
   
   (in-package "GINSPECT")
   
   (defvar *ginspect-unbound-object-marker* 
  -  #+cmu (gensym "UNBOUND-OBJECT-")
  +  #+(or cmu clisp)(gensym "UNBOUND-OBJECT-")
     #+sbcl sb-impl::*inspect-unbound-object-marker*)
   
   
  
positive.code: 
  (defmethod decompose-describe-object ((object standard-object))
    (values 
     (format nil "The instance is an object of type ~A." 
      (class-name (class-of object)))
     t
     (loop
  
negative.code:       (values (call-next-method) nil object)
      (values "The object is a CONS." nil (list (car object) (cdr object)))))
  
  #+(or cmu sbcl)
  (defmethod decompose-describe-object ((object #+cmu alien:system-area-pointer
  					      #+sbcl sb-alien:system-area-pointer))
    (values "The object is a SYSTEM-AREA-POINTER" nil nil))
  