Skip to content

Instantly share code, notes, and snippets.

@RobBlackwell

RobBlackwell/gist:5373163

Created April 12, 2013 16:12
Show Gist options
  • Star 4 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save RobBlackwell/5373163 to your computer and use it in GitHub Desktop.
Save RobBlackwell/5373163 to your computer and use it in GitHub Desktop.
Download ZIP
Call the win32 API from SBCL on Windows
Raw
gistfile1.lisp
(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