Common Lisp Package: IN-DONUTS

README:

FUNCTION

Public

Undocumented

&& (&REST NODES-EDGES-GRAPHS)

-- (NODE1 NODE2 &REST PATH-ATTRS)

--- (&REST NODES)

--> (&REST NODES)

-< (ORIGIN-NODE &REST NODES)

-> (NODE1 NODE2 &REST EDGE-ATTRS)

->> (ORIGIN-NODE &REST NODES)

<> (LABEL &REST NODE-ATTRS)

==> (&REST NODES)

? (NODE &REST EDGE-ATTRS)

@ (NODE &REST PORTS)

[] (LABEL &REST RECORD-ATTRS)

B (&REST attrs-tag-body-210)

BR (&REST attrs-tag-body-301)

DOT-OUTPUT (GRAPH)

DOT-PPRINT (GRAPH)

FONT (&REST attrs-tag-body-184)

HR (&REST attrs-tag-body-314)

I (&REST attrs-tag-body-197)

IMG (&REST attrs-tag-body-340)

O (&REST NODES)

RANK (POS &REST NODES)

SUB (&REST attrs-tag-body-236)

SUP (&REST attrs-tag-body-249)

TABLE (&REST attrs-tag-body-262)

TD (&REST attrs-tag-body-288)

TR (&REST attrs-tag-body-275)

U (&REST attrs-tag-body-223)

VR (&REST attrs-tag-body-327)

~ (&REST NODES)

Private

1ST (LIST)

Return the 1st object in a list or NIL if the list is empty.

2ND (LIST)

Return the 2nd object in a list or NIL if there is no 2nd object.

Undocumented

CAPITAL-VAL? (X)

CLUSTER? (X)

COMPASS-PORT? (X)

CONC1 (LST ELT)

CONVERGE-EDGE? (X)

DECLARE-NODE (NODE)

DECLARED? (NODE)

EDGE? (X)

ESCAPE-ATTRS (ALST)

ESCAPE-PORT (LABEL)

ESCAPE-URL-ATTR (URL-ATTR)

FILE-TO-STRING (FILE)

FIND-PORT (LABEL)

GRAPH? (X)

LAST1 (LST)

MAKE-CLUSTER (CLUSTER-ATTRS &REST NODES-EDGES-GRAPHS)

MAKE-DOT-FILE (GRAPH &OPTIONAL (FILE-NAME DONUTS-DOT-TMP.dot) (PPRINT? NIL))

MAKE-GRAPH (GRAPH-ATTRS &REST NODES-EDGES-GRAPHS)

MAKE-IMAGE (DOT-FILE LAYOUT IMAGE-FILE)

MAKE-SESAME (TAG TREASURE)

MAKE-TAG (NAME PAIR? &REST BODY)

NAME-OF (NODE)

NODE? (X)

OPEN-SESAME (SESAME)

OUTPUT-BUFF (BUFF)

OUTPUT-NODE (NODE)

OUTPUT-PPRINT (DOT-FILE)

OUTPUT-SESAME (SESAME)

PATH? (X)

PENETRATE-EDGE? (X)

PENETRATE-PATH? (X)

PORT-EXIST? (NODE PORT)

PORT-PROC1 (NODE PORTS)

PORT-PROC2 (NODE PORTS)

PRE-NODE? (X)

RADIATE-EDGE? (X)

RADIATE-PATH? (X)

RANK-POS? (X)

RECORD? (X)

SCAN-BODY (BODY)

SESAME? (X)

SHOW-IMAGE (IMAGE-FILE)

STR (&REST STRINGS)

STR->KEY (STRING)

TAG? (X)

UPPER-VAL? (X)

URL-ATTR? (X)

~& (&OPTIONAL (STREAM *STANDARD-OUTPUT*))

MACRO

Public

Undocumented

$ ((&KEY (OUTFILE DONUTS-TMP.png FILE?) (LAYOUT DOT) (SHOW T)) GRAPH)

$$ (GRAPH)

& ((&REST GRAPH-ATTRS) &BODY NODES-EDGES-GRAPHS)

[&] ((&REST GRAPH-ATTRS) &BODY NODES-EDGES-GRAPHS)

HTML (&REST BODY)

WITH-EDGE ((&REST EDGE-ATTRS) &BODY BODY)

WITH-NODE ((&REST NODE-ATTRS) &BODY BODY)

Private

^ (LAMBDALIST &REST BODY)

Abbrev: (^ (x) body) <-> (lambda (x) body)

Undocumented

AIF (TEST THEN &OPTIONAL ELSE)

ANOTHER-NAME (ALIAS NAME)

ANOTHER-NAMES (&REST NAMES)

AWHEN (TEST &BODY BODY)

DEF-TAG (TAG-NAME &OPTIONAL (PAIR? T))

DEF-TAGS (PAIR? NAMES)

MVBIND (VARS VALUE-FORM &BODY BODY)

UNWIND-DELFILE ((FILE) &BODY BODY)

WITH-GENSYMS (SYMS &BODY BODY)

GENERIC-FUNCTION

Private

Undocumented

MAKE-INST (CLASS &REST INITARGS &ALLOW-OTHER-KEYS)

OUTPUT-EDGE (EDGE)

OUTPUT-SUBGRAPH (GRAPH)

VARIABLE

Private

Undocumented

*CAPITAL-VALS*

*COMPASS*

*DECLARED*

*DIRECTED?*

*RANK-POS*

*UPPER-VALS*

*URL-ATTRS*

*VIEWER*

*WITH-EDGE-CONTEXT*

*WITH-NODE-CONTEXT*

CLASS

Private

Undocumented

CLUSTER

CONVERGE-EDGE

EDGE

GRAPH

NODE

NORMAL-EDGE

NORMAL-PATH

PATH

PENETRATE-EDGE

PENETRATE-PATH

RADIATE-EDGE

RADIATE-PATH

RECORD

SESAME

TAG