Single quote character

[plops]

The following c-mera expression results in wrong C code:

 (when (== #\' ch)
      (comment "quo")
      (return (cast 'o *quo*)))

The C code should look like this:

    if ('\'' == ch) {
        //quo
        return ((o)3);
    }

but it actually looks like this:

    if (''' == ch) {
        //quo
        return ((o)3);
    }

Currently I use this:

 (when (== (char-code #\') ch)
      (comment "quo")
      (return (cast 'o *quo*)))

but that makes the C code very unreadable:

    if (39 == ch) {
        //quo
        return ((o)3);
    }