#+(or lispworks cmu sbcl scl) (declare (ignore type))
#+(or cmu scl) `(alien:deref ,obj ,i)
#+sbcl `(sb-alien:deref ,obj ,i)
#+(or lispworks cmu sbcl scl) (declare (ignore type))
#+(or cmu scl) `(alien:deref ,obj ,i)
#+sbcl `(sb-alien:deref ,obj ,i)
#+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :type)) :c ,obj ,i)
#+mcl
(let* ((array-type (array-type type))
#+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :type)) :c ,obj ,i)
#+mcl
(let* ((array-type (array-type type))