Skip to content
Snippets Groups Projects
Commit baf0b858 authored by gerd's avatar gerd
Browse files

Found by Christophe Rhodes:

	(defgeneric foo (&rest x &key))
	(defmethod foo (&rest x) x)
	(foo 1)

	should signal an error.  This fix works only for methods defined
	with DEFMETHOD.  MAKE-METHOD-LAMBDA doesn't have enough
	information available to always do the right thing, alas.

	* src/pcl/boot.lisp (*make-method-lambda-gf-name*): New variable.
	(expand-defmethod): Bind it to the gf's name.
	(gf-key-p): New function.
	(make-method-lambda-internal): Determine from
	*make-method-lambda-gf-name* if the gf has &key and add &key to
	the method function's lambda-list if appropriate.
parent ac6ebdfb
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment