(defmacro def-array (name-array type)
#+allegro
`(ff:def-foreign-type ,name-array
(defmacro def-array (name-array type)
#+allegro
`(ff:def-foreign-type ,name-array
#+lispworks
`(fli:define-c-typedef ,name-array
(:pointer (:pointer ,(convert-from-uffi-type type :array))))
#+lispworks
`(fli:define-c-typedef ,name-array
(:pointer (:pointer ,(convert-from-uffi-type type :array))))
#+(or lispworks cmu) (declare (ignore type))
#+allegro
`(ff:fslot-value-typed ,type :c ,obj ,slot)
#+(or lispworks cmu) (declare (ignore type))
#+allegro
`(ff:fslot-value-typed ,type :c ,obj ,slot)
#+(or lispworks cmu) (declare (ignore type))
#+allegro
`(ff:fslot-value-typed ,type :c ,obj ,slot)
#+(or lispworks cmu) (declare (ignore type))
#+allegro
`(ff:fslot-value-typed ,type :c ,obj ,slot)
"Returns a field from a row"
#+(or lispworks cmu) (declare (ignore type))
#+cmu `(alien:deref ,obj ,i)
#+lispworks `(fli:dereference ,obj :index ,i)
"Returns a field from a row"
#+(or lispworks cmu) (declare (ignore type))
#+cmu `(alien:deref ,obj ,i)
#+lispworks `(fli:dereference ,obj :index ,i)
- #+allegro `(ff:fslot-value-typed ,type :c ,obj ':my-field ,i)
+ #+allegro `(ff:fslot-value-typed ,type :c ,obj ,i)