2011/12/15 Kon Lovett <konlov...@gmail.com>:
>
> So:
>
>        (message-digest-chunk-converter (lambda (obj) (call-with-output-string 
> (cut serialize obj <>))))
>
> should be enough.

serialize from s11n has its own limitations.

I tried to write an exception to a file in order to be able to analyze
it later. For the file name I tried to create a MD5 hash. So my first
try was this:

(with-output-to-file (md5-digest (cons (random 10000) exn))
  (lambda () (serialize exn)))

It failed miserably ;-)

I end up with this:

(with-output-to-file (md5-digest (number->string (random 10000)))
  (lambda () (write (condition->list exn))))

This is probably the best approximation one can get.

_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to