[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv16897

Modified Files:
	ChangeLog swank-backend.lisp swank-sbcl.lisp 
Log Message:
	* swank-backend.lisp (with-symbol): Test for package before doing
	find-symbol.
	* swank-sbcl.lisp(Multiprocessing): use with-symbol.
	(emacs-inspect t): Remove newlines from text returned by
	sb-impl::inspected-parts, otherwise there will be ".." inserted by
	the printer due to (*print-lines* 1).


--- /project/slime/cvsroot/slime/ChangeLog	2010/04/21 08:54:10	1.2073
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/22 05:47:35	1.2074
@@ -1,3 +1,12 @@
+2010-04-22  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-backend.lisp (with-symbol): Test for package before doing
+	find-symbol.
+	* swank-sbcl.lisp(Multiprocessing): use with-symbol.
+	(emacs-inspect t): Remove newlines from text returned by
+	sb-impl::inspected-parts, otherwise there will be ".." inserted by
+	the printer due to (*print-lines* 1).
+
 2010-04-21  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-open-inspector): Use forward-line instead of
--- /project/slime/cvsroot/slime/swank-backend.lisp	2010/03/19 12:32:30	1.198
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2010/04/22 05:47:35	1.199
@@ -260,7 +260,8 @@
 
 (defun with-symbol (name package)
   "Generate a form suitable for testing with #+."
-  (if (find-symbol (string name) (string package))
+  (if (and (find-package package)
+           (find-symbol (string name) package))
       '(:and)
       '(:or)))
 
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/04/20 09:48:19	1.270
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/04/22 05:47:35	1.271
@@ -1269,11 +1269,13 @@
          (label-value-line* (:value (sb-kernel:value-cell-ref o))))
 	(t
 	 (multiple-value-bind (text label parts) (sb-impl::inspected-parts o)
-           (list* (format nil "~a~%" text)
+           (list* (string-right-trim '(#\Newline) text)
+                  '(:newline)
                   (if label
                       (loop for (l . v) in parts
                             append (label-value-line l v))
-                      (loop for value in parts  for i from 0
+                      (loop for value in parts
+                            for i from 0
                             append (label-value-line i value))))))))
 
 (defmethod emacs-inspect ((o function))
@@ -1343,7 +1345,7 @@
 ;;;; Multiprocessing
 
 #+(and sb-thread
-       #.(cl:if (cl:find-symbol "THREAD-NAME" "SB-THREAD") '(and) '(or)))
+       #.(swank-backend:with-symbol "THREAD-NAME" "SB-THREAD"))
 (progn
   (defvar *thread-id-counter* 0)