[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp ([method] source-locations (symbol)): Drop
the unused _; the compiler dosn't like it.

--- /project/slime/cvsroot/slime/ChangeLog	2008/12/31 11:25:19	1.1612
+++ /project/slime/cvsroot/slime/ChangeLog	2008/12/31 11:25:30	1.1613
@@ -25,6 +25,13 @@
 
 2008-12-31  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-openmcl.lisp ([method] source-locations (symbol)): Drop
+	the unused _; the compiler dosn't like it.
+
+2008-12-31  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-openmcl.lisp ([method] source-locations (symbol)): 
+
 	* slime.el (slime-cd, slime-pwd): New commands.
 	(slime-change-directory): New function.
 	(slime-change-directory-hooks): New hook.
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/12/30 18:57:54	1.149
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/12/31 11:25:30	1.150
@@ -749,7 +749,7 @@
               (not (special-operator-p s))
               (functionp (symbol-function s)))
          (source-locations (symbol-function s)))
-     (loop for ((type . name) source . _) in (ccl:find-definition-sources s) 
+     (loop for ((type . name) source) in (ccl:find-definition-sources s)
            collect (cons (source-note-to-source-location 
                           source (lambda () "No source info available"))
                          (definition-name type name)))))