===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/usage.sm1,v
retrieving revision 1.8
retrieving revision 1.12
diff -u -p -r1.8 -r1.12
--- OpenXM/src/kan96xx/Kan/usage.sm1	2004/09/10 22:21:27	1.8
+++ OpenXM/src/kan96xx/Kan/usage.sm1	2005/06/15 02:22:51	1.12
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Kan/usage.sm1,v 1.7 2003/06/26 13:00:11 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Kan/usage.sm1,v 1.11 2004/09/17 00:47:09 takayama Exp $
 %% usage.sm1
 %%  [(key word)
 %%    [(   )
@@ -273,6 +273,9 @@ def
 [(join) 
  [(list1 list2 join list3)
   (Ex.  [1 2] [3 [4 (ab)]] join  [1 2 3 [4 (ab)]])
+  (Note: Join should use for arrays. It works for list too,)
+  (      but it does not copy cells. cf. cons)
+  (      So, it might generate looped lists or destroy other lists.)
  ]
 ] putUsages
 
@@ -318,5 +321,14 @@ def
 ]] putUsages
 [(toVectors2)
  [(Remained for the compatibility. cf. toVectors)
+]] putUsages
+
+[(extension-examples)
+ [
+   $putAttributeList$
+   $  [(putAttributeList) [[(x+y-1) (x-y-2)] (x,y)]  $
+   $                      [(needSyz) 1 (sugar) 1]] extension /myarg set $
+   $  [(getAttributeList) myarg] extension :: $
+   $  [(getAttribute) myarg (sugar)] extension :: $
 ]] putUsages