[Openmcl-devel] ccl manual (was Re: trace on recursive functions)

[Raffael Cavallaro]

On Dec 11, 2009, at 9:36 PM, Ron Garret wrote:

> I can't stand it any more.

You beat me to it. Kind of through-the-looking-glass to see XML advocated on a lisp implementation mailing list.

In fact, there was even a thread back in may about how to get cl-who to turn this:

(:chatty-window
   :track-mouse t :title "Objects" :margin 0
   (:agent-3d-view :name "scene"
                   (:cube :texture "crate.png")
                   (:sphere :x 2.0)
                   (:sphere :x 3.0 :texture "earth.png")
                   (:cube :size 3.0 :z -3.5 :texture "crate.png")
                   (:cube :x 5 :roll 45.0)
                   (:sky-dome :pitch 90)))

into this:

<chatty-window track-mouse='track-mouse' title='Objects' margin='0'>
  <agent-3d-view name='scene'>
    <cube texture='crate.png'></cube>
    <sphere x='2.0'></sphere>
    <sphere x='3.0' texture='earth.png'></sphere>
    <cube size='3.0' z='-3.5' texture='crate.png'></cube>
    <cube x='5' roll='45.0'></cube>
    <sky-dome pitch='90'></sky-dome>
  </agent-3d-view>
</chatty-window>"

The macro to do it is less than 10 lines of lisp.

Seems like there should be a relatively simple way to do the round trip lisp->xml->lisp using cl-who and one of the several xml parsing lisp libraries (including Alex Repenning's XMLisp).


regards,

Ralph



Raffael Cavallaro
raffaelcavallaro at me.com