X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=vcs-tree.asd;h=9022540226043ef2cf6276ef7e1492aa0469260f;hb=38bf7ebd29aec79a590c3b91661074d34d041fea;hp=a1e22d67dceb67ff786c143b6e021628f5fa64a8;hpb=2a253dfd0359fb1c3118b5e89e50dd281a05f096;p=vcs-tree.git

diff --git a/vcs-tree.asd b/vcs-tree.asd
index a1e22d6..9022540 100644
--- a/vcs-tree.asd
+++ b/vcs-tree.asd
@@ -2,12 +2,12 @@
 ;;;; *************************************************************************
 ;;;; 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: xlunit.asd 7061 2003-09-07 06:34:45Z kevin $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (in-package cl-user)
@@ -23,10 +23,12 @@
    (make-pathname :name "vcs-tree"
 		  :type nil
 		  :defaults (component-pathname c))
-   '("package.fasl" "kmrcl-excerpt.fasl" "getopt-excerpt.fasl" "main.fasl"
-     "loader.fasl")
-   :initial-function "RUN"
-   :muffled-warning t))
+   (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)