[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv20065

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* swank-ecl.lisp (swank-mop:compute-applicable-methods-using-classes):
Add a dummy function. ECL doesn't have it, but some contribs are using it.
Patch by Andy Hefner.


--- /project/slime/cvsroot/slime/ChangeLog	2009/11/13 19:39:16	1.1915
+++ /project/slime/cvsroot/slime/ChangeLog	2009/11/13 19:55:04	1.1916
@@ -1,5 +1,11 @@
 2009-11-13  Stas Boukarev  <stassats at gmail.com>
 
+	* swank-ecl.lisp (swank-mop:compute-applicable-methods-using-classes):
+	Add a dummy function. ECL doesn't have it, but some contribs are using it.
+	Patch by Andy Hefner.
+
+2009-11-13  Stas Boukarev  <stassats at gmail.com>
+
 	* swank-ecl.lisp (function-name): Use clos:generic-function-name
 	for generic functions.
 	(arglist): Check fro symbol before calling special-operator-p and
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2009/11/13 19:39:16	1.48
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2009/11/13 19:55:04	1.49
@@ -15,16 +15,20 @@
 (defvar *tmp*)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-(if (find-package :gray)
-  (import-from :gray *gray-stream-symbols* :swank-backend)
-  (import-from :ext *gray-stream-symbols* :swank-backend))
-
-(swank-backend::import-swank-mop-symbols :clos
- '(:eql-specializer
-   :eql-specializer-object
-   :generic-function-declarations
-   :specializer-direct-methods
-   :compute-applicable-methods-using-classes)))
+  (if (find-package :gray)
+      (import-from :gray *gray-stream-symbols* :swank-backend)
+      (import-from :ext *gray-stream-symbols* :swank-backend))
+
+  (swank-backend::import-swank-mop-symbols :clos
+    '(:eql-specializer
+      :eql-specializer-object
+      :generic-function-declarations
+      :specializer-direct-methods
+      :compute-applicable-methods-using-classes)))
+
+(defun swank-mop:compute-applicable-methods-using-classes (gf classes)
+  (declare (ignore gf classes))
+  (values nil nil))
 
 
 ;;;; TCP Server