Let's assume we want to see the code of "ifactor" 
that is in the "numtheory" package. Type:

with(numtheory);
interface(verboseproc=2);
eval(ifactor);


To check the available packages type:  ?package

To see the functions in a package called "nameofpackage", 
type:  readlib(nameofpackage)

Enjoy!!!