cl-variates:next-element)
"CL-GRAPH")
-(use-package (find-package "CL-VARIATES")
- (find-package "CL-GRAPH"))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (use-package (find-package 'cl-variates)
+ (find-package 'cl-graph)))
(in-package metabang.graph)
-(export '(generate-Gnp
- generate-Gnm
- generate-undirected-graph-via-assortativity-matrix
- generate-undirected-graph-via-vertex-probabilities
- generate-multi-group-graph-fixed
- #+Ignore generate-girvan-newman-graph
- generate-scale-free-graph
- generate-assortative-graph-with-degree-distributions
-
- generate-simple-preferential-attachment-graph
- generate-preferential-attachment-graph
-
- generate-acquaintance-network
- generate-acquaintance-network-until-stable
-
- generate-graph-by-resampling-edges
-
- sample-edge
- basic-edge-sampler
- weighted-edge-sampler
- simple-group-id-generator
- simple-group-id-parser
-
- make-degree-sampler
- poisson-vertex-degree-distribution
- power-law-vertex-degree-distribution))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (export '(generate-Gnp
+ generate-Gnm
+ generate-undirected-graph-via-assortativity-matrix
+ generate-undirected-graph-via-vertex-probabilities
+ generate-multi-group-graph-fixed
+ #+Ignore generate-girvan-newman-graph
+ generate-scale-free-graph
+ generate-assortative-graph-with-degree-distributions
+
+ generate-simple-preferential-attachment-graph
+ generate-preferential-attachment-graph
+
+ generate-acquaintance-network
+ generate-acquaintance-network-until-stable
+
+ generate-graph-by-resampling-edges
+
+ sample-edge
+ basic-edge-sampler
+ weighted-edge-sampler
+ simple-group-id-generator
+ simple-group-id-parser
+
+ make-degree-sampler
+ poisson-vertex-degree-distribution
+ power-law-vertex-degree-distribution)))
;;; ---------------------------------------------------------------------------
;;; classes
|#
(in-package metabang.graph)
-(export '(
- print-dot-key-value
- dot-attribute-value
- dot-attributes-mixin
- *dot-graph-attributes*
- ))
-
;;; ---------------------------------------------------------------------------
;
; This outputs the graph to string in accordance with the DOT file format.
(defmethod (setf dot-attribute-value) :before (value (attr symbol) (thing dot-attributes-mixin))
+ (declare (ignore value))
(ensure-valid-dot-attribute attr thing))
(defmethod (setf dot-attribute-value) (value (attr symbol) (thing dot-attributes-mixin))
|#
(in-package common-lisp-user)
-(defpackage "CL-GRAPH"
- (:use "COMMON-LISP" "METATILITIES" "CL-CONTAINERS"
- "METABANG.BIND" "METABANG.MATH")
- (:nicknames "METABANG.GRAPH")
+(defpackage #:cl-graph
+ (:use #:common-lisp #:metatilities #:cl-containers
+ #:metabang.bind #:metabang.math)
+ (:nicknames #:metabang.graph)
(:documentation "CL-Graph is a Common Lisp library for manipulating graphs and running graph algorithms.")
(:export
#:graph-mixing-matrix
#:graph-edge-mixture-matrix
#:assortativity-coefficient
- #:vertex-degree-summary))
\ No newline at end of file
+ #:vertex-degree-summary)
+
+ (:export
+ #:print-dot-key-value
+ #:dot-attribute-value
+ #:dot-attributes-mixin
+ #:*dot-graph-attributes*
+ ))
\ No newline at end of file