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

Merge remote-tracking branch 'origin/master'

Browse source
This commit is contained in:
Philipp Marek 2014-03-09 20:59:39 +01:00
commit 6f47036d4d
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