From 68758a88e44b4bacb0f8cce68166ff0f8d5b3100 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 8 Jul 2011 14:04:39 -0600 Subject: [PATCH] Add missing call when finalizing class --- mop.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/mop.lisp b/mop.lisp index b37a59c..47a2aae 100644 --- a/mop.lisp +++ b/mop.lisp @@ -218,7 +218,8 @@ (defmethod finalize-inheritance :after ((cl hyperobject-class)) "Initialize a hyperobject class. Calculates all class slots" (finalize-subobjects cl) - (finalize-compute-cached cl)) + (finalize-compute-cached cl) + (init-hyperobject-class cl)) (eval-when (:compile-toplevel :load-toplevel :execute) (when (>= (length (generic-function-lambda-list -- 2.34.1