anchor.diff:  		       (:language :stdc))))
       `(funcall
         (load-time-value
  -       (ffi::foreign-library-function ,cname (ffi::foreign-library :default)
  +       (ffi::foreign-library-function 
  +	,cname (ffi::foreign-library :default) #?(clisp>= 2 40)nil
   	nil (ffi:parse-c-type ',c-function)))
         ,@fparams)))
   
  
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: 			    (system-area-pointer address))))))
  	  #+clisp
  	  (ffi::foreign-library-function name 
  	   (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)
  