Posted to tcl by jima at Thu Dec 11 18:41:54 GMT 2014view raw

  1. <!-- { -->
  2. No check needed about *listness* of **l**.
  3.  
  4. <!-- } -->
  5.  
  6. return [llength $l]