From 347e43c800f7e7e1b7f45f415a0d4a4eed8db836 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Fri, 9 Apr 2010 18:12:06 -0400
Subject: [PATCH] 1.673: make ECL happier on some C compilers, by including
 proper C headers.

---
 asdf.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/asdf.lisp b/asdf.lisp
index 3a46796f..d3d96c41 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -60,7 +60,7 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (let* ((asdf-version
           ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
-          (subseq "VERSION:1.672" (1+ (length "VERSION"))))
+          (subseq "VERSION:1.673" (1+ (length "VERSION"))))
          #+allegro (excl::*autoload-package-name-alist* nil)
          (existing-asdf (find-package :asdf))
          (versym '#:*asdf-version*)
@@ -647,6 +647,7 @@ actually-existing directory."
 #+clisp (defun get-uid () (posix:uid))
 #+sbcl (defun get-uid () (sb-unix:unix-getuid))
 #+cmu (defun get-uid () (unix:unix-getuid))
+#+ecl (ffi:clines "#include <sys/types.h>" "#include <unistd.h>")
 #+ecl (defun get-uid () (ffi:c-inline () () :int "getuid()" :one-liner t))
 #+allegro (defun get-uid () (excl.osi:getuid))
 #-(or cmu sbcl clisp allegro ecl)
-- 
GitLab