mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

Early definition of the standard class slots so that slot-value is available ASAP

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-07 12:31:11 +02:00
parent 06c14a2d1a
commit 1b2d00ad72
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/clos/hierarchy.lsp
View file

@ -226,7 +226,8 @@
(eval-when (eval)
(defconstant +class-hierarchy+
`((standard-class
:metaclass nil) ; Special-cased below
:metaclass nil ; Special-cased in boot.lsp
:direct-slots #1=#.+standard-class-slots+)
(t
:index 0)
(standard-object
@ -250,7 +251,7 @@
:direct-slots #.+class-slots+)
(built-in-class
:direct-superclasses (class)
:direct-slots #1=#.+standard-class-slots+)
:direct-slots #1#)
(std-class
:direct-superclasses (class)
:direct-slots #1#)