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

diff --git a/vcs-tree.asd b/vcs-tree.asd
index 41a3034..9022540 100644
--- a/vcs-tree.asd
+++ b/vcs-tree.asd
@@ -2,15 +2,15 @@
 ;;;; *************************************************************************
 ;;;; 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 vcs-tree-system)
+(in-package cl-user)
 (defpackage vcs-tree-system (:use #:cl #:asdf))
 (in-package vcs-tree-system)
 
@@ -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)