projects
/
vcs-tree.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10034: new deb
[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
;;;;
;;;; *************************************************************************
;;;; 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)
(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))
(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)
(defmethod perform ((o load-op) (c exe-file)) nil)