diff --git a/data/foreign-friendly.lisp b/data/foreign-friendly.lisp index e1a590bf4d35fad13473e53087fdf501c69b9471..2eeed8eae4d93e53e1bc97c8b15c3d8bc8277900 100644 --- a/data/foreign-friendly.lisp +++ b/data/foreign-friendly.lisp @@ -1,6 +1,6 @@ ;; Use the foreign-friendly arrays package. ;; Liam Healy 2008-03-22 15:40:08EDT -;; Time-stamp: <2008-12-27 17:54:24EST foreign-friendly.lisp> +;; Time-stamp: <2009-01-04 12:08:59EST foreign-friendly.lisp> ;; $Id$ ;;; Foreign-friendly arrays (original implementation by Tamas Papp) @@ -106,7 +106,7 @@ ;;;;**************************************************************************** ;;; To be called by a defmfun expander -#+sbcl +#+(and native sbcl) (defun native-pointer-protect (array-symbols body) "Wrap the body with a form that obtains the native pointer and protects it during execution of the body." @@ -115,7 +115,7 @@ ,(mapcar (lambda (s) `(original-array ,s)) array-symbols) ,body)) -#+sbcl +#+(and native sbcl) (defun c-pointer (marray) "The pointer to the C array." (cffi:inc-pointer @@ -148,7 +148,7 @@ (cffi:with-foreign-object (,pointer ,cffi-type ,length) ,@body))))) -#+sbcl +#+(and native sbcl) (defmacro pin-to-pointer ((array pointer cffi-type length index-offset) &body body) (declare (ignorable length))