;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: objects.cl,v 1.25 2002/09/30 08:50:00 kevin Exp $
+;;;; $Id: objects.cl,v 1.26 2002/09/30 09:08:48 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(defun size-of-foreign-type (type)
#+lispworks (fli:size-of type)
#+allegro (ff:sizeof-fobject type)
- #+cmu (alien:alien-size type)
- #+clisp (values (ffi:size-of type))
+ #+cmu (ash (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