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.")
--- 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)))
,@body)))))
pgpAs9bKZiILO.pgp
Description: PGP signature
_______________________________________________ cffi-devel mailing list cffi-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
