makeCmdArray :: CState -> TclM (IOArray Int (Maybe TclCmd, CmdName))
makeCmdArray (CState _ m) = do
   let size = M.size m
   liftIO $ newListArray (0,size-1) (map (\k -> (Nothing,k))(M.keys m))
makeCmdArray :: CState -> TclM (IOArray Int (Maybe TclCmd, CmdName))
makeCmdArray (CState _ m) = do
   let size = M.size m
   liftIO $ newListArray (0,size-1) (map (\k -> (Nothing,k))(M.keys m))
makeCmdArray (CState _ m) = do
   let size = M.size m
   liftIO $ newListArray (0,size-1) (map (\k -> (Nothing,k))(M.keys m))