- #+(or cmu scl)
- (if (integerp size)
- `(alien:cast
- (alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
- (array ,(convert-from-uffi-type (eval type) :allocation) ,size))
- `(alien:cast
- (alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
- (array ,(convert-from-uffi-type (eval type) :allocation) nil)))
- #+sbcl
- (if (integerp size)
- `(sb-alien:cast
- (sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
- (array ,(convert-from-uffi-type (eval type) :allocation) ,size))
- `(sb-alien:cast
- (sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
- (array ,(convert-from-uffi-type (eval type) :allocation) nil)))
- #+lispworks
- `(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate) :nelems ,size)
- #+allegro
- `(ff:allocate-fobject (list :array (quote ,(convert-from-uffi-type type :allocate)) ,size) :c)
- #+mcl
- `(new-ptr (* ,size ,(size-of-foreign-type (convert-from-uffi-type type :allocation))))
- )))
+ #+(or cmu scl)
+ `(alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
+ #+sbcl
+ `(sb-alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size)
+ #+lispworks
+ `(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate) :nelems ,size)
+ #+allegro
+ `(ff:allocate-fobject (list :array (quote ,(convert-from-uffi-type type :allocate)) ,size) :c)
+ #+(or openmcl digitool)
+ `(new-ptr (* ,size ,(size-of-foreign-type (convert-from-uffi-type type :allocation))))
+ )))