asdf patch #1 - mostly cosmetic

This patch

* updates the copyright
* unexports test-system-version
* moves the defgeneric for component-visited-p prior to the function's  
first use.


Index: asdf.lisp
===================================================================
RCS file: /cvsroot/cclan/asdf/asdf.lisp,v
retrieving revision 1.118
diff -c -r1.118 asdf.lisp
*** asdf.lisp	29 May 2008 18:09:36 -0000	1.118
--- asdf.lisp	18 Jun 2008 01:27:01 -0000
***************
*** 13,19 ****
   ;;; is the latest development version, whereas the revision tagged
   ;;; RELEASE may be slightly older but is considered `stable'

! ;;; Copyright (c) 2001-2007 Daniel Barlow and contributors
   ;;;
   ;;; Permission is hereby granted, free of charge, to any person  
obtaining
   ;;; a copy of this software and associated documentation files (the
--- 13,19 ----
   ;;; is the latest development version, whereas the revision tagged
   ;;; RELEASE may be slightly older but is considered `stable'

! ;;; Copyright (c) 2001-2008 Daniel Barlow and contributors
   ;;;
   ;;; Permission is hereby granted, free of charge, to any person  
obtaining
   ;;; a copy of this software and associated documentation files (the
***************
*** 41,47 ****
     (:export #:defsystem #:oos #:operate #:find-system #:run-shell- 
command
              #:system-definition-pathname #:find-component ;  
miscellaneous

!            #:compile-op #:load-op #:load-source-op #:test-system- 
version
              #:test-op
              #:operation		 ; operations
              #:feature		 ; sort-of operation
--- 41,47 ----
     (:export #:defsystem #:oos #:operate #:find-system #:run-shell- 
command
              #:system-definition-pathname #:find-component ;  
miscellaneous

!            #:compile-op #:load-op #:load-source-op
              #:test-op
              #:operation		 ; operations
              #:feature		 ; sort-of operation
***************
*** 537,542 ****
--- 537,544 ----
                     :parent o :original-initargs args args)))))


+ (defgeneric component-visited-p (operation component))
+
   (defgeneric visit-component (operation component data))

   (defmethod visit-component ((o operation) (c component) data)
***************
*** 544,551 ****
       (push (cons (node-for o c) data)
             (operation-visited-nodes (operation-ancestor o)))))

- (defgeneric component-visited-p (operation component))
-
   (defmethod component-visited-p ((o operation) (c component))
     (assoc (node-for o c)
            (operation-visited-nodes (operation-ancestor o))
--- 546,551 ----

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM





-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php