From: Gary King <gwking@metabang.com>
Date: Tue, 10 Jun 2008 15:34:55 +0000 (-0400)
Subject: s/graph-search/graph-search-for-cl-graph/ to keep packages happy
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=218524d40270be582cd1262d1513c3ea5c80be7e

s/graph-search/graph-search-for-cl-graph/ to keep packages happy

darcs-hash:20080610153455-3cc5d-190becd05afdf810a3c2e4b9f50a5de267eccb8a.gz
---

diff --git a/dev/graph.lisp b/dev/graph.lisp
index 663088b..d71ab6c 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -848,15 +848,15 @@ something is putting something on the vertexes plist's
 ;;; ---------------------------------------------------------------------------
 
 ;; also in metatilites
-(defun graph-search (states goal-p successors combiner
-                     &key (state= #'eql) old-states
-                     (new-state-fn #'new-states))
+(defun graph-search-for-cl-graph (states goal-p successors combiner
+				  &key (state= #'eql) old-states
+				  (new-state-fn #'new-states))
   "Find a state that satisfies goal-p.  Start with states,
   and search according to successors and combiner.  
   Don't try the same state twice."
   (cond ((null states) nil)
         ((funcall goal-p (first states)) (first states))
-        (t (graph-search
+        (t (graph-search-for-cl-graph
              (funcall
                combiner
                (funcall new-state-fn states successors state= old-states)
@@ -870,7 +870,7 @@ something is putting something on the vertexes plist's
 (defmethod in-cycle-p ((graph basic-graph) (start-vertex basic-vertex))
   (let ((first-time? t))
     (not (null
-          (graph-search 
+          (graph-search-for-cl-graph 
            (list start-vertex)
            (lambda (v)
              (if first-time?