Commit 9de67ba5 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

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
parent 8b6e1f2d
Loading
Loading
Loading
Loading
+3 −6
Original line number Original line Diff line number Diff line
;;; 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
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>.  But note first that the canonical
;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -88,7 +88,7 @@


(in-package #:asdf)
(in-package #:asdf)


(defvar *asdf-revision* (let* ((v "$Revision: 1.65 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.66 $")
			       (colon (or (position #\: v) -1))
			       (colon (or (position #\: v) -1))
			       (dot (position #\. v)))
			       (dot (position #\. v)))
			  (and v colon dot 
			  (and v colon dot 
@@ -471,11 +471,8 @@ system."))
		(not (eql c dep-c)))
		(not (eql c dep-c)))
	   (when (eql force-p t)
	   (when (eql force-p t)
	     (setf (getf args :force) nil))
	     (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
	   (apply #'make-instance dep-o
		  ;:parent o
		  :parent o
		  :original-initargs args args))
		  :original-initargs args args))
	  ((subtypep (type-of o) dep-o)
	  ((subtypep (type-of o) dep-o)
	   o)
	   o)