[Common Lisp] McCLIM で日本語表示できた

mcclim/Experimental/freetype/mcclim-freetype.asd を require したら日本語表示できた♪

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :mcclim)
  (require :mcclim-freetype))

(in-package :clim-user)

(define-application-frame hello-frame ()
  ()
  (:pane (make-pane 'application-pane :display-function #'display-hello))
  (:geometry :width 400 :height 200))

(defmethod display-hello ((hello-frame hello-frame) stream)
  (format stream "こんにちは! Hello World! 日本語だ!"))

(defun run ()
  (run-frame-top-level (make-application-frame 'hello-frame)))

;;(run)