~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b437531
)
Removed incorrect comment
author
espen
<espen>
Wed, 20 Jun 2007 11:13:45 +0000
(11:13 +0000)
committer
espen
<espen>
Wed, 20 Jun 2007 11:13:45 +0000
(11:13 +0000)
gffi/proxy.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gffi/proxy.lisp
b/gffi/proxy.lisp
index
6586891
..
0252520
100644
(file)
--- a/
gffi/proxy.lisp
+++ b/
gffi/proxy.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: proxy.lisp,v 1.
8 2007-05-10 20:23:28
espen Exp $
+;; $Id: proxy.lisp,v 1.
9 2007-06-20 11:13:45
espen Exp $
(in-package "GFFI")
(in-package "GFFI")
@@
-302,6
+302,8
@@
#'(lambda (value object)
(unless writer
(setq writer (mkbinding setter nil 'pointer type)))
#'(lambda (value object)
(unless writer
(setq writer (mkbinding setter nil 'pointer type)))
+ ;; First argument in foreign setters is the object and second
+ ;; is value
(funcall writer (foreign-location object) value)))
(call-next-method)))
(funcall writer (foreign-location object) value)))
(call-next-method)))