r9352: fix

[vcs-tree.git] / vcs-tree.asd

diff --git a/vcs-tree.asd b/vcs-tree.asd
index fb73cc8a4767387c89c87a8a17ada906f5e42075..9022540226043ef2cf6276ef7e1492aa0469260f 100644 (file)
--- a/vcs-tree.asd
+++ b/vcs-tree.asd
@@ -2,10 +2,10 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:          vcs-tree.asd
-;;;; Purpose:       ASDF file for vcs-tree to create executable
-;;;; Programmer:    Kevin M. Rosenberg
-;;;; Date Started:  Sep 2003
+;;;; Name:    vcs-tree.asd
+;;;; Purpose: ASDF file for vcs-tree to create executable
+;;;; Author:  Kevin M. Rosenberg
+;;;; Created: Sep 2003
 ;;;;
 ;;;; $Id$
 ;;;; *************************************************************************
@@ -23,8 +23,11 @@
    (make-pathname :name "vcs-tree"
                  :type nil
                  :defaults (component-pathname c))
-   '("package.fasl" "kmrcl-excerpt.fasl" "getopt-excerpt.fasl" "main.fasl"
-     "loader.fasl")
+   (mapcar
+    #'(lambda (n)
+       (make-pathname :name n :type "fasl"
+                      :defaults (car (output-files o c))))
+    '("package" "kmrcl-excerpt" "getopt-excerpt" "main" "loader"))
    :initial-function "RUN"))
 
 (defmethod perform ((o load-op) (c exe-file)) nil)