[slime-cvs] CVS slime

[msimmons]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv13991

Modified Files:
	swank-lispworks.lisp ChangeLog 
Log Message:

(map-error-database): Make mapping work for LispWorks 5.1 too.


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/02/10 08:32:04	1.97
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/03/27 21:59:45	1.98
@@ -408,7 +408,7 @@
   (loop for (filename . defs) in database do
 	(loop for (dspec . conditions) in defs do
 	      (dolist (c conditions) 
-		(funcall fn filename dspec c)))))
+		(funcall fn filename dspec (if (consp c) (car c) c))))))
 
 (defun lispworks-severity (condition)
   (cond ((not condition) :warning)
--- /project/slime/cvsroot/slime/ChangeLog	2008/03/27 11:46:50	1.1340
+++ /project/slime/cvsroot/slime/ChangeLog	2008/03/27 21:59:45	1.1341
@@ -1,3 +1,8 @@
+2008-03-27  Martin Simmons <martin at lispworks.com>
+
+	* swank-lispworks.lisp (map-error-database): Make mapping work for
+	LispWorks 5.1 too.
+
 2008-03-26 Tobias C. Rittweiler  <tcr at freebits.de>
 
 	On SBCL,