Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Disposing of extra gen-images definition

  • Loading branch information...
commit 52eeabc61f173d24ba8732c63d21c4eb7c9b9004 1 parent 2e7d0c3
Josh Marchán authored
Showing with 0 additions and 5 deletions.
  1. +0 −5 utilities.lisp
View
5 utilities.lisp
@@ -62,11 +62,6 @@
(bind-image dest)
(register-palette pointer (* ncols bpp) type)))
-(defun gen-images (n)
- (with-foreign-object (ids :uint n)
- (%gen-images n ids)
- (loop for i to n collect (mem-aref ids :uint i))))
-
(defmacro with-bound-image (id &body body)
"Binds ID for the duration of BODY, returning to the previously bound image thereafter."
(let ((old-image (gensym)))

0 comments on commit 52eeabc

Please sign in to comment.
Something went wrong with that request. Please try again.