From 9de67ba581462f47bc1fc1256319bcdac530463a Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Mon, 17 Mar 2003 18:57:11 +0000
Subject: [PATCH] Bug fix: When we get to a file that needs recompilation,
 usually we set :forced on operation-ancestor, to ensure that subsequent
 components are rebuilt.  However, touching a random file in db-sockets is not
 usually a convincing reason to rebuild all of araneida and all of cliki, so
 when we do this cross-system leap, we remove the parent link

Unfortunately, that breaks the what-have-we-done-so-far information,
which is also kept in the ancestor operation.  So, let's not
do that any more.  Compilations will be slower than intended, but faster than
the infinite circular compilation behaviour that users of 1.65 observed
---
 asdf.lisp | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index e6df4286..b6c3f0af 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.65 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.66 $
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -88,7 +88,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "$Revision: 1.65 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.66 $")
 			       (colon (or (position #\: v) -1))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -471,11 +471,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)
-- 
GitLab