T had a wrong class precedence list

This commit is contained in:
Juan Jose Garcia Ripoll 2008-12-10 16:16:15 +01:00
parent a25d20a3cb
commit 14d83543a9

View file

@ -93,7 +93,7 @@
(setf (class-precedence-list standard-class) cpl
(class-precedence-list the-class) (cdr cpl)
(class-precedence-list standard-object) (cddr cpl)
(class-precedence-list the-t) nil))
(class-precedence-list the-t) (cdddr cpl)))
;; 5) Generate accessors (In macros.lsp)
)