From 35fd642cd660e8617017237d290d9f5e3038dfa2 Mon Sep 17 00:00:00 2001 From: Alexander Gavrilov Date: Mon, 2 Nov 2009 11:39:03 +0300 Subject: [PATCH] built-in-class should be an instance of standard-class. --- src/clos/builtin.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/builtin.lsp b/src/clos/builtin.lsp index 752899d56..a771abecb 100644 --- a/src/clos/builtin.lsp +++ b/src/clos/builtin.lsp @@ -28,7 +28,7 @@ ;;; does not work yet, since the class NULL does not exist. ;;; (setf (find-class 'built-in-class) - (make-instance (find-class 'class) + (make-instance (find-class 'standard-class) :name 'built-in-class :direct-superclasses (list (find-class 'class)) :direct-slots nil))