Split out moptilities and dynamic-classes requirements into system-connections

[cl-graph.git] / dev / dynamic-classes.lisp

diff --git a/dev/dynamic-classes.lisp b/dev/dynamic-classes.lisp
new file mode 100644 (file)
index 0000000..e20f28a
--- /dev/null
+++ b/dev/dynamic-classes.lisp
@@ -0,0 +1,6 @@
+(in-package cl-graph)
+
+(defmethod make-graph ((classes list) &rest args)
+  (let ((name (dynamic-classes:find-or-create-class 'basic-graph classes))) 
+    (apply #'make-instance name args)))
+