X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=unit-tests%2Ftest-graph.lisp;h=1a64abc3911d7c29344b88e9bee188f978af8c7d;hb=000a31e8bb29016b2f5c6f41146bca3385cecf99;hp=6e95fe0e32fe74bbdcf1235528c88429b540438c;hpb=44a5cff657760ffb78e34aa688f209283d899236;p=cl-graph.git

diff --git a/unit-tests/test-graph.lisp b/unit-tests/test-graph.lisp
index 6e95fe0..1a64abc 100644
--- a/unit-tests/test-graph.lisp
+++ b/unit-tests/test-graph.lisp
@@ -16,9 +16,9 @@
 
 (addtest (test-test-vertex)
   test-1
-  (metatilities:bind ((x (float 2.1d0))
-                     (y (float 2.1d0))
-                     (g (make-container 'graph-container)))
+  (let ((x (float 2.1d0))
+	(y (float 2.1d0))
+	(g (make-container 'graph-container)))
     (add-vertex g (+ x y))
     (add-vertex g (+ x y))
     
@@ -26,7 +26,7 @@
 
 (addtest (test-test-vertex)
   test-2
-  (bind ((x (float 2.1d0))
+  (let ((x (float 2.1d0))
          (y (float 2.1d0))
          (g (make-container 'graph-container :vertex-test #'=)))
     (add-vertex g (+ x y))