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

diff --git a/vcs-tree.asd b/vcs-tree.asd
index f300563..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,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)