Index: /trunk/source/lib/foreign-types.lisp
===================================================================
--- /trunk/source/lib/foreign-types.lisp	(revision 14723)
+++ /trunk/source/lib/foreign-types.lisp	(revision 14724)
@@ -1379,5 +1379,7 @@
             (size (foreign-type-bits to))
             (bit-offset `(the fixnum (* ,size (the fixnum ,index-form)))))
-       (invoke-foreign-type-method :extract-gen to base-form bit-offset)))))
+       (invoke-foreign-type-method :extract-gen to base-form bit-offset)))
+    (foreign-type
+     (%foreign-array-access-form base-form (make-foreign-pointer-type :to type) index-form))))