1.0.13.13: Actually export RESOLVE-CONFLICT et al from SB-EXT

[sbcl.git] / tools-for-build / wxs.lisp

diff --git a/tools-for-build/wxs.lisp b/tools-for-build/wxs.lisp
index 705e12e..364ef50 100644 (file)
--- a/tools-for-build/wxs.lisp
+++ b/tools-for-build/wxs.lisp
@@ -14,7 +14,7 @@
 (defvar *indent-level* 0)
 
 (defvar *sbcl-source-root*
-  (truename 
+  (truename
    (merge-pathnames (make-pathname :directory (list :relative :up))
                     (make-pathname :name nil :type nil :defaults *load-truename*))))
 
@@ -232,8 +232,13 @@
                             "Name" "PATH"
                             "Part" "first"
                             "Value" "[INSTALLDIR]"))
-            ,(make-extension "fasl" "application/x-lisp-fasl")
-            ,(make-extension "lisp" "text/x-lisp-source")
+            ;; If we want to associate files with SBCL, this
+            ;; is how it's done -- but doing this by default
+            ;; and without asking the user for permission Is
+            ;; Bad. Before this is enabled we need to figure out
+            ;; how to make WiX ask for permission for this...
+            ;; ,(make-extension "fasl" "application/x-lisp-fasl")
+            ;; ,(make-extension "lisp" "text/x-lisp-source")
             ("File" ("Id" "sbcl.exe"
                      "Name" "sbcl.exe"
                      "Source" "../src/runtime/sbcl.exe")