Common Lisp Package: DCM

DCM is a very simple in-memory object prevalence system.

README:

FUNCTION

Public

Undocumented

DIRECTORY-FACTORY (STRATEGY BTREECLASSNAME TYPE REPOS)

GET-DIRECTOR-BY-CLASS (CLS)

HASH-KEYS-REDUCE (FUN HT &OPTIONAL INIT)

HASH-VALUES-REDUCE (FUN HT &OPTIONAL INIT)

INIT-ELEPHANT-CONTROLLERS (DCM-DEFAULT)

RANDOMIZE-SLOT-VALUE (S MO)

RELEASE-ELEPHANT-CONTROLLERS

RUN-ALL-DCM-TESTS

TEST-EX-DIRECTOR

TEST-RANDOMIZE-MANAGED-OBJECT

Private

Undocumented

INSURE-MUTEX (NAME)

MANY-THREADS

RECONNECT-DB

TEST-DELETION-FROM-GEN

TEST-NAMING-UNIQUENESS

TEST-RETIREMENT

MACRO

Public

Undocumented

INIT-DIRECTOR (CLS DIRCLASS &REST X)

Private

Undocumented

DEFMETHODEX (MNAME DIR ARGS &BODY BODY)

INIT-DIRECTOR-NOLOAD (CLS DIRCLASS &REST X)

GENERIC-FUNCTION

Public

PROMOTE (GENDIR KEY)

Decrement the generation number of a object, making number is properly stored there.

RETIRE (GENDIR KEY)

Increment the generation number of a object, making number is properly stored there.

Undocumented

DCM-EQUAL (A B)

DELETE-ALL-OBJECTS-FROM-DIRECTOR (DIR TP)

DELETE-OBJ (DIRECTOR KEY)

FIND-GENERATION (GENDIR KEY)

GET-ALL-CUR-OBJECTS (DIR)

GET-ALL-OBJECTS (DIRECTOR)

GET-ALL-OBJECTS-GEN (DIR GEN)

GET-ALL-OBJECTS-OWNED-BY (DIR O)

GET-ALL-OBJECTS-TYPE (DIR TP)

GET-UNUSED-KEY-VALUE (DIR)

GET-USER-DEFINED-SLOTS (MO)

GET-VALUES (A)

INITIALIZE (DIR CNAME BTREECLASSNAME)

INITIALIZE-BTREE (DIR C)

KEY-EQUAL (A B)

LOAD-ALL (DIR)

LOOKUP-OBJ (DIRECTOR OBJ)

MAX-KEY (A B)

MAX-KEY-VALUE (A B)

MO-EQUAL (A B)

RANDOMIZE-MANAGED-OBJECT (MO)

REGISTER-MANY-RANDOM (DIR N)

REGISTER-OBJ (DIRECTOR MANAGED-OBJECT)

TEST-GET-UNUSED-KEY-VALUE (DIR)

TM-GET-ALL-OBJECTS (OB)

TM-REGISTER-THEN-LOOKUP (OB)

TM-TEST-ELEPHANT (OB)

UNUSED-KEY (OB)

Private

Undocumented

GET-ALL-OBJECTS-TYPE-XXXX (DIR TP)

GET-UNUSED-KEY-VALUE-NAKED (DIR)

LOOKUP-OBJ-AUX (DIR MID)

LOOKUP-OBJ-GEN (DIR ID GEN)

LOOKUP-OBJ-KEY (DIRECTOR KEY)

SLOT-ACCESSOR

Public

Undocumented

K (OBJECT)

SETFK (NEW-VALUE OBJECT)

MID (OBJECT)

SETFMID (NEW-VALUE OBJECT)

MTYPE-OF (OBJECT)

SETFMTYPE-OF (NEW-VALUE OBJECT)

Private

Undocumented

CD (OBJECT)

SETFCD (NEW-VALUE OBJECT)

FINAL-STRATEGY (OBJECT)

SETFFINAL-STRATEGY (NEW-VALUE OBJECT)

STRATEGY (OBJECT)

SETFSTRATEGY (NEW-VALUE OBJECT)

SUBDIRS (OBJECT)

SETFSUBDIRS (NEW-VALUE OBJECT)

VARIABLE

Public

Undocumented

*BASIC-STORE-CONTROLLER*

*DCM-DEFAULT*

*DEF-STORE-NAME*

*DIR-CAT*

*DIR-STRATEGIES*

*ELEPHANT-CAT*

*HASH-CAT*

*POSTGRES-SPEC*

*SLEEPYCAT-HOME*

Private

Undocumented

*A-MUTEX*

*DCM-MUTEXES*

*DIRECTOR-CLASS-MAP*

CLASS

Public

GENDIR

This is an example documentation string.

Undocumented

DIR-TEST

DIRECTOR

ELEPHANT-DIR-TEST

ELEPHANT-DIRECTOR

EXOBJECT

HASH-DIR-TEST

HASH-DIRECTOR

HASH-ELE-DIR-TEST

HASH-ELE-DIRECTOR

KEY

MANAGED-HANDLE

MANAGED-OBJECT

Private

Undocumented

EXOBJECTDIRECTOR

TESTGENDIR

USEROBJECT