mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

ensure-generic-function-using-class: don't use NAME for reinitialization.

Browse source 
MOP says that when ensure-generic-function-using-class is called with
a generic function, it just calls reinitialize-instance with
the supplied initargs.

http://www.alu.org/mop/dictionary.html#ensure-generic-function-using-class

Fixes #283.
This commit is contained in:
Stas Boukarev 2014-03-08 02:29:46 +04:00
parent bc2189741b
commit a2a23bee12
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/generic.lsp
View file

@ -218,8 +218,8 @@
(when (getf (method-plist m) :method-from-defgeneric-p)
(remove-method gfun m))))
(if (eq (class-of gfun) generic-function-class)
(apply #'reinitialize-instance gfun :name name args)
(apply #'change-class gfun generic-function-class :name name args)))
(apply #'reinitialize-instance gfun args)
(apply #'change-class gfun generic-function-class args)))
(defmethod ensure-generic-function-using-class
((gfun null) name &rest args &key