* method-browser (eql-specializer-p, eql-specializer-object): remove these local definitions and use clim-mop:eql-specializer and clim-mop:eql-specializer-object for better portability.
* method-browser (classp): special case for the Scieneer CL.
Regards Douglas Crosher
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))))