From 0038d9bd0318c1025b8edd005f3aaa609a308a57 Mon Sep 17 00:00:00 2001 From: Loic GUEGAN Date: Mon, 28 Jan 2019 18:21:58 +0100 Subject: Add algo --- src/quick-find.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/quick-find.lisp') diff --git a/src/quick-find.lisp b/src/quick-find.lisp index 21bd6d5..edaa7f0 100644 --- a/src/quick-find.lisp +++ b/src/quick-find.lisp @@ -30,7 +30,7 @@ `(= (elt ,network ,n1) (elt ,network ,n2))) (defmacro nunion_ (network n1 n2) - "A consed version of union_" + "A destructive version of union_" `(setq ,network (union_ ,network ,n1 ,n2))) -- cgit v1.2.3