[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Avoid some unused variable warnings.

* slime.el (slime-xref-group, slime-all-contribs, [selector] ??):
Use _ as prefix or in loop-destructuring: (loop for (nil) in ...).

--- /project/slime/cvsroot/slime/ChangeLog	2012/10/14 12:56:47	1.2353
+++ /project/slime/cvsroot/slime/ChangeLog	2012/10/14 12:57:16	1.2354
@@ -1,5 +1,12 @@
 2012-10-14  Helmut Eller  <heller at common-lisp.net>
 
+	Avoid some unused variable warnings.
+
+	* slime.el (slime-xref-group, slime-all-contribs, [selector] ??):
+	Use _ as prefix or in loop-destructuring: (loop for (nil) in ...).
+
+2012-10-14  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (slime-goto-source-location-buffer-and-file): Delete
 	unused function.
 
--- /project/slime/cvsroot/slime/slime.el	2012/10/14 12:56:47	1.1413
+++ /project/slime/cvsroot/slime/slime.el	2012/10/14 12:57:16	1.1414
@@ -3974,7 +3974,7 @@
               (if buffer 
                   (format "%S" buffer) ; "#<buffer foo.lisp>"
                 (format "%s (previously existing buffer)" bufname))))
-           ((:buffer-and-file buffer filename) filename)
+           ((:buffer-and-file _buffer filename) filename)
            ((:source-form _) "(S-Exp)")
            ((:zip _zip entry) entry)))
         (t
@@ -6943,7 +6943,7 @@
   (ignore-errors (kill-buffer "*Select Help*"))
   (with-current-buffer (get-buffer-create "*Select Help*")
     (insert "Select Methods:\n\n")
-    (loop for (key line _function) in slime-selector-methods
+    (loop for (key line nil) in slime-selector-methods
           do (insert (format "%c:\t%s\n" key line)))
     (goto-char (point-min))
     (help-mode)
@@ -7116,7 +7116,7 @@
 (put 'slime-indulge-pretty-colors 'define-slime-contrib t)
 
 (defun slime-all-contribs ()
-  (loop for (_name val) on (symbol-plist 'slime-contribs) by #'cddr
+  (loop for (nil val) on (symbol-plist 'slime-contribs) by #'cddr
         when (slime-contrib-p val)
         collect val))