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