Re: Questions

2009-05-11 Thread Alexander Burger
Hi Kriangkrai, Is there a way, to make the code below works, the first time 'foo' is defined? : foo - NIL : (mydefs (+ 1 (foo 3 4))) # should returns 20 As I said, not without modification of the low-level error handler. Execution is not continued after the error is caught, as the 'catch'

Re: Questions

2009-05-11 Thread Kriangkrai Soatthiyanont
Hi Alex, As I said, not without modification of the low-level error handler. Execution is not continued after the error is caught, as the 'catch' is in 'mydefs' and not on the lowest level. Why would you need that? It will enable code like this: (with-xml (tag1 (@ attr1 val1)

Re: Questions

2009-05-11 Thread Alexander Burger
Hi Kriangkrai, Also, floating point calculations are better done separately (there are C functions for that) Do you mean using FFI, i.e. calling C functions from Lisp? If so, how? Could you give me an example for calling C's double sin(double x) in math.h. Please take a look in

Re: Questions

2009-05-11 Thread Tomas Hlavaty
Hi Kriangkrai, (with-xml (tag1 (@ attr1 val1) text (tag2 text) text )) If you go this route, why not something like: (with-xml (tag1 @attr1 val1 text (tag2 text) text ) ) Also, if you don't manage to hook your error handler to

Re: Questions

2009-05-11 Thread Kriangkrai Soatthiyanont
Hi Tomas, =A0 =A0(with-xml =A0 =A0 =A0 (tag1 (@ attr1 val1) =A0 =A0 =A0 =A0 =A0text =A0 =A0 =A0 =A0 =A0(tag2 text) =A0 =A0 =A0 =A0 =A0text )) If you go this route, why not something like: (with-xml =A0 (tag1 @attr1 val1 =A0 =A0 =A0text =A0 =A0 =A0(tag2 text) =A0 =A0 =A0text ) )

Re: Questions

2009-05-11 Thread Kriangkrai Soatthiyanont
Hi Alex, Please take a look in src/ext.c. There is, for example, 'ext:Sin', that interfaces to scaled integers: =A0 : (ext:Sin 314159 10) =A0 - 0 =A0 : (ext:Cos 314159 10) =A0 - -10 Ah, Thanks. Could you please explain how a double value is encoded in cell? I could not