including -falign-functions doesn't seem to be
enough to get picolisp to work for sim target.

include the following changes just for the sim
target.

1) in pico.h:

Change evSubr to this: (*(fun)(num(f) >> 2))(x)

2) in main.c, function: boxSubr():

Omit the following check:

   if (num(f) & 3)
      giveup("Unaligned Function");

and return this instead: return (any)((num(f) << 2) + 2);

This is a tip from this discussion on the internet:
http://permalink.gmane.org/gmane.lisp.picolisp.general/2397