Life

(define-callback (my-wndproc :stdcall)
    lresult ((hwnd handle) (msg uint) (wparam wparam) (lparam lparam))
  (if (= msg wm-destroy)
    (progn (post-quit-message) 0)
    (def-window-proc hwnd msg wparam lparam)))

(defun main ()
  (register-class (make-wndclass
                      :wndproc (get-callback 'my-wndproc)
                      :style '(:vredraw :hredraw)
                      :instance module-handle
                      :background color-background
                      :class-name "Window"))
  (unwind-protect
      (progn 
        (show-window (create-window
                       :class-name "Window"
                       :window-name "Window"
                       :style :overlapped-window))
        (loop :for msg = (get-message) :until (null msg)
          :do (translate-message msg)
              (dispatch-message msg)))
    (unregister-class "Window")))