[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
* swank-lispworks.lisp (swank-compile-string): Don't include the
source-string in the dspec::*location*.  As LW has the habbit to
print the entire *location* on redefinition the source-string
would causes troubles for the test case.

--- /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:10:19	1.2305
+++ /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:10:32	1.2306
@@ -1,5 +1,10 @@
 2012-03-26  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-lispworks.lisp (swank-compile-string): Don't include the
+	source-string in the dspec::*location*.  As LW has the habbit to
+	print the entire *location* on redefinition the source-string
+	would causes troubles for the test case.
+
 	* swank-sbcl.lisp (swank-compile-string): Use utf8.
 
 	* swank-cmucl.lisp (swank-compile-file): Use external-format arg.
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2012/03/14 17:13:26	1.149
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2012/03/26 15:10:32	1.150
@@ -681,8 +681,8 @@
     (symbol 
      `(:error ,(format nil "Cannot resolve location: ~S" location)))
     ((satisfies emacs-buffer-location-p)
-     (destructuring-bind (_ buffer offset string) location
-       (declare (ignore _ string))
+     (destructuring-bind (_ buffer offset) location
+       (declare (ignore _))
        (make-location `(:buffer ,buffer)
                       (dspec-function-name-position dspec `(:offset ,offset 0))
                       hints)))))
@@ -733,7 +733,7 @@
   (declare (ignore filename policy))
   (assert buffer)
   (assert position)
-  (let* ((location (list :emacs-buffer buffer position string))
+  (let* ((location (list :emacs-buffer buffer position))
          (tmpname (hcl:make-temp-file nil "lisp")))
     (with-swank-compilation-unit (location)
       (compile-from-temp-file