Permalink
Browse files

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

buggy no-applicable-method.
  • Loading branch information...
1 parent 5231e45 commit 58bc7fbb052d9d1132de13e28b608554465bc925 Helmut Eller committed Jun 12, 2004
Showing with 10 additions and 0 deletions.
  1. +10 −0 swank-allegro.lisp
View
@@ -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)

0 comments on commit 58bc7fb

Please sign in to comment.