CFFI로 Hello MsgBox

1. (defpackage :cffi-user
     (:use :common-lisp :cffi))
   
   (in-package :cffi-user)
   
   (require :asdf)
   (asdf:oos 'asdf:load-op :cffi)
   
   (define-foreign-library lib-user32
     (t (:default "user32")))
   
   (use-foreign-library lib-user32)
   
   (defctype hwnd :unsigned-int)
   
   (defcfun "MessageBoxA"
     :int
     (wnd     hwnd)
     (text    :string)
     (caption :string)
     (type    :unsigned-int))
   
   (MessageBoxA 0
     "OH HAI!"
     "THIS IS MESSAGE FROM OUTER SPACE"
     0)
2. 
   ;;; EOF

참고:

• http://lisperie.tistory.com/entry/%EC%BB%A4%EB%A8%BC-%EB%A6%AC%EC%8A%B5-CFFI-%EC%82%AC%EC%9A%A9%ED%95%98%EA%B8%B0-Using-CFFI-in-Common-Lisp
• http://common-lisp.net/project/cffi/

ps. 하악하악... ccl 하악하악...