X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;h=60864ff9988ea8a09eddf5ad0e73abe566af74a5;hb=6dae43e4ee011ea0ef4fedeae7c2a492823a9812;hp=f05dfcc5a3488dd97b9bc7d6f2a09639c9b1482d;hpb=80af22e39e0787769c4c9f455bb1d2c95e2343b5;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index f05dfcc..60864ff 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -753,11 +753,10 @@ something is putting something on the vertexes plist's
        (setf (tag vertex) nil)
        (traverse-elements-helper vertex style marker fn)))))
 
-
 ;; also in metatilites
 (defun graph-search-for-cl-graph (states goal-p successors combiner
 				  &key (state= #'eql) old-states
-				  (new-state-fn #'new-states))
+				  (new-state-fn (error "argument required")))
   "Find a state that satisfies goal-p.  Start with states,
   and search according to successors and combiner.  
   Don't try the same state twice."