mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-30 13:11:17 -07:00
Code Issues Projects Releases Packages Wiki Activity

Method combinations are built using with-early-make-instance

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-07 14:53:54 +02:00
parent 6459061654
commit 18e7a43603
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/clos/combin.lsp
View file

@ -201,11 +201,11 @@
name)
(defun make-method-combination (name compiler options)
(let ((o (si:allocate-raw-instance nil (find-class 'method-combination)
#.(length +method-combination-slots+))))
(setf (method-combination-compiler o) compiler
(method-combination-name o) name
(method-combination-options o) options)
(with-early-make-instance +method-combination-slots+
(o (find-class 'method-combination)
:name name
:compiler compiler
:options options)
o))
(defun find-method-combination (gf method-combination-type-name method-combination-options)