From 3ec02d6daf1133d51e9e99ed7b778ff3f445cd78 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 13 Apr 2020 08:45:05 +0200 Subject: [PATCH] clos: finalize-unless-forward: check for the class itself first That was probably a typo, because finalize-unless-forward checked only the class parents if they were forward-referenced classes, not the class itself. --- src/clos/standard.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp index c9caa682c..e63c37568 100644 --- a/src/clos/standard.lsp +++ b/src/clos/standard.lsp @@ -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)