From: Gary King <gwking@metabang.com>
Date: Sun, 16 Mar 2008 16:46:10 +0000 (-0400)
Subject: cleanup; reduce bitrot
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=704d2802c057c57704629dcd228ead6c5d3c4258

cleanup; reduce bitrot

darcs-hash:20080316164610-3cc5d-ef9c55334e10f41f67d6dc97a11f77a59ffea511.gz
---

diff --git a/cl-graph.asd b/cl-graph.asd
index 13b3e11..04167d7 100644
--- a/cl-graph.asd
+++ b/cl-graph.asd
@@ -46,7 +46,7 @@ instructions."))
 		"website"
 		:components 
 		((:module "source"
-			  :components ((:static-file "index.lml"))))))
+			  :components ((:static-file "index.md"))))))
   :in-order-to ((test-op (load-op :cl-graph-test)))
   :perform (test-op :after (op c)
 		    (funcall
diff --git a/dev/graph-generation.lisp b/dev/graph-generation.lisp
index cf983a0..eed4009 100644
--- a/dev/graph-generation.lisp
+++ b/dev/graph-generation.lisp
@@ -398,7 +398,7 @@
 ;;; ---------------------------------------------------------------------------
 
 (defun poisson-vertex-degree-distribution (z k)
-  (/ (* (expt z k) (expt +e+ (- z)))
+  (/ (* (expt z k) (expt cl-mathstats:+e+ (- z)))
      (factorial k)))
 
 #|
@@ -409,7 +409,8 @@ from this distribution
 ;;; ---------------------------------------------------------------------------
 
 (defun power-law-vertex-degree-distribution (kappa k)
-  (* (- 1 (expt +e+ (- (/ kappa)))) (expt +e+ (- (/ k kappa)))))
+  (* (- 1 (expt cl-mathstats:+e+ (- (/ kappa)))) 
+     (expt cl-mathstats:+e+ (- (/ k kappa)))))
 
 ;;; ---------------------------------------------------------------------------
 
diff --git a/unit-tests/test-graph.lisp b/unit-tests/test-graph.lisp
index aae24be..3e36301 100644
--- a/unit-tests/test-graph.lisp
+++ b/unit-tests/test-graph.lisp
@@ -25,7 +25,7 @@
     (ensure-same (size g) 2)))
 
 (addtest (test-test-vertex)
-  test-1
+  test-2
   (bind ((x (float 2.1d0))
          (y (float 2.1d0))
          (g (make-container 'graph-container :vertex-test #'=)))