mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

clos: finalize-unless-forward: check for the class itself first

Browse source 
That was probably a typo, because finalize-unless-forward checked only
the class parents if they were forward-referenced classes, not the
class itself.
This commit is contained in:
Daniel Kochmański 2020-04-13 08:45:05 +02:00
parent d45f079c3c
commit 3ec02d6daf
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/standard.lsp
View file

@ -160,7 +160,8 @@
(class-direct-superclasses class)))))
(defun finalize-unless-forward (class)
(unless (find-if #'has-forward-referenced-parents (class-direct-superclasses class))
(unless (or (forward-referenced-class-p class)
(find-if #'has-forward-referenced-parents (class-direct-superclasses class)))
(finalize-inheritance class)))
(defmethod initialize-instance ((class class) &rest initargs &key direct-slots direct-superclasses)