From a6bbd850d6392387184d32ffecb83d513a76395c Mon Sep 17 00:00:00 2001 From: Gary King Date: Tue, 10 Jun 2008 08:58:45 -0400 Subject: [PATCH] Remove uses of nilf and tf darcs-hash:20080610125845-3cc5d-c56e65bf80196ba23d9f100d335d13f3ede3bb84.gz --- dev/graph.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/dev/graph.lisp b/dev/graph.lisp index 20197f5..e851b1a 100644 --- a/dev/graph.lisp +++ b/dev/graph.lisp @@ -817,7 +817,7 @@ something is putting something on the vertexes plist's (defmethod traverse-elements-helper ((thing basic-vertex) (style (eql :depth)) marker fn) (when (eq (tag thing) marker) - (nilf (tag thing)) + (setf (tag thing) nil) (iterate-children thing (lambda (vertex) @@ -829,7 +829,7 @@ something is putting something on the vertexes plist's (defmethod traverse-elements-helper ((thing basic-vertex) (style (eql :breadth)) marker fn) (when (eq (tag thing) marker) - (nilf (tag thing)) + (setf (tag thing) nil) (funcall fn thing)) (iterate-neighbors @@ -842,7 +842,7 @@ something is putting something on the vertexes plist's thing (lambda (vertex) (when (eq (tag vertex) marker) - (nilf (tag vertex)) + (setf (tag vertex) nil) (traverse-elements-helper vertex style marker fn))))) ;;; --------------------------------------------------------------------------- @@ -854,7 +854,7 @@ something is putting something on the vertexes plist's (list start-vertex) (lambda (v) (if first-time? - (nilf first-time?) + (setf first-time? nil) (eq (find-vertex graph v) start-vertex))) (lambda (v) (child-vertexes v)) @@ -877,7 +877,7 @@ something is putting something on the vertexes plist's &optional (marked (make-container 'simple-associative-container)) (previous nil)) (block do-it - (tf (item-at-1 marked current)) + (setf (item-at-1 marked current) t) (iterate-children current (lambda (child) (cond -- 1.7.10.4