From 0298e5e08b43a87f97bd1a9050770c37313cdc08 Mon Sep 17 00:00:00 2001 From: Gary King <gwking@metabang.com> Date: Thu, 4 Sep 2008 13:00:44 +0000 Subject: [PATCH] Fix for circularity detection (from Richard Kreuter) --- asdf.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 97bf4434..7d497ee8 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.124 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.125 $ ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <cclan-list@lists.sf.net>. But note first that the canonical @@ -119,7 +119,7 @@ (in-package #:asdf) -(defvar *asdf-revision* (let* ((v "$Revision: 1.124 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.125 $") (colon (or (position #\: v) -1)) (dot (position #\. v))) (and v colon dot @@ -589,7 +589,7 @@ the head of the tree")) (defgeneric component-visiting-p (operation component)) (defmethod component-visiting-p ((o operation) (c component)) - (let ((node (cons o c))) + (let ((node (node-for o c))) (member node (operation-visiting-nodes (operation-ancestor o)) :test 'equal))) -- GitLab