Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Removed dependency on anaphora.

  • Loading branch information...
commit 85dc3ec0500d1bc1385200b7102c7f4ba589a58a 1 parent 1c45e0d
@Ralith Ralith authored Josh Marchán committed
Showing with 5 additions and 4 deletions.
  1. +1 −1  cl-devil.asd
  2. +1 −1  package.lisp
  3. +3 −2 utilities.lisp
View
2  cl-devil.asd
@@ -2,7 +2,7 @@
;;;; cl-devil -- DevIL binding for CL. See README for licensing information.
(asdf:defsystem cl-devil
- :depends-on (:cffi :anaphora :alexandria)
+ :depends-on (#:cffi #:alexandria)
:components
((:file "package")
(:file "internal")
View
2  package.lisp
@@ -36,7 +36,7 @@
(defpackage #:cl-devil
(:nicknames #:il)
- (:use #:cl #:cffi #:anaphora #:%il)
+ (:use #:cl #:cffi #:%il)
(:shadow #:load #:error)
(:export
#:with-bound-image
View
5 utilities.lisp
@@ -22,8 +22,9 @@
(let (,@(loop for x in images
for (var . args) = (if (listp x) x (list x))
for i from 0
- collect `(,var (anaphora:aprog1 (cffi:mem-aref ,ids :uint ,i)
- ,@(args-helper args)))))
+ collect `(,var (let ((it (cffi:mem-aref ,ids :uint ,i)))
+ ,@(args-helper args)
+ it))))
,@body)
(%delete-images ,count ,ids))))))
Please sign in to comment.
Something went wrong with that request. Please try again.