#+allegro
`(ff:allocate-fobject ,(convert-from-uffi-type type :allocate) :c))
(progn
#+cmu
`(alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
#+lispworks
#+allegro
`(ff:allocate-fobject ,(convert-from-uffi-type type :allocate) :c))
(progn
#+cmu
`(alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
#+lispworks