Skip to content

Instantly share code, notes, and snippets.

@joekarma
Created January 21, 2013 05:58
Show Gist options
  • Save joekarma/4583919 to your computer and use it in GitHub Desktop.
Save joekarma/4583919 to your computer and use it in GitHub Desktop.
(defun draw-frame ()
(sdl:clear-display sdl:*black*)
(sdl:draw-box-* 0 0 100 100)
(sdl:update-display))
(sdl:with-init ()
(sdl:window 1024 768)
(sdl:with-events ()
(:quit-event () t)
(:idle ()
(let ((connection
(or swank::*emacs-connection* (swank::default-connection))))
(when (and connection (not (eql swank:*communication-style* :spawn)))
(swank::handle-requests connection t)))
(draw-frame))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment