cleanup; reduce bitrot

[cl-graph.git] / dev / graph-generation.lisp

diff --git a/dev/graph-generation.lisp b/dev/graph-generation.lisp
index 1638596..eed4009 100644 (file)
--- 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)))))
 
 ;;; ---------------------------------------------------------------------------