From 71f54e7861ae792ad12b0adb51298634cfe8ef55 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Mon, 1 Dec 2003 03:14:34 +0000
Subject: [PATCH] export input-files and component-system: reported by Walter
 Pelissero

---
 README            | 7 ++++++-
 asdf-install.lisp | 2 +-
 asdf.lisp         | 7 ++++---
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/README b/README
index 44f23c97..639a835d 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-$Id: README,v 1.35 2003/08/05 23:00:32 kevinrosenberg Exp $         -*- Text -*-
+$Id: README,v 1.36 2003/12/01 03:14:34 dan_b Exp $         -*- Text -*-
 
 
 asdf: another system definition facility          
@@ -675,6 +675,11 @@ A "dry run" of an operation can be made with the following form:
 This uses unexported symbols.  What would be a nice interface for this
 functionality?
 
+** patches
+
+Sometimes one wants to 
+
+
 * missing bits in implementation
 
 ** all of the above
diff --git a/asdf-install.lisp b/asdf-install.lisp
index 09e05a0b..2bcd7028 100644
--- a/asdf-install.lisp
+++ b/asdf-install.lisp
@@ -50,7 +50,7 @@ an immediate concern
 (defvar *proxy* (posix-getenv "http_proxy"))
 (defvar *cclan-mirror*
   (or (posix-getenv "CCLAN_MIRROR")
-      "http://ftp.linux.org.uk/pub/lisp/experimental/cclan/"))
+      "http://ftp.linux.org.uk/pub/lisp/cclan/"))
 
 (defun directorify (name)
   ;; input name may or may not have a training #\/, but we know we
diff --git a/asdf.lisp b/asdf.lisp
index ec8565fd..cee39151 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.79 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.80 $
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -48,7 +48,7 @@
 	   #:feature			; sort-of operation
 	   #:version			; metaphorically sort-of an operation
 	   
-	   #:output-files #:perform	; operation methods
+	   #:input-files #:output-files #:perform	; operation methods
 	   #:operation-done-p #:explain
 	   
 	   #:component #:source-file 
@@ -69,6 +69,7 @@
 	   #:component-version
 	   #:component-parent
 	   #:component-property
+	   #:component-system
 	   
 	   #:component-depends-on
 
@@ -106,7 +107,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "$Revision: 1.79 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.80 $")
 			       (colon (or (position #\: v) -1))
 			       (dot (position #\. v)))
 			  (and v colon dot 
-- 
GitLab