[cffi-devel] [PATCH] fix with-pointer-to-vector-data on sbcl

[Stelian Ionescu]

I've attached a fix for WITH-POINTER-TO-VECTOR-DATA on recent SBCLs

-- 
(sign :name "Stelian Ionescu" :aka "fe[nl]ix"
      :quote "Quidquid latine dictum sit, altum sonatur.")
-------------- next part --------------
--- old-cffi/src/cffi-sbcl.lisp	2006-12-06 23:12:37.000000000 +0100
+++ new-cffi/src/cffi-sbcl.lisp	2006-12-06 23:12:37.000000000 +0100
@@ -180,7 +180,7 @@
   "Bind PTR-VAR to a foreign pointer to the data in VECTOR."
   (let ((vector-var (gensym "VECTOR")))
     `(let ((,vector-var ,vector))
-       (declare (type (simple-unboxed-array (*)) ,vector-var))
+       (declare (type (sb-kernel:simple-unboxed-array (*)) ,vector-var))
        (sb-sys:with-pinned-objects (,vector-var)
          (let ((,ptr-var (sb-sys:vector-sap ,vector-var)))
            , at body)))))

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cffi-devel/attachments/20061207/f10a4e2c/attachment.sig>