;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: aggregates.cl,v 1.7 2002/03/21 07:56:45 kevin Exp $
+;;;; $Id: aggregates.cl,v 1.8 2002/03/23 12:58:12 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
cmds))
-(defmacro def-array (name-array type)
+(defmacro def-array-pointer (name-array type)
#+allegro
`(ff:def-foreign-type ,name-array
- (:array ,(convert-from-uffi-type type :array)))
+ (:array ,(convert-from-uffi-type type :array)))
#+lispworks
`(fli:define-c-typedef ,name-array
- (:pointer (:pointer ,(convert-from-uffi-type type :array))))
+ (:c-array ,(convert-from-uffi-type type :array)))
#+cmu
`(alien:def-alien-type ,name-array
- (* ,(convert-from-uffi-type type :array)))
+ (* ,(convert-from-uffi-type type :array)))
)
(defun process-struct-fields (name fields)