projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
78e74f7
)
r2908: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 30 Sep 2002 09:08:48 +0000
(09:08 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 30 Sep 2002 09:08:48 +0000
(09:08 +0000)
src/objects.cl
patch
|
blob
|
history
diff --git
a/src/objects.cl
b/src/objects.cl
index 6f1e8cec7aa695607d072775b65c24723046c486..0323da9232f24db7763a23abe3b398e0087c894b 100644
(file)
--- a/
src/objects.cl
+++ b/
src/objects.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: objects.cl,v 1.2
5 2002/09/30 08:50:00
kevin Exp $
+;;;; $Id: objects.cl,v 1.2
6 2002/09/30 09:08:48
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
;;;;
@@
-22,8
+22,8
@@
(defun size-of-foreign-type (type)
#+lispworks (fli:size-of type)
#+allegro (ff:sizeof-fobject type)
(defun size-of-foreign-type (type)
#+lispworks (fli:size-of type)
#+allegro (ff:sizeof-fobject type)
- #+cmu (a
lien:alien-size type)
- #+clisp
(values (ffi:size-of type))
+ #+cmu (a
sh (eval `(alien:alien-size ,type)) -3) ;; convert from bits to bytes
+ #+clisp (values (ffi:size-of type))
#+(and mcl (not openmcl))
(let ((mcl-type (ccl:find-mactype type nil t)))
(if mcl-type
#+(and mcl (not openmcl))
(let ((mcl-type (ccl:find-mactype type nil t)))
(if mcl-type