~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b5ec56f
)
Bug fixes
author
espen
<espen>
Tue, 25 Mar 2008 02:00:58 +0000
(
02:00
+0000)
committer
espen
<espen>
Tue, 25 Mar 2008 02:00:58 +0000
(
02:00
+0000)
gffi/basic-types.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gffi/basic-types.lisp
b/gffi/basic-types.lisp
index
14cf78a
..
bbc1657
100644
(file)
--- a/
gffi/basic-types.lisp
+++ b/
gffi/basic-types.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: basic-types.lisp,v 1.1
0 2007-09-07 07:28:42
espen Exp $
+;; $Id: basic-types.lisp,v 1.1
1 2008-03-25 02:00:58
espen Exp $
(in-package "GFFI")
(in-package "GFFI")
@@
-906,16
+906,16
@@
have been written as temporal.")
(define-type-method size-of ((type or) &key (inlined nil inlined-p))
(loop
(define-type-method size-of ((type or) &key (inlined nil inlined-p))
(loop
- for subtype in (
type-expand-to 'or type
)
+ for subtype in (
cdr (type-expand-to 'or type)
)
maximize (if inlined-p
maximize (if inlined-p
- (size-of subtype inlined)
+ (size-of subtype
:inlined
inlined)
(size-of subtype))))
(define-type-method type-alignment ((type or) &key (inlined nil inlined-p))
(loop
(size-of subtype))))
(define-type-method type-alignment ((type or) &key (inlined nil inlined-p))
(loop
- for subtype in (
type-expand-to 'or type
)
+ for subtype in (
cdr (type-expand-to 'or type)
)
maximize (if inlined-p
maximize (if inlined-p
- (type-alignment subtype inlined)
+ (type-alignment subtype
:inlined
inlined)
(type-alignment subtype))))
(define-type-method alien-arg-wrapper ((type or) var value style form &optional copy-in-p)
(type-alignment subtype))))
(define-type-method alien-arg-wrapper ((type or) var value style form &optional copy-in-p)