(cfasl 'ch8auxp.o '_pfoo 'pfoo "-lpc") (putdisc (getd 'pfoo) 1) (array test flonum-block 2) (store (test 0) 2.22) (store (test 1) 3.333)