Index: Examples/method-browser.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Examples/method-browser.lisp,v
retrieving revision 1.2
diff -u -r1.2 method-browser.lisp
--- Examples/method-browser.lisp	6 Mar 2005 20:35:40 -0000	1.2
+++ Examples/method-browser.lisp	16 Mar 2006 01:49:58 -0000
@@ -69,21 +69,14 @@
 
 (defun classp (x)
   (or (typep x 'cl:class)
-      #+CMU (typep x 'pcl::class)))
-
-(defun eql-specializer-p (x)
-  #+SBCL (typep x 'sb-mop:eql-specializer)
-  #+CMU  (typep x 'pcl:eql-specializer))
-
-(defun eql-specializer-object (x)
-  #+SBCL (sb-mop:eql-specializer-object x)
-  #+CMU  (pcl::eql-specializer-object x))
+      #+CMU (typep x 'pcl::class)
+      #+scl (typep x 'clos::std-class)))
 
 (defun compute-applicable-methods-from-specializers (gf specializers)
   (clim-mop:compute-applicable-methods gf
      (mapcar (lambda (spec)
-               (cond ((eql-specializer-p spec)
-                      (eql-specializer-object spec))
+               (cond ((typep spec 'clim-mop:eql-specializer)
+                      (clim-mop:eql-specializer-object spec))
                      ((classp spec)
                       (clim-mop:class-prototype spec))
                      (t (error "Can't compute effective methods, specializer ~A is not understood." spec))))
