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