Common Lisp in Scheme?

[hplabsz!kempf@hplabs.hp.com (Jim Kempf)]

I know about Jonathan Reese's Scheme in Common Lisp, but has anybody
implemented the opposite, Common Lisp in Scheme? Although I like the
clean semantics of Scheme, reality sometimes intrudes. I'm trying to
decide what Lisp to purchase for my AT, and TI's PC Scheme looks
attractive, especially compared to the overpriced AT Common Lisps
available. There is currently a port of Kyoto Common Lisp
underway, but it may take awhile and might end up not being any
cheaper than the already available crop, besides requiring a C 
compiler.

Before I start hacking, anybody done it yet? Thanx!

		Jim Kempf	kempf@hplabs.hp.com