X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/12cece3f852a8f05f191ac90a9c70a7d26ca45ee..57fa233bdfb10c242a90e0cde4dba120a5bb38a9:/gffi/interface.lisp diff --git a/gffi/interface.lisp b/gffi/interface.lisp index f2dd464..a0bda4f 100644 --- a/gffi/interface.lisp +++ b/gffi/interface.lisp @@ -20,7 +20,7 @@ ;; 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.7 2007/10/17 17:04:15 espen Exp $ +;; $Id: interface.lisp,v 1.8 2007/11/29 18:37:14 espen Exp $ (in-package "GFFI") @@ -128,8 +128,15 @@ (defmacro defbinding (name lambda-list return-type &rest args) (list (cond ((and (namep expr) (not (in-arg-p style))) expr) - ((namep expr) (make-symbol (string expr))) - ((gensym))) + ((namep expr) + #-clisp(make-symbol (string expr)) + ;; The above used to work in CLISP, but I'm + ;; not sure exactly at which version it + ;; broke. The following could potentially + ;; cause variable capturing + #+clisp(intern (format nil "~A-~A" (string expr) (gensym)))) + (#-clisp(gensym) + #+clisp(intern (string (gensym))))) (or aux expr) type style out-type)))) args)))