486 function! s:Push(el, sname)  argument
487 	if !s:EmptystackP(a:sname)
488 		exe 'let '.a:sname."=a:el.' '.".a:sname
490 		exe 'let '.a:sname.'=a:el'
494 function! s:EmptystackP(sname)  argument
495 	exe 'let stack='.a:sname
503 function! s:Instack(el, sname)  argument
504 	exe 'let stack='.a:sname
515 function! s:Peekstack(sname)  argument
517 	exe 'let stack='.a:sname
523 function! s:Pop(sname)  argument
524 	if s:EmptystackP(a:sname)
527 	exe 'let stack='.a:sname
530 	exe 'let '.a:sname.'=strpart(stack, loc+1, strlen(stack))'
536 function! s:Clearstack(sname)  argument
537 	exe 'let '.a:sname."=''"