(format-sldb-condition, condition-references): Add workarounds for

buggy no-applicable-method.

swank-allegro.lisp

@@ -45,8 +45,18 @@
 (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
 
 (defimplementation call-without-interrupts (fn)