r9746: new deb version

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

diff --git a/vcs-tree.asd b/vcs-tree.asd
index 41a30349d9b77b4c4a2ca6d76868ff209746af4c..9022540226043ef2cf6276ef7e1492aa0469260f 100644 (file)
--- 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)