X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-2.lisp;h=43fb52b89c717ada0d42e67bdf44037fa83a9a47;hb=c0578d9893429c9c0da80ea5920360e4621fddab;hp=0258b19435e4b31029d2dbf76cc166c37febcbee;hpb=6822034325136cde4e14773c83c3769b42721306;p=sbcl.git

diff --git a/make-host-2.lisp b/make-host-2.lisp
index 0258b19..43fb52b 100644
--- a/make-host-2.lisp
+++ b/make-host-2.lisp
@@ -50,6 +50,9 @@
     ;; toplevel forms in the xcompiler backq.lisp file?
     (set-macro-character #\` #'sb!impl::backquote-macro)
     (set-macro-character #\, #'sb!impl::comma-macro)
+
+    (set-dispatch-macro-character #\# #\+ #'she-reader)
+    (set-dispatch-macro-character #\# #\- #'she-reader)
     ;; Control optimization policy.
     (proclaim-target-optimization)
     ;; Specify where target machinery lives.