Do not define a function which is not going to be reused.

src/clos/boot.lsp

@@ -12,7 +12,7 @@
 ;;; ----------------------------------------------------------------------
 ;;; BOOT
 
-(defun boot ()
+(progn
   (let* ((class (find-class 'class))
 	 (built-in-class (find-class 'built-in-class)))
 
@@ -137,6 +137,4 @@
       (error 'slot-unbound :instance object :name slot-name))
     ))
 
-(boot)
-
 ;;; ----------------------------------------------------------------------