$ LANG=C /usr/local/lib64/LispWorks/lispworks-7-0-0-amd64-linux -init - -siteinit -

CL-USER 1 > (let ((ja-sym-name0 (map 'string #'code-char '(36039 26009 12467 12540 12489))) (ja-sym-name1 (map 'string #'code-char '(25805 20316)))) (list (eq (intern ja-sym-name0) (intern ja-sym-name0)) (eq (intern ja-sym-name1) (intern ja-sym-name1))))

Error: #\資 (of type CHARACTER) is not of type BASE-CHAR. 1 (abort) Return to level 0. 2 Return to top loop level 0.

Type :b for backtrace or :c <option number> to proceed. Type :bug-form "<subject>" for a bug report template or :? for other options.

CL-USER 2 : 1 > :a

CL-USER 3 > (lw:set-default-character-element-type 'cl:character) CHARACTER

CL-USER 4 > (let ((ja-sym-name0 (map 'string #'code-char '(36039 26009 12467 12540 12489))) (ja-sym-name1 (map 'string #'code-char '(25805 20316)))) (list (eq (intern ja-sym-name0) (intern ja-sym-name0)) (eq (intern ja-sym-name1) (intern ja-sym-name1)))) (NIL T) <== ???