;;;; *************************************************************************
;;;; 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)
(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)