[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank-abcl.lisp 
Log Message:
Abcl fixes.


--- /project/slime/cvsroot/slime/ChangeLog	2007/09/04 10:32:04	1.1200
+++ /project/slime/cvsroot/slime/ChangeLog	2007/09/04 15:45:19	1.1201
@@ -1,3 +1,8 @@
+2007-09-04  Mark Evenson <mark.evenson at gmx.at>
+
+	* swank-abcl.lisp: Call accessors of compiler-condition at load
+	time to work around some ABCL problems.
+
 2007-09-04  Helmut Eller  <heller at common-lisp.net>
 
 	Move asdf support to contrib.
--- /project/slime/cvsroot/slime/swank-abcl.lisp	2007/08/23 19:03:37	1.42
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2007/09/04 15:45:19	1.43
@@ -532,6 +532,10 @@
 (defimplementation quit-lisp ()
   (ext:exit))
 
-
-
-
+;; WORKAROUND: call/initialize accessors at load time
+(let ((c (make-condition 'compiler-condition 
+                          :original-condition nil
+                          :severity ':note :message "" :location nil))
+       (slots `(severity message short-message references location)))
+   (dolist (slot slots)
+     (funcall slot c)))