projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Incorporate some decomposition information in ucd table
[sbcl.git]
/
make-host-1.lisp
diff --git
a/make-host-1.lisp
b/make-host-1.lisp
index
0a22dfe
..
23fe972
100644
(file)
--- a/
make-host-1.lisp
+++ b/
make-host-1.lisp
@@
-11,6
+11,13
@@
(setf *host-obj-prefix* "obj/from-host/")
(load "src/cold/set-up-cold-packages.lisp")
(load "src/cold/defun-load-or-cload-xcompiler.lisp")
(setf *host-obj-prefix* "obj/from-host/")
(load "src/cold/set-up-cold-packages.lisp")
(load "src/cold/defun-load-or-cload-xcompiler.lisp")
+
+(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
(load-or-cload-xcompiler #'host-cload-stem)
;;; Let's check that the type system, and various other things, are
@@
-28,7
+35,7
@@
;;; propagate structure offset and other information to the C runtime
;;; support code.
;;; 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)
(sb!vm:genesis :c-header-dir-name "src/runtime/genesis")
#+cmu (ext:quit)
#+clisp (ext:quit)