Commit 74bba036 authored by  Hayley Patton's avatar Hayley Patton 🐢

Finalise the class before reading its computed slot table, as we do for the normal slot table

parent 5029b323
......@@ -65,10 +65,13 @@ Providing the class option (:scripts script ...) will attach the initialisation
(defmethod netfarm-class-slot-table :before ((class netfarm-class))
(unless (closer-mop:class-finalized-p class)
(closer-mop:finalize-inheritance class)))
(defmethod netfarm-class-computed-slot-table :before ((class netfarm-class))
(unless (closer-mop:class-finalized-p class)
(closer-mop:finalize-inheritance class)))
(defgeneric netfarm-class-name (class)
(:method ((class netfarm-class))
(bytes->base64 (hash-object (class->schema class)))))
(hash-object* (class->schema class))))
(defclass netfarm-slot (closer-mop:standard-direct-slot-definition)
((computed :initarg :computed :initform nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment