[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (tempnam): Muffle efficientcy notes.

--- /project/slime/cvsroot/slime/ChangeLog	2009/07/26 08:00:40	1.1814
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/26 10:18:17	1.1815
@@ -1,3 +1,7 @@
+2009-07-26  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-sbcl.lisp (tempnam): Muffle efficientcy notes.
+
 2009-07-26  Gail Zacharias <gz at clozure.com>
 
 	* swank-ccl.lisp: New file.  An updated version of
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/06/28 19:14:44	1.244
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/07/26 10:18:17	1.245
@@ -582,11 +582,15 @@
 ;;;     (compile nil `(lambda () ,(read-from-string string)))
 ;;; did not provide.
 
+(locally (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
+
 (sb-alien:define-alien-routine (#-win32 "tempnam" #+win32 "_tempnam" tempnam)
     sb-alien:c-string
   (dir sb-alien:c-string)
   (prefix sb-alien:c-string))
 
+)
+
 (defun temp-file-name ()
   "Return a temporary file name to compile strings into."
   (tempnam nil nil))