[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-backend.lisp 
Log Message:
* swank-backend.lisp: Add a couple of ignore declarations.


--- /project/slime/cvsroot/slime/ChangeLog	2013/01/11 23:36:35	1.2388
+++ /project/slime/cvsroot/slime/ChangeLog	2013/01/12 12:32:20	1.2389
@@ -1,3 +1,7 @@
+2013-01-12  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-backend.lisp: Add a couple of ignore declarations.
+
 2013-01-11  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-ecl.lisp (accept-connection): Fix a typo, line => :line.
--- /project/slime/cvsroot/slime/swank-backend.lisp	2013/01/07 10:12:09	1.222
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2013/01/12 12:32:21	1.223
@@ -1347,6 +1347,7 @@
 
 (definterface send (thread object)
   "Send OBJECT to thread THREAD."
+  (declare (ignore thread))
   object)
 
 (definterface receive (&optional timeout)
@@ -1366,6 +1367,7 @@
 (definterface find-registered (name)
   "Find the thread that was registered for the symbol NAME.
 Return nil if the no thread was registred or if the tread is dead."
+  (declare (ignore name))
   nil)
 
 (definterface set-default-initial-binding (var form)