From 0e5174c0401ee8d54684e1810daf967005cd15c1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Thu, 31 Dec 2020 18:35:16 +0100 Subject: [PATCH] direct-superclasses: the default value of the slot is nil per AMOP http://metamodular.com/CLOS-MOP/class-direct-superclasses.html --- src/clos/hierarchy.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/hierarchy.lsp b/src/clos/hierarchy.lsp index fb2442b4d..3d450812e 100644 --- a/src/clos/hierarchy.lsp +++ b/src/clos/hierarchy.lsp @@ -59,7 +59,7 @@ (defparameter +class-slots+ `(,@+specializer-slots+ (name :initarg :name :initform nil :accessor class-id) - (direct-superclasses :initarg :direct-superclasses + (direct-superclasses :initarg :direct-superclasses :initform nil :accessor class-direct-superclasses) (direct-subclasses :initform nil :accessor class-direct-subclasses) (slots :accessor class-slots)