;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: aggregates.lisp,v 1.2 2002/10/14 01:51:15 kevin Exp $
+;;;; $Id: aggregates.lisp,v 1.3 2002/10/14 04:15:02 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#+allegro `((ff:def-foreign-type ,enum-name :int))
#+lispworks `((fli:define-c-typedef ,enum-name :int))
#+cmu `((alien:def-alien-type ,enum-name alien:signed))
- #+sbcl `((sb-alien:def-alien-type ,enum-name sb-alien:signed))
+ #+sbcl `((sb-alien:define-alien-type ,enum-name sb-alien:signed))
#+(and mcl (not openmcl)) `((def-mcl-type ,enum-name :integer))
#+openmcl `((ccl::def-foreign-type ,enum-name :int))
(nreverse constants)))
`(alien:def-alien-type ,name-array
(* ,(convert-from-uffi-type type :array)))
#+sbcl
- `(sb-alien:def-alien-type ,name-array
+ `(sb-alien:define-alien-type ,name-array
(* ,(convert-from-uffi-type type :array)))
#+(and mcl (not openmcl))
`(def-mcl-type ,name-array '(:array ,type))
#+cmu
`(alien:def-alien-type ,name (alien:struct ,name ,@(process-struct-fields name fields)))
#+sbcl
- `(sb-alien:def-alien-type ,name (sb-alien:struct ,name ,@(process-struct-fields name fields)))
+ `(sb-alien:define-alien-type ,name (sb-alien:struct ,name ,@(process-struct-fields name fields)))
#+allegro
`(ff:def-foreign-type ,name (:struct ,@(process-struct-fields name fields)))
#+lispworks
#+cmu
`(alien:def-alien-type ,name (alien:union ,name ,@(process-struct-fields name fields)))
#+sbcl
- `(sb-alien:def-alien-type ,name (sb-alien:union ,name ,@(process-struct-fields name fields)))
+ `(sb-alien:define-alien-type ,name (sb-alien:union ,name ,@(process-struct-fields name fields)))
#+(and mcl (not openmcl))
`(ccl:defrecord ,name (:variant ,@(process-struct-fields name fields t)))
#+openmcl