Skip to content

Instantly share code, notes, and snippets.

@RobBlackwell
Created April 12, 2013 16:12
Show Gist options
  • Save RobBlackwell/5373163 to your computer and use it in GitHub Desktop.
Save RobBlackwell/5373163 to your computer and use it in GitHub Desktop.
Call the win32 API from SBCL on Windows
(ql:quickload :cffi)
(cffi:load-foreign-library "user32.dll")
(cffi:defctype hwnd :unsigned-int)
(cffi:defcfun ("MessageBoxA" message-box) :int
(wnd hwnd)
(text :string)
(caption :string)
(type :unsigned-int))
(message-box 0 "hello" "world" 0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment