[asdf-devel] [PATCH] *defined-systems* docstring

[rpgoldman at sift.info]

From: Robert P. Goldman <rpgoldman at real-time.com>

---
 asdf.lisp |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 6cca99b..4660260 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -588,7 +588,12 @@ and NIL NAME and TYPE components"
 (defun make-defined-systems-table ()
   (make-hash-table :test 'equal))
 
-(defvar *defined-systems* (make-defined-systems-table))
+(defvar *defined-systems* (make-defined-systems-table)
+  "This is a hash table whose keys are strings, being the
+names of the systems, and whose values are pairs, the first
+element of which is a universal-time indicating when the
+system definition was last updated, and the second element
+of which is a system object.")
 
 (defun coerce-name (name)
   (typecase name
-- 
1.6.5.3