Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/contrib/asdf
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv22500/contrib/asdf

Modified Files:
	asdf.lisp 
Log Message:
1.0.39.19: asdf2 merge from upstream

 * replaced asdf.lisp with asdf.lisp 2.102

 * wrap logical pathname in sb-rotate-byte with #.(logical-pathname ...)


Index: asdf.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/asdf/asdf.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- asdf.lisp	27 Jun 2009 09:28:16 -0000	1.30
+++ asdf.lisp	22 Jun 2010 17:02:25 -0000	1.31
@@ -1,10 +1,10 @@
-;;; This is asdf: Another System Definition Facility.
-;;; hash - $Format:%H$
+;;; -*- mode: common-lisp; package: asdf; -*-
+;;; This is ASDF: Another System Definition Facility.
 ;;;
-;;; Feedback, bug reports, and patches are all welcome: please mail to
-;;; <asdf-devel@...>.  But note first that the canonical
-;;; source for asdf is presently on common-lisp.net at
-;;; <URL:http://common-lisp.net/project/asdf/>
+;;; Feedback, bug reports, and patches are all welcome:
+;;; please mail to <asdf-devel@...>.
[...3948 lines suppressed...]
-   *central-registry*)
+#+allegro
+(eval-when (:compile-toplevel :execute)
+  (when (boundp 'excl:*warn-on-nested-reader-conditionals*)
+    (setf excl:*warn-on-nested-reader-conditionals* *acl-warn-save*)))
 
-  (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*)
-  (pushnew 'contrib-sysdef-search *system-definition-search-functions*))
+(pushnew :asdf *features*)
+(pushnew :asdf2 *features*)
 
-(if *asdf-revision*
-    (asdf-message ";; ASDF, revision ~a" *asdf-revision*)
-    (asdf-message ";; ASDF, revision unknown; possibly a development version"))
+(provide :asdf)
 
-(provide 'asdf)
+;;; Local Variables:
+;;; mode: lisp
+;;; End: