From: Stas B. <sta...@gm...> - 2012-01-22 03:31:21
|
Andy Hefner <ah...@gm...> writes: > I encountered a problem in SBCL 1.0.55 while attempting to use the > (keyword-name var) syntax for overriding the default keywordification > of keyword names. > > It can be reproduced with a series of definitions such as the following: > > (defgeneric gf (&key ((:foo var)))) > (defmethod gf (&key ((:foo var))) var) > (defun foo () (gf)) > > Yielding the error " ((:FOO SB-DEBUG:VAR)) cannot be coerced to a string." > > Easiliy fixed: > > diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp > index 7efb80d..c1e5fc4 100644 > --- a/src/pcl/methods.lisp > +++ b/src/pcl/methods.lisp > @@ -635,7 +635,7 @@ > (remove-duplicates > (nconc > (mapcan #'function-keywords methods) > - (mapcar #'keywordicate gf.keys)))))) > + (mapcar #'keyword-spec-name > gf.keys)))))) > (when all-keys > (setq keysp t) > `(&key ,@all-keys)))) Committed, thanks. -- With best regards, Stas. |