dev/dynamic-classes.lisp

   1 (in-package cl-graph)
   2
   3 (defmethod make-graph ((classes list) &rest args)
   4   (let ((name (dynamic-classes:find-or-create-class 'basic-graph classes)))
   5     (apply #'make-instance name args)))
   6