[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
(compiler-warning-short-message): In new
versions of CCL `compiler-warning-nrefs' slot
of the `compiler-warning' class is now a list, not an integer.


--- /project/slime/cvsroot/slime/ChangeLog	2009/06/27 15:10:29	1.1794
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/28 08:27:03	1.1795
@@ -1,3 +1,9 @@
+2009-06-28  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-openmcl.lisp (compiler-warning-short-message): In new
+	versions of CCL `compiler-warning-nrefs' slot
+	of the `compiler-warning' class is now a list, not an integer.
+
 2009-06-25  Geo Carncross  <geocar at gmail.com>
 
 	* swank-ecl.lisp: Profiling support by Marko Kocić
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/21 07:22:56	1.179
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/28 08:27:03	1.180
@@ -256,8 +256,10 @@
                          (ccl::adjust-compiler-warning-args type args)))
           (null (format stream "~A: ~S" type args))
           (t (funcall format-string c stream)))
-        (when (and nrefs (/= nrefs 1))
-          (format stream " (~D references)" nrefs))))))
+        (let ((nrefs (cond ((numberp nrefs) nrefs)
+                           ((consp nrefs) (length nrefs)))))
+          (when (and nrefs (/= nrefs 1))
+            (format stream " (~D references)" nrefs)))))))
 
 (defimplementation call-with-compilation-hooks (function)
   (handler-bind ((ccl::compiler-warning 'handle-compiler-warning))