length をジェネリックにした。

:g length dup type-of ;
:m length (( list ))   erlang:length/1 ;
:m length (( tuple ))  erlang:size/1 ;
:m length (( binary )) erlang:size/1 ;
:m length (( map ))    maps:size/1 ;
( point{ 'x 1 'y 10 } point{ 'x 2 'y 20 } + point{ 'x 3 'y 30 } == ) assert