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