[slime-cvs] CVS update: slime/swank-allegro.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv15398

Modified Files:
	swank-allegro.lisp 
Log Message:
(format-sldb-condition, condition-references): Add workarounds for
buggy no-applicable-method.
Date: Sat Jun 12 05:27:29 2004
Author: heller

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.33 slime/swank-allegro.lisp:1.34
--- slime/swank-allegro.lisp:1.33	Mon Jun  7 11:27:03 2004
+++ slime/swank-allegro.lisp	Sat Jun 12 05:27:29 2004
@@ -45,7 +45,17 @@
 (defimplementation accept-connection (socket)
   (socket:accept-connection socket :wait t))
 
+;; The following defitinions are workarounds for the buggy
+;; no-applicable-method function in Allegro 5.  We have to provide an
+;; implementation.
 (defimplementation emacs-connected ())
+
+(defimplementation format-sldb-condition (c)
+  (princ-to-string c))
+
+(defimplementation condition-references (c)
+  (declare (ignore))
+  '())
 
 ;;;; Unix signals