![](https://secure.gravatar.com/avatar/85707c170bca7964097b9ee08480188d.jpg?s=120&d=mm&r=g)
25 Sep
2006
25 Sep
'06
2:02 p.m.
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.