From 5268676871adbf7c50debfb112c75cd55ca1bf91 Mon Sep 17 00:00:00 2001 From: Liam Healy <liam@thinkpad.local> Date: Sun, 4 Jan 2009 14:16:43 -0500 Subject: [PATCH] Conditionalize with #+(and native sbcl) Changed conditionals from #+sbcl to #+(and native sbcl) to allow for the easy recompilation under SBCL as non-native by commenting out the pushnew in init.lisp. --- data/foreign-friendly.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/data/foreign-friendly.lisp b/data/foreign-friendly.lisp index e1a590bf..2eeed8ea 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)) -- GitLab