[cells-cvs] CVS cells

[phildebrandt]

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