Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv5160

Modified Files: md-utilities.lisp Log Message: v1.1

--- /project/cells/cvsroot/cells/md-utilities.lisp 2008/04/17 13:39:00 1.16 +++ /project/cells/cvsroot/cells/md-utilities.lisp 2008/04/17 13:52:57 1.17 @@ -138,7 +138,7 @@ (defmethod store-lookup (key (store cells-store) &optional default) (gethash key (data store) default))

-(defmethod store-remove (key (store cells-hash-store)) +(defmethod store-remove (key (store cells-store)) (with-store-item (key store) (remhash key (data store))))

@@ -225,4 +225,22 @@ (foo 1) (foo+1 2) (bar 2) - (bar-1 1)))) \ No newline at end of file + (bar-1 1)) + + (with-assert-observers ("deleting foo" foo foo+1) + (store-remove :foo store)) + + (assert-values ("deleted foo") + (foo 'nothing) + (foo+1 'nothing) + (bar 2) + (bar-1 1)) + + (with-assert-observers ("deleting bar" bar bar-1) + (store-remove :bar store)) + + (assert-values ("deleted bar") + (foo 'nothing) + (foo+1 'nothing) + (bar 'nothing) + (bar-1 'nothing)))) \ No newline at end of file