Navigation Menu

Skip to content

Commit

Permalink
Some fixes to make it actually work.
Browse files Browse the repository at this point in the history
  • Loading branch information
Helmut Eller committed Aug 9, 2006
1 parent c0b788a commit 12dc840
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions swank-backend.lisp
Expand Up @@ -114,8 +114,8 @@ Backends implement these functions using DEFIMPLEMENTATION."
(check-type documentation string "a documentation string")
(flet ((gen-default-impl ()
`(defmethod no-applicable-method ((_gf (eql #',name)) &rest _rargs)
(declare (ignore _))
(destructuring-bind ,args rargs
(declare (ignore _gf))
(destructuring-bind ,args _rargs
,@default-body))))
`(progn (defgeneric ,name ,args (:documentation ,documentation))
(pushnew ',name *interface-functions*)
Expand Down Expand Up @@ -729,6 +729,7 @@ inspect-for-emacs method."))
"Return an inspector object suitable for passing to inspect-for-emacs.")

(defgeneric inspect-for-emacs (object inspector)
(:documentation
"Explain to Emacs how to inspect OBJECT.
The argument INSPECTOR is an object representing how to get at
Expand All @@ -754,7 +755,7 @@ inserted into the buffer as is, or a list of the form:
(:action label lambda) - Render LABEL (a text string) which when
clicked will call LAMBDA.
NIL - do nothing.")
NIL - do nothing."))

(defmethod inspect-for-emacs ((object t) (inspector t))
"Generic method for inspecting any kind of object.
Expand Down

0 comments on commit 12dc840

Please sign in to comment.