#+(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)
"Returns a field from a row"
#+(or lispworks cmu) (declare (ignore type))
#+cmu `(alien:deref ,obj ,i)