Unicode support

[veer66]

I cannot match unicode characters.

I wrote this code:

(defrule stream () (char "ก-ฮ"))
(trace-rule 'stream :recursive t)
(parseq 'stream "ก" :parse-error t)

, but it didn't work.

Execution of a form compiled with errors.
Form:
  (PARSEQ::WITH-EXPANSION ((#1=#:RESULT-596 #2=#:SUCCESS-597) #:SEQUENCE-593
                         (CHAR "ก-ฮ") #3=#:POS-594 NIL)
  (IF #2#
      (MULTIPLE-VALUE-BIND (#1# #2#)
          (VALUES #1# T)
        (IF #2#
            (VALUES #1# T #3#)
            (VALUES NIL NIL #4=#:OLDPOS-595)))
      (VALUES NIL NIL #4#)))
Compile-time error:
  during macroexpansion of
(PARSEQ::WITH-EXPANSION (# #:SEQUENCE-593 # ...)
  (IF #:SUCCESS-597
      #
      ...)).
Use *BREAK-ON-SIGNALS* to intercept.

 The value
   NIL
 is not of type
   REAL
   [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]