cleanup; reduce bitrot

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

diff --git a/cl-graph.asd b/cl-graph.asd
index 13b3e11..04167d7 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 #'=)))