X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fasdf%2Fasdf.lisp;h=4f7aff78f645102ff30559f8504e296e2ab72961;hb=adb5c6378e95e9acf4e18a01fe744f8b52f8d560;hp=9f58c2be79cf3e48aab6e783015b6478768ca8eb;hpb=e8b1d24b3ec0d3549a41a371b3f16b7415020e1f;p=sbcl.git

diff --git a/contrib/asdf/asdf.lisp b/contrib/asdf/asdf.lisp
index 9f58c2b..4f7aff7 100644
--- a/contrib/asdf/asdf.lisp
+++ b/contrib/asdf/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  1.65
+;;; This is asdf: Another System Definition Facility.  1.68
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -43,6 +43,7 @@
 	   #:hyperdocumentation #:hyperdoc
 	   
 	   #:compile-op #:load-op #:load-source-op #:test-system-version
+	   #:test-op
 	   #:operation			; operations
 	   #:feature			; sort-of operation
 	   #:version			; metaphorically sort-of an operation
@@ -88,7 +89,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "1.65")
+(defvar *asdf-revision* (let* ((v "1.68")
 			       (colon (or (position #\: v) -1))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -471,11 +472,8 @@ system."))
 		(not (eql c dep-c)))
 	   (when (eql force-p t)
 	     (setf (getf args :force) nil))
-	   ;; note we lose the parent slot, because we don't want
-	   ;; forced to propagate backwards either (changes in depended-on
-	   ;; systems shouldn't force recompilation of the depending system)
 	   (apply #'make-instance dep-o
-		  ;:parent o
+		  :parent o
 		  :original-initargs args args))
 	  ((subtypep (type-of o) dep-o)
 	   o)
@@ -769,6 +767,10 @@ system."))
 	     (component-property c 'last-loaded-as-source)))
       nil t))
 
+(defclass test-op (operation) ())
+
+(defmethod perform ((operation test-op) (c component))
+  nil)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; invoking operations
@@ -1021,18 +1023,18 @@ output to *trace-output*.  Returns the shell's exit code."
 	(provide name))))
 
   (pushnew
-   (merge-pathnames "systems/"
-		    (truename (sb-ext:posix-getenv "SBCL_HOME")))
+   '(merge-pathnames "systems/"
+     (truename (sb-ext:posix-getenv "SBCL_HOME")))
    *central-registry*)
   
   (pushnew
-   (merge-pathnames "site-systems/"
- 		    (truename (sb-ext:posix-getenv "SBCL_HOME")))
+   '(merge-pathnames "site-systems/"
+     (truename (sb-ext:posix-getenv "SBCL_HOME")))
    *central-registry*)
   
   (pushnew
-   (merge-pathnames ".sbcl/systems/"
- 		    (user-homedir-pathname))
+   '(merge-pathnames ".sbcl/systems/"
+     (user-homedir-pathname))
    *central-registry*)
   
   (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))