[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el ([undefun] display-warning): Fix it.

--- /project/slime/cvsroot/slime/ChangeLog	2009/10/28 20:28:14	1.1893
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/28 20:28:25	1.1894
@@ -5,6 +5,7 @@
 	([test] arglist): Update expected results for slightly changed
 	printer settings.
 	([test] indentation): Install common-lisp-indent-function.
+	([undefun] display-warning): Fix it.
 
 	* test.sh: Don't copy contribs. Slime should work without them.
 	* swank-loader.lisp (setup): Compile contribs only if directory
--- /project/slime/cvsroot/slime/slime.el	2009/10/28 20:28:14	1.1239
+++ /project/slime/cvsroot/slime/slime.el	2009/10/28 20:28:25	1.1240
@@ -74,7 +74,8 @@
   (require 'arc-mode)
   (require 'apropos)
   (require 'outline)
-  (require 'etags))
+  (require 'etags)
+  (require 'compile))
 
 (eval-and-compile 
   (defvar slime-path
@@ -8867,10 +8868,10 @@
     (process &optional decoding encoding))
 
 ;; For Emacs 21
-(slime-DEFUN-if-undefined display-warning 
+(slime-DEFUN-if-undefined display-warning
     (type message &optional level buffer-name)
   (with-output-to-temp-buffer "*Warnings*"
-    (princ (apply #'format (concat "Warning (%s): " message) type args))))
+    (princ (format "Warning (%s %s): %s" type level message))))
 
 (unless (boundp 'temporary-file-directory)
   (defvar temporary-file-directory