[cffi-devel] patch for tests/bindings.lisp

Need when runtime device and cffi device is different.

diff -rN -u old-cffi/tests/bindings.lisp new-cffi/tests/bindings.lisp --- old-cffi/tests/bindings.lisp 2006-09-25 13:54:24 +0000 +++ new-cffi/tests/bindings.lisp 2006-09-25 13:54:26 +0000 @@ -38,7 +38,8 @@ ;;; ASDF extensions loaded. (defun load-directory () (let ((here #.(or *compile-file-truename* *load-truename*))) - (make-pathname :directory (pathname-directory here)))) + (make-pathname :directory (pathname-directory here) + #+win32 :device #+win32 (pathname-device here))))

#-(:and :ecl (:not :dffi)) (let ((*foreign-library-directories* (list (load-directory))))