A Common LISP Optimization Rig