Well, that one was satisfyingly straightforward. Known suboptimalities:
* (1+ most-positive-fixnum)
-100000000000000000*,,,*')*1207959552 * (compile nil '(lambda () 1))
INTERNAL ERROR * (gc) fatal error encountered in SBCL pid 30918: GC invariant lost, file "gc-common.c", line 277
I think it's safe to say that it's not quite working yet.