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

STANDARD-OBJECT must be a STRUCTURE-CLASS.

Browse source
This commit is contained in:
jjgarcia 2003-04-28 09:07:07 +00:00
parent 1fe35cfb5b
commit 757572ca7f
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/clos/builtin.lsp
View file

@ -145,7 +145,7 @@
(eval-when
(compile load eval)
(make-instance (find-class 'STANDARD-CLASS)
(make-instance (find-class 'STRUCTURE-CLASS)
:name 'STRUCTURE-OBJECT
:direct-superclasses (list (find-class 't))
:slots ()
@ -153,7 +153,14 @@
:slot-index-table ()
:direct-slots ()
:default-initargs ()
:documentation "The root of inheritance for structures"))
:documentation "The root of inheritance for structures"
:slot-descriptions ()
:initial-offset 0
:defstruct-form ()
:constructors ()
:copier ()
:predicate ()
:print-function ()))
(defmethod print-object ((obj structure-object) stream)
(let* ((class (si:instance-class obj))