anchor.diff:  			    (system-area-pointer address))))))
   	  #+clisp
   	  (ffi::foreign-library-function name 
  -	   (ffi::foreign-library :default)
  +	   (ffi::foreign-library :default) #?(clisp>= 2 40)nil
   	   nil (ffi:parse-c-type c-function)))
   	 (return-value-translator (from-alien-function return-type)))
       (multiple-value-bind (arg-translators cleanup-funcs)
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: interface.lisp,v 1.3 2006-08-16 11:02:45 espen Exp $
  
  (in-package "GFFI")
  
  
negative.code: 		       (:language :stdc))))
      `(funcall
        (load-time-value
         (ffi::foreign-library-function 
  	,cname (ffi::foreign-library :default) #?(clisp>= 2 40)nil
  	nil (ffi:parse-c-type ',c-function)))
        ,@fparams)))
  
  