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