? inspector-cmucl.patch
? inspector.x86f
Index: inspector.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Inspector/inspector.lisp,v
retrieving revision 1.7
diff -u -r1.7 inspector.lisp
--- inspector.lisp	30 Jan 2005 06:02:56 -0000	1.7
+++ inspector.lisp	30 Jan 2005 20:13:36 -0000
@@ -83,33 +83,39 @@
 
 (defun class-slots (class)
   #+sbcl (sb-mop:class-slots class)
+  #+cmu (mop:class-slots class)
   #+openmcl (ccl:class-slots class)
-  #-(or sbcl openmcl) (error "no MOP"))
+  #-(or sbcl cmu openmcl) (error "no MOP"))
 
 (defun slot-definition-name (slot)
   #+sbcl (sb-mop:slot-definition-name slot)
+  #+cmu (mop:slot-definition-name slot)
   #+openmcl (ccl:slot-definition-name slot)
-  #-(or sbcl openmcl) (error "no MOP"))
+  #-(or sbcl cmu openmcl) (error "no MOP"))
 
 (defun generic-function-name (generic-function)
   #+sbcl (sb-mop:generic-function-name generic-function)
+  #+cmu (mop:generic-function-name generic-function)
   #+openmcl (ccl:generic-function-name generic-function)
-  #-(or sbcl openmcl) (error "no MOP"))
+  #-(or sbcl cmu openmcl) (error "no MOP"))
 
 (defun generic-function-methods (generic-function)
   #+sbcl (sb-mop:generic-function-methods generic-function)
+  #+cmu (mop:generic-function-methods generic-function)
   #+openmcl (ccl:generic-function-methods generic-function)
-  #-(or sbcl openmcl) (error "no MOP"))
+  #-(or sbcl cmu openmcl) (error "no MOP"))
 
 (defun method-specializers (method)
   #+sbcl (sb-mop:method-specializers method)
+  #+cmu (mop:method-specializers method)
   #+openmcl (ccl:method-specializers method)
-  #-(or sbcl openmcl) (error "no MOP"))
+  #-(or sbcl cmu openmcl) (error "no MOP"))
 
 (defun method-generic-function (method)
   #+sbcl (sb-mop:method-generic-function method)
+  #+cmu (mop:method-generic-function method)
   #+openmcl (ccl:method-generic-function method)
-  #-(or sbcl openmcl) (error "no MOP"))
+  #-(or sbcl cmu openmcl) (error "no MOP"))
 
 (define-presentation-type settable-slot ()
   :inherit-from t)