projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4720: Auto commit for Debian build
[uffi.git]
/
src
/
aggregates.lisp
diff --git
a/src/aggregates.lisp
b/src/aggregates.lisp
index e22f22b53d875839651901c388da77c0df421e20..5080222aa0862c7b92bf708eca85370378746018 100644
(file)
--- a/
src/aggregates.lisp
+++ b/
src/aggregates.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: aggregates.lisp,v 1.
5 2002/11/23 19:07:11
kevin Exp $
+;;;; $Id: aggregates.lisp,v 1.
6 2002/12/02 13:21:43
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-163,7
+163,7
@@
of the enum-name name, separator-string, and field-name"
#+(or cmu scl) `(alien:deref ,obj ,i)
#+sbcl `(sb-alien:deref ,obj ,i)
#+lispworks `(fli:dereference ,obj :index ,i)
#+(or cmu scl) `(alien:deref ,obj ,i)
#+sbcl `(sb-alien:deref ,obj ,i)
#+lispworks `(fli:dereference ,obj :index ,i)
- #+allegro `(ff:fslot-value-typed (quote
(convert-from-uffi-type ,
type :type)) :c ,obj ,i)
+ #+allegro `(ff:fslot-value-typed (quote
,(convert-from-uffi-type
type :type)) :c ,obj ,i)
#+mcl
(let* ((array-type (array-type type))
(local-type (convert-from-uffi-type array-type :allocation))
#+mcl
(let* ((array-type (array-type type))
(local-type (convert-from-uffi-type array-type :allocation))