X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-generation.lisp;h=eed4009f6873884571893a3f50bb432dcfc1d7a0;hb=f54f262647ae0d4c98e87d16ad81ebe130da4f3f;hp=1638596a32cf16589140e1ed297ce4c689ab2de9;hpb=a196e72eb584440a594f0665ff5c97037ce4cf70;p=cl-graph.git

diff --git a/dev/graph-generation.lisp b/dev/graph-generation.lisp
index 1638596..eed4009 100644
--- a/dev/graph-generation.lisp
+++ b/dev/graph-generation.lisp
@@ -1,4 +1,4 @@
-(in-package metabang.graph)
+(in-package #:metabang.graph)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(generate-gnp
@@ -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)))))
 
 ;;; ---------------------------------------------------------------------------