Diff of /tools-for-build/wxs.lisp [8d490e] .. [6380ff] Maximize Restore

  Switch to unified view

a/tools-for-build/wxs.lisp b/tools-for-build/wxs.lisp
...
...
92
           (setf guid (make-alien (struct uuid)))
92
           (setf guid (make-alien (struct uuid)))
93
           (co-create-guid guid)
93
           (co-create-guid guid)
94
           (uuid-string guid))
94
           (uuid-string guid))
95
      (free-alien guid))))
95
      (free-alien guid))))
96
96
97
(defun list-all-contribs ()
98
  (loop for flag in (directory "../obj/asdf-cache/*/test-passed.test-report")
99
        collect (car (last (pathname-directory flag)))))
100
101
(defvar *id-char-substitutions* '((#\\ . #\_)
97
(defvar *id-char-substitutions* '((#\\ . #\_)
102
                                  (#\/ . #\_)
98
                                  (#\/ . #\_)
103
                                  (#\: . #\.)
99
                                  (#\: . #\.)
104
                                  (#\- . #\.)))
100
                                  (#\- . #\.)))
105
101
...
...
168
                unless (member (car (last (pathname-directory directory)))
164
                unless (member (car (last (pathname-directory directory)))
169
                               *ignored-directories* :test #'equal)
165
                               *ignored-directories* :test #'equal)
170
                append (collect-components directory))))
166
                append (collect-components directory))))
171
167
172
(defun collect-contrib-components ()
168
(defun collect-contrib-components ()
173
  (loop for contrib in (directory "../obj/asdf-cache/*/test-passed.test-report")
169
  (collect-components "../obj/sbcl-home/contrib/"))
174
        append (collect-components (make-pathname :name nil
175
                                                  :type nil
176
                                                  :version nil
177
                                                  :defaults contrib))))
178
170
179
(defun make-extension (type mime)
171
(defun make-extension (type mime)
180
  `("Extension" ("Id" ,type "ContentType" ,mime)
172
  `("Extension" ("Id" ,type "ContentType" ,mime)
181
    ("Verb" ("Id" ,(format nil "load_~A" type)
173
    ("Verb" ("Id" ,(format nil "load_~A" type)
182
             "Argument" "--core \"[#sbcl.core]\" --load \"%1\""
174
             "Argument" "--core \"[#sbcl.core]\" --load \"%1\""