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