diff --git a/libffi/funcall.lisp b/libffi/funcall.lisp index 427e971ebea9..060cd8a233c8 100644 --- a/libffi/funcall.lisp +++ b/libffi/funcall.lisp @@ -120,4 +120,9 @@ (setf *foreign-structures-by-value* 'foreign-funcall-form/fsbv-with-libffi) +;; DEPRECATED Its presence encourages the use of #+fsbv which may lead to the +;; situation where a fasl was produced by an image that has fsbv feature +;; and then ends up being loaded into an image later that has no fsbv support +;; loaded. Use explicit ASDF dependencies instead and assume the presence +;; of the feature accordingly. (pushnew :fsbv *features*) diff --git a/src/features.lisp b/src/features.lisp index 532170b56a79..0cdc6caf277b 100644 --- a/src/features.lisp +++ b/src/features.lisp @@ -1,6 +1,6 @@ ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*- ;;; -;;; features.lisp --- CFFI-specific features. +;;; features.lisp --- CFFI-specific features (DEPRECATED). ;;; ;;; Copyright (C) 2006-2007, Luis Oliveira ;;; diff --git a/tests/bindings.lisp b/tests/bindings.lisp index d472bb6e90e1..b0d62d668ef6 100644 --- a/tests/bindings.lisp +++ b/tests/bindings.lisp @@ -101,7 +101,7 @@ (let ((*foreign-library-directories* (list (load-directory)))) (load-foreign-library 'libtest) (load-foreign-library 'libtest2) - #+fsbv (load-foreign-library 'libfsbv) + (load-foreign-library 'libfsbv) (load-foreign-library 'libc) #+(or abcl lispworks) (load-foreign-library 'libm)))