mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

direct-superclasses: the default value of the slot is nil per AMOP

Browse source 
http://metamodular.com/CLOS-MOP/class-direct-superclasses.html
This commit is contained in:
Daniel Kochmański 2020-12-31 18:35:16 +01:00
parent 086ec59ab8
commit 0e5174c040
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/hierarchy.lsp
View file

@ -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)