[slime-cvs] CVS update: slime/swank-lispworks.lisp

[Helmut Eller]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(swank-mop:compute-applicable-methods-using-classes): Implement it.
Date: Tue Feb 22 06:59:16 2005
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.64 slime/swank-lispworks.lisp:1.65
--- slime/swank-lispworks.lisp:1.64	Tue Dec 21 14:49:30 2004
+++ slime/swank-lispworks.lisp	Tue Feb 22 06:59:14 2005
@@ -27,13 +27,17 @@
 
 (import-swank-mop-symbols :clos '(:slot-definition-documentation
                                   :eql-specializer
-                                  :eql-specializer-object))
+                                  :eql-specializer-object
+                                  :compute-applicable-methods-using-classes))
 
 (defun swank-mop:slot-definition-documentation (slot)
   (documentation slot t))
 
-;;;; lispworks doesn't have the eql-specializer class, it represents
-;;;; them as a list of `(EQL ,OBJECT)
+(defun swank-mop:compute-applicable-methods-using-classes (gf classes)
+  (clos::compute-applicable-methods-from-classes gf classes))
+
+;; lispworks doesn't have the eql-specializer class, it represents
+;; them as a list of `(EQL ,OBJECT)
 (deftype swank-mop:eql-specializer () 'cons)
 
 (defun swank-mop:eql-specializer-object (eql-spec)
@@ -88,8 +92,8 @@
 
 (defimplementation emacs-connected ()
   (declare (ignore stream))
-  (when (eq nil (symbol-value 
-                 (find-symbol (string :*communication-style*) :swank)))
+  (when (eq (symbol-value (find-symbol "*COMMUNICATION-STYLE*" :swank))
+            nil)
     (set-sigint-handler))
   (let ((lw:*handle-warn-on-redefinition* :warn))
     (defmethod env-internals:environment-display-notifier