[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv27839

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* swank-ecl.lisp (swank-mop): MOP works well now, import
all symbols.


--- /project/slime/cvsroot/slime/ChangeLog	2012/12/17 11:14:48	1.2376
+++ /project/slime/cvsroot/slime/ChangeLog	2012/12/17 11:33:47	1.2377
@@ -1,5 +1,8 @@
 2012-12-17  Stas Boukarev  <stassats at gmail.com>
 
+	* swank-ecl.lisp (swank-mop): MOP works well now on ECL, import
+	all symbols.
+
 	* swank.lisp (thread-for-evaluation): Use INTEGER, not FIXNUM, as
 	a specializer, FIXNUM is not a standard class.
 
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2012/11/09 21:28:40	1.78
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2012/12/17 11:33:47	1.79
@@ -10,14 +10,20 @@
 
 (in-package :swank-backend)
 
+
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (let ((version (find-symbol "+ECL-VERSION-NUMBER+" :EXT)))
-    (when (or (not version) (< (symbol-value version) 100301))
-      (error "~&IMPORTANT:~%  ~
+  (defun ecl-version ()
+    (let ((version (find-symbol "+ECL-VERSION-NUMBER+" :EXT)))
+      (if version
+          (symbol-value version)
+          0)))
+  (when (< (ecl-version) 100301)
+    (error "~&IMPORTANT:~%  ~
               The version of ECL you're using (~A) is too old.~%  ~
               Please upgrade to at least 10.3.1.~%  ~
               Sorry for the inconvenience.~%~%"
-             (lisp-implementation-version)))))
+           (lisp-implementation-version))))
 
 ;; Hard dependencies.
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -38,14 +44,15 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (import-from :gray *gray-stream-symbols* :swank-backend)
-
-  (import-swank-mop-symbols :clos
-    `(:eql-specializer
-      :eql-specializer-object
-      :generic-function-declarations
-      :specializer-direct-methods
-      ,@(unless (fboundp 'clos:compute-applicable-methods-using-classes)
-         '(:compute-applicable-methods-using-classes)))))
+  (import-swank-mop-symbols
+   :clos
+   (and (< (ecl-version) 121201)
+        `(:eql-specializer
+          :eql-specializer-object
+          :generic-function-declarations
+          :specializer-direct-methods
+          ,@(unless (fboundp 'clos:compute-applicable-methods-using-classes)
+              '(:compute-applicable-methods-using-classes))))))
 
 
 ;;;; TCP Server