Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

* 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.
  • Loading branch information...
commit fdfd77b07ddfe7698259dcc831399bc7342b30cc 1 parent 076253c
@stassats stassats authored
Showing with 20 additions and 10 deletions.
  1. +6 −0 ChangeLog
  2. +14 −10 swank-ecl.lisp
View
6 ChangeLog
@@ -1,5 +1,11 @@
2009-11-13 Stas Boukarev <stassats@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@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
View
24 swank-ecl.lisp
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.