In swank-ecl.lisp, import compute-applicable-methods-using-classes wh…

…en its fboundp (ECL 12.5.1 will provide it).
antifuchs · Apr 20, 2012 · 1130794 · 1130794
1 parent 1f8d15f
commit 1130794
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/swank-ecl.lisp b/swank-ecl.lisp
@@ -40,11 +40,12 @@
   (import-from :gray *gray-stream-symbols* :swank-backend)
 
   (import-swank-mop-symbols :clos
-    '(:eql-specializer
+    `(:eql-specializer
       :eql-specializer-object
       :generic-function-declarations
       :specializer-direct-methods
-      :compute-applicable-methods-using-classes)))
+      ,@(unless (fboundp 'clos:compute-applicable-methods-using-classes)
+         '(:compute-applicable-methods-using-classes)))))
 
 
 ;;;; TCP Server