-;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: UFFI -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; 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.10 2002/04/06 19:53:08 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)