function pushd(d)
% pushd: Push directory on directory stack
% pushd(dirname):	push given directory
% pushd				push current directory
global DirStack
if nargin<1, d=pwd; end
DirStack={d, DirStack};
