From 14d83543a943f8a9f05678d707e7c0d89fe4e3bb Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 10 Dec 2008 16:16:15 +0100 Subject: [PATCH] T had a wrong class precedence list --- src/clos/boot.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp index 6d9d76e95..0055b75c7 100644 --- a/src/clos/boot.lsp +++ b/src/clos/boot.lsp @@ -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) )