projects
/
cl-graph.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a3062aa
)
Remove uses of nilf and tf
author
Gary King
<gwking@metabang.com>
Tue, 10 Jun 2008 12:58:45 +0000
(08:58 -0400)
committer
Gary King
<gwking@metabang.com>
Tue, 10 Jun 2008 12:58:45 +0000
(08:58 -0400)
darcs-hash:
20080610125845
-3cc5d-
c56e65bf80196ba23d9f100d335d13f3ede3bb84
.gz
dev/graph.lisp
patch
|
blob
|
history
diff --git
a/dev/graph.lisp
b/dev/graph.lisp
index
20197f5
..
e851b1a
100644
(file)
--- 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)
(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)
(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)
(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
(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)
thing
(lambda (vertex)
(when (eq (tag vertex) marker)
- (nilf (tag vertex))
+ (setf (tag vertex) nil)
(traverse-elements-helper vertex style marker fn)))))
;;; ---------------------------------------------------------------------------
(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?
(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))
(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
&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
(iterate-children current
(lambda (child)
(cond