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

[Yaroslav Kavenchuk]

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))))


-- 
WBR, Yaroslav Kavenchuk.