From f79a276452e6ba3a47a2e702df9f6b872875910e Mon Sep 17 00:00:00 2001
From: Juanjo Garcia-Ripoll <jjgarcia@users.sourcerforge.net>
Date: Fri, 5 Oct 2012 16:53:37 +0200
Subject: [PATCH] method, funcallable-standard-object and generic-function are
 now created in boot.lsp

---
 src/clos/boot.lsp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp
index 52f84f135..75b1f47ae 100644
--- a/src/clos/boot.lsp
+++ b/src/clos/boot.lsp
@@ -147,6 +147,13 @@
 	   collect (list name :metaclass 'built-in-class
 			 :index index
 			 :direct-superclasses (or rest '(t))))
+      (funcallable-standard-object
+       :direct-superclasses (standard-object function))
+      (generic-function
+       :metaclass funcallable-standard-class
+       :direct-superclasses (metaobject funcallable-standard-object))
+      (method
+       :direct-superclasses (metaobject))
       )))
 
 ;;; ----------------------------------------------------------------------