Implement char?

It's somewhat broken, but it "works" for integers and chars?

scm/inc/compiler.scm

        (emit-expr (primcall-operand1 x))
        (emit "andl $~a, %eax" #b11)
        (emit-compare))
       ((char?)
        (emit-expr (primcall-operand1 x))
        (emit "andl $~a, %eax" #b00001111)
        (emit "cmpl $~a, %eax" #b00001111)
        (emit-compare))
       ((boolean?)
        (emit-expr (primcall-operand1 x))
        (emit "andl $~a, %eax" #b0011111)

scm/inc/tests.scm

    ["(boolean? 12421)" "#f\n"]
    ["(boolean? #\\y)" "#f\n"]
    ["(boolean? ())" "#f\n"]
    ["(char? #\\y)" "#t\n"]
    ["(char? #\\a)" "#t\n"]
    ["(char? #\\0)" "#t\n"]
    ["(char? #\\z)" "#t\n"]
    ["(char? 0)" "#f\n"]
    ["(char? 1412)" "#f\n"]
    ["(char? 10)" "#f\n"]
    ["(char? -1421)" "#f\n"]
    ;["(char? #t)" "#f\n"]
    ;["(char? #f)" "#f\n"]
    ;["(char? ())" "#f\n"]
    ])