From dff2d849cd17e139f645808849c1f80c49d96103 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Fri, 3 Aug 2001 01:13:34 +0000
Subject: [PATCH] package exports: a reasonable list created white space,
 commentary

---
 asdf.lisp | 46 ++++++++++++++++++++++++++++++++++------------
 1 file changed, 34 insertions(+), 12 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index ef9139a1..7f2183e5 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -3,16 +3,34 @@
 
 (defpackage #:asdf
   (:export #:defsystem #:oos #:find-system #:run-shell-command
-	   #:unix-dso #:compile-system #:load-system #:component-pathname
-	   #:module-components #:output-files
-	   #:component #:module #:source-file #:operation
-	   #:c-source-file #:cl-source-file
-	   #:component-pathname  #:perform
-	   #:*component-parent-pathname*
-	   #:operation-error #:system-definition-error #:system-not-found
-	   #:circular-dependency
-	   #:compile-failed #:compile-warned
+	   #:find-component		; miscellaneous
+	   
+	   #:compile-system #:load-system #:test-system-version
+	   #:operation			; operations
+	   
+	   #:output-files #:perform	; operation methods
+	   #:operation-done-p #:explain
+	   
+	   #:component #:module #:source-file 
+	   #:c-source-file #:cl-source-file #:java-source-file
+	   #:module			; components
+	   #:unix-dso
+	   
+	   #:module-components		; component accessors
+	   #:component-pathname
+	   #:component-relative-pathname
+	   #:component-name
+	   #:component-version
+	   #:component-depends-on
+	   
+	   #:*component-parent-pathname* ; variables
+	   #:*central-registry*
+	   
+	   #:operation-error #:compile-failed #:compile-warned
+	   #:system-definition-error #:system-not-found
+	   #:circular-dependency	; errors
 	   ))
+
 (in-package #:asdf)
 
 (proclaim '(optimize (debug 3)))
@@ -115,7 +133,7 @@
 (defclass c-source-file (source-file) ())
 (defclass java-source-file (source-file) ())
 
-;;; XXX we don't need the first of these if we have the second
+;;; XXX we don't need the first of these if we have the second, probably
 (defvar *component-parent-pathname*)
 (defvar *component-parent*)
 
@@ -258,7 +276,7 @@
   ((minimum :initarg :minimum :initform ""
 	    :accessor test-system-version-minimum)))
 
-;;; you may have seen this before ...
+;;; with apologies to christophe rhodes ...
 (defun split (string &optional max (ws '(#\Space #\Tab)))
   (flet ((is-ws (char) (find char ws)))
     (nreverse
@@ -352,7 +370,7 @@
   (list option value))
 
 
-#||
+#|
 source-file components defined with (:file "a-string") or "a-string"
 will have the string parsed into name and type as if it were a
 filename, and an instance of the appropriate source-file subclass
@@ -389,6 +407,10 @@ default constituent type.
 
 ;;; optional extras
 
+;;; run-shell-command functions for other lisp implementations will be
+;;; gratefully accepted, if they do the same thing.  If the docstring
+;;; is ambiguous, send a bug report
+
 #+sbcl
 (defun run-shell-command (control-string &rest args)
   "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and execute the result using a Bourne-compatible shell, with output to *trace-output*.  Returns the shell's exit code."
-- 
GitLab