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

diff --git a/make-host-1.lisp b/make-host-1.lisp
index 0a22dfe..6e67ee9 100644
--- a/make-host-1.lisp
+++ b/make-host-1.lisp
@@ -11,6 +11,10 @@
 (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)
+
 (load-or-cload-xcompiler #'host-cload-stem)
 
 ;;; Let's check that the type system, and various other things, are