X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-1.lisp;h=23fe97202726538fe674c7ef7c80b852947ca880;hb=HEAD;hp=6e67ee9dd7af6f230d7dfe0aad8230147144824a;hpb=77bf768d096845986af71ca5055c94c4abd626ed;p=sbcl.git

diff --git a/make-host-1.lisp b/make-host-1.lisp
index 6e67ee9..23fe972 100644
--- a/make-host-1.lisp
+++ b/make-host-1.lisp
@@ -15,6 +15,9 @@
 (set-dispatch-macro-character #\# #\+ #'she-reader)
 (set-dispatch-macro-character #\# #\- #'she-reader)
 
+;; Supress function/macro redefinition warnings under clisp.
+#+clisp (setf custom:*suppress-check-redefinition* t)
+
 (load-or-cload-xcompiler #'host-cload-stem)
 
 ;;; Let's check that the type system, and various other things, are
@@ -32,7 +35,7 @@
 
 ;;; propagate structure offset and other information to the C runtime
 ;;; support code.
-(host-cload-stem "src/compiler/generic/genesis")
+(host-cload-stem "src/compiler/generic/genesis" nil)
 (sb!vm:genesis :c-header-dir-name "src/runtime/genesis")
 #+cmu (ext:quit)
 #+clisp (ext:quit)