Commit 71f54e78 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

export input-files and component-system: reported by Walter Pelissero

parent f77ba005
Loading
Loading
Loading
Loading
+6 −1
Original line number Diff line number Diff line
$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
+1 −1
Original line number Diff line number Diff line
@@ -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
+4 −3
Original line number Diff line number Diff line
;;; 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