I'm stuck with code in a quoted list

[Bigos]

Hi,

I am trying to write a Lisp script for generation of Ruby code.

Here you can see what I have do so far:
https://github.com/bigos/cl-script/blob/master/script.lisp

I have problem with generate function. When I run it in repl with
example data: (generate "NewPost" "new_post" "NewPosts" "new_posts" )
I get following

(index all)
(show find :id)
(new new)
(edit find :id)
(create new (FORMAT NIL ~A SING_UNDER) (FORMAT NIL if @~A.save SING_UNDER))
(update find :id
(FORMAT NIL if @~A.update_attributes(params[:~A]) SING_UNDER SING_UNDER))
(destroy find :id)

What can I do to have a string instead of (format nil ...) ?

Jack

[Alberto Riva]

You can use backquote:

(let ((sing_under "new_post"))
`(create new ,(format nil "~a" sing_under)))

=> (CREATE NEW "new_post")


Alberto

--
Give a man a fish and he will eat for one day. Teach him programming,
and he will develop a multi tasking intelligent planning algorithm to
optimize the route of a fleet of deep sea fishing boats, with
real-time GPS tracking, weather satellite link, automatic analysis of
fish market prices, the whole thing controlled by an AJAX-enabled web
interface. In the meantime, he will die of hunger.

[Bigos]

On 07/06/12 05:35, Alberto Riva wrote:

>
> You can use backquote:
>
> (let ((sing_under "new_post"))
> `(create new ,(format nil "~a" sing_under)))
>
> => (CREATE NEW "new_post")
>
>
> Alberto
>

It works. Thank you