[cffi-devel] Re: cffi not working on x86-64 with cmucl (working with sbcl)

[Luís Oliveira]

Dawgmatix <dawgmatix at gmail.com> writes:
> Lisp: CMUCL version 19c OS
...
> today I tried loading cl-opengl as well as load libGL.so manually. It
> does not work.

Can you try the following patch?

diff -rN -u cffi-old/src/cffi-cmucl.lisp cffi-new/src/cffi-cmucl.lisp
--- cffi-old/src/cffi-cmucl.lisp        2006-03-16 10:47:23.000000000 +0000
+++ cffi-new/src/cffi-cmucl.lisp        2006-03-24 13:14:40.000000000 +0000
@@ -320,6 +320,10 @@
 
 ;;;# Loading and Closing Foreign Libraries
 
+;;; Work-around for compiling ffi code without loading the
+;;; respective library at compile-time.
+(setf c::top-level-lambda-max 0)
+
 (defun %load-foreign-library (name)
   "Load the foreign library NAME."
   (sys::load-object-file name))
diff -rN -u cffi-old/src/libraries.lisp cffi-new/src/libraries.lisp
--- cffi-old/src/libraries.lisp 2006-02-23 02:21:13.000000000 +0000
+++ cffi-new/src/libraries.lisp 2006-03-24 13:14:59.000000000 +0000
@@ -113,9 +113,8 @@
 (defmacro define-foreign-library (name &body pairs)
   "Defines a foreign library NAME that can be posteriorly used with
 the USE-FOREIGN-LIBRARY macro."
-  `(eval-when (#+(or cmu scl) :compile-toplevel :load-toplevel :execute)
-     (setf (get-foreign-library ',name) ',pairs)
-     ',name))
+  `(progn (setf (get-foreign-library ',name) ',pairs)
+          ',name))
 
 (defun cffi-feature-p (feature-expression)
   "Matches a FEATURE-EXPRESSION against the symbols in *FEATURES*
@@ -243,8 +242,7 @@
        (:or (try-foreign-library-alternatives (rest library)))))))
 
 (defmacro use-foreign-library (name)
-  `(eval-when (:load-toplevel :execute #+(or cmu scl) :compile-toplevel)
-     (load-foreign-library ',name)))
+  `(load-foreign-library ',name))
 
 ;;;# Closing Foreign Libraries
 ;;;



Thanks.

-- 
Luís Oliveira
luismbo (@) gmail (.) com
Equipa Portuguesa do Translation Project
http://www.iro.umontreal.ca/translation/registry.cgi?team=pt