Permalink
Browse files

* swank-ecl.lisp (function-name): Use clos:generic-function-name

for generic functions.
(arglist): Check fro symbol before calling special-operator-p and
macro-function.
Patch by Andy Hefner.
  • Loading branch information...
1 parent 3f421e8 commit 076253cd4a1d74700eb33c1e77ccf93109e3eabd @stassats stassats committed Nov 13, 2009
Showing with 13 additions and 3 deletions.
  1. +8 −0 ChangeLog
  2. +5 −3 swank-ecl.lisp
View
@@ -1,3 +1,11 @@
+2009-11-13 Stas Boukarev <stassats@gmail.com>
+
+ * swank-ecl.lisp (function-name): Use clos:generic-function-name
+ for generic functions.
+ (arglist): Check fro symbol before calling special-operator-p and
+ macro-function.
+ Patch by Andy Hefner.
+
2009-11-06 Stas Boukarev <stassats@gmail.com>
* swank-ecl.lisp (grovel-docstring-for-arglist): ECL's arglists
View
@@ -206,9 +206,9 @@
:not-available ))))
(defimplementation arglist (name)
- (cond ((special-operator-p name)
+ (cond ((and (symbolp name) (special-operator-p name))
(grovel-docstring-for-arglist name 'function))
- ((macro-function name)
+ ((and (symbolp name) (macro-function name))
(grovel-docstring-for-arglist name 'function))
((or (functionp name) (fboundp name))
(multiple-value-bind (name fndef)
@@ -228,7 +228,9 @@
(t :not-available)))
(defimplementation function-name (f)
- (si:compiled-function-name f))
+ (typecase f
+ (generic-function (clos:generic-function-name f))
+ (function (si:compiled-function-name f))))
(defimplementation macroexpand-all (form)
;;; FIXME! This is not the same as a recursive macroexpansion!

0 comments on commit 076253c

Please sign in to comment.