X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tools-for-build%2Fwxs.lisp;h=bcc928e7387807f1eaf3ac3d2f799038305ef5d9;hb=e2421360f10166ed8573e44a9b2d4478dd3789f4;hp=baf16a1140cc88e4e1c51a7b560c833b56c52981;hpb=359c7f002c22bdfebffb87e2a4c23bab7da4b393;p=sbcl.git

diff --git a/tools-for-build/wxs.lisp b/tools-for-build/wxs.lisp
index baf16a1..bcc928e 100644
--- a/tools-for-build/wxs.lisp
+++ b/tools-for-build/wxs.lisp
@@ -117,7 +117,7 @@
 (defun file-id (pathname)
   (id (format nil "File_~A" (enough-namestring pathname *sbcl-source-root*))))
 
-(defparameter *ignored-directories* '("CVS" ".svn"))
+(defparameter *ignored-directories* '("CVS" ".svn" "test-output"))
 
 (defparameter *pathname-type-abbrevs*
   '(("lisp" . "lsp")
@@ -275,9 +275,10 @@
                   "ConfigurableDirectory" "INSTALLDIR"
                   "Level" 1)
        ("ComponentRef" ("Id" "SBCL_Base"))
-       ("ComponentRef" ("Id" "SBCL_Shortcut"))
        ("Feature" ("Id" "Contrib" "Level" 1 "Title" "Contributed Modules")
                   ,@(ref-all-components))
+       ("Feature" ("Id" "Shortcut" "Level" 1 "Title" "Add Start Menu Shortcut")
+                  ("ComponentRef" ("Id" "SBCL_Shortcut")))
        ("Feature" ("Id" "SetPath" "Level" 1 "Title" "Set Environment Variable: PATH")
                   ("ComponentRef" ("Id" "SBCL_SetPATH")))
        ;; SetHome is still enabled by default (level 1), because SBCL