commit 9c5318d587b6b0bcb0b7056302248c87a9b631e4 parent ed6eed1acec1952c65b8d1424253c5c3f082215f Author: Alexander Burger <abu@software-lab.de> Date: Tue, 22 Jan 2013 10:40:53 +0100 '+Hook2' index prefix class Diffstat:
| M | CHANGES | | | 1 | + |
| M | lib/db.l | | | 18 | +++++++++++++++++- |
2 files changed, 18 insertions(+), 1 deletion(-)
diff --git a/CHANGES b/CHANGES @@ -1,4 +1,5 @@ * DDmmm13 picoLisp-3.1.2 + '+Hook2' index prefix class Password hashing 'usec' optional 'flg' argument JavaScript 'rd' in "lib/plio.js" diff --git a/lib/db.l b/lib/db.l @@ -1,4 +1,4 @@ -# 18jan13abu +# 22jan13abu # (c) Software Lab. Alexander Burger # *Dbs *Jnl *Blob upd @@ -400,6 +400,22 @@ (extra Obj Old New Hook) ) +# +Index prefix +(class +Hook2) + +(dm rel> (Obj Old New Hook) + (extra Obj Old New *DB) + (extra Obj Old New Hook) ) + +(dm lose> (Obj Val) + (extra Obj Val *DB) + (extra Obj Val Hook) ) + +(dm keep> (Obj Val) + (extra Obj Val *DB) + (extra Obj Val Hook) ) + + # (+Blob) (class +Blob +relation)