1.1--- a/core/api/readme.org	Sun Dec 17 23:41:03 2023 -0500
     1.2+++ b/core/api/readme.org	Fri Dec 29 00:43:43 2023 -0500
     1.3@@ -2,5 +2,40 @@
     1.4 #+OPTIONS: ^:nil toc:nil num:nil html-postamble:nil
     1.5 #+EXPORT_FILE_NAME: index
     1.6 
     1.7-This documentation is automatically generated based on the most recent
     1.8-official core build.
     1.9+=TODO=
    1.10+
    1.11+This documentation is automatically generated based on the default
    1.12+branch of the [[https://vc.compiler.company/comp/core][core]].
    1.13+
    1.14+#+begin_src lisp :results silent
    1.15+(ql:quickload :dot)
    1.16+#+end_src
    1.17+
    1.18+#+begin_src lisp :results output replace
    1.19+  (defmethod dot:graph-object-node ((graph (eql 'core-api)) (obj cons))
    1.20+    (make-instance 'dot:node 
    1.21+      :attributes '(:shape :box)))
    1.22+
    1.23+  (defmethod dot:graph-object-points-to ((graph (eql 'core-api)) (obj cons))
    1.24+    (list (car obj)
    1.25+          (make-instance 'dot:attributed
    1.26+            :object (cdr obj)
    1.27+            :attributes '(:weight 3))))
    1.28+
    1.29+  (defmethod graph-object-node ((graph (eql 'core-api)) (obj symbol))
    1.30+    (make-instance 'dot:node
    1.31+      :attributes `(:label ,obj
    1.32+                    :shape :hexagon)))
    1.33+
    1.34+
    1.35+  (dot:print-graph 
    1.36+   (dot:generate-graph-from-roots 'core-api (list)
    1.37+                                  '(:rankdir "LR" :layout "twopi" :labelloc "t")))
    1.38+#+end_src
    1.39+
    1.40+#+RESULTS:
    1.41+: digraph {
    1.42+: rankdir=LR;
    1.43+: layout="twopi";
    1.44+: labelloc="t";
    1.45+: }