changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > demo / annotate examples/db/tao.lisp

changeset 37: c6d0a37a046a
parent: f54f7cc7458b
child: 1ef551e24009
author: ellis <ellis@rwest.io>
date: Sun, 24 Dec 2023 19:24:39 -0500
permissions: -rw-r--r--
description: mini-redis and vegadat
37
c6d0a37a046a mini-redis and vegadat
ellis <ellis@rwest.io>
parents: 35
diff changeset
1 
 ;;; examples/db/tao.lisp --- Common Lisp implementation of the TAO data model
35
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
2 
 
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
3 
 ;; https://research.facebook.com/publications/tao-facebooks-distributed-data-store-for-the-social-graph/
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
4 
 
37
c6d0a37a046a mini-redis and vegadat
ellis <ellis@rwest.io>
parents: 35
diff changeset
5 
 ;; a minimal Lisp implementation of TAO.
c6d0a37a046a mini-redis and vegadat
ellis <ellis@rwest.io>
parents: 35
diff changeset
6 
 
35
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
7 
 ;;; Code:
37
c6d0a37a046a mini-redis and vegadat
ellis <ellis@rwest.io>
parents: 35
diff changeset
8 
 (defpackage :examples/tao
35
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
9 
   (:use :cl :std :cli :rdb)
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
10 
   (:export :main))
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
11 
 
37
c6d0a37a046a mini-redis and vegadat
ellis <ellis@rwest.io>
parents: 35
diff changeset
12 
 (in-package :examples/tao)
35
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
13 
 
f54f7cc7458b cl-simple-example implemented, init db/tao.lisp
ellis <ellis@rwest.io>
parents:
diff changeset
14 
 (defmain ())