diff --git a/src/CHANGELOG b/src/CHANGELOG index a7c821d32..3f20c9ae7 100644 --- a/src/CHANGELOG +++ b/src/CHANGELOG @@ -80,6 +80,12 @@ ECL 0.9i not support in the statically linked code. MSVC++ does not seem to have a problem with it, though. + - It is now possible to define subclasses of STANDARD-CLASS. Before, some + slots were not properly inherited by subclasses, causing errors when doing + something like + > (defclass foo (standard-class) () ()) + > (defclass faa () () (:metaclass foo)) + * Documentation: - The HTML manuals now use CSS for a more appealing look. diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp index 60195b935..1bd917c42 100644 --- a/src/clos/boot.lsp +++ b/src/clos/boot.lsp @@ -62,7 +62,7 @@ (class-direct-slots the-class) class-slots (class-slots standard-class) standard-slots (slot-index-table standard-class) hash-table - (class-direct-slots standard-class) class-slots) + (class-direct-slots standard-class) (set-difference standard-slots class-slots)) ;; 3) Fix the class hierarchy (setf (class-direct-superclasses the-t) nil