diff cffi

gistfile1.txt

$ diff -u -r c\:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/cffi_0.14.0/ c\:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/software/cffi_0.14.0/
diff -u -r c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/cffi_0.14.0/grovel/grovel.lisp c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/software/cffi_0.14.0/grovel/grovel.lisp
--- c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/cffi_0.14.0/grovel/grovel.lisp    2014-09-10 05:06:56.000000000 +0900
+++ c:/Users/Vagrant/.roswell/impls/ALL/ALL/quicklisp/dists/quicklisp/software/cffi_0.14.0/grovel/grovel.lisp   2014-12-29 01:04:07.059990500 +0900
@@ -279,12 +279,13 @@
            ,@*cc-flags*
            ;; add the cffi directory to the include path to make common.h visible
            ,(format nil "-I~A"
-                    (directory-namestring
+                    (namestring
                      (truename
-                      (asdf:system-definition-pathname :cffi-grovel))))
+                      (make-pathname :defaults (asdf:system-definition-pathname :cffi-grovel)
+                                     :name nil :type nil))))
            ,@(when library *platform-library-flags*)
-           "-o" ,(native-namestring output-file)
-           ,(native-namestring input-file))))
+           "-o" ,(namestring output-file)
+           ,(namestring input-file))))
     (when library
       ;; if it's a library that may be used, remove it
       ;; so we won't possibly be overwriting the code of any existing process